Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Zeilen löschen wenn im Bereich einer Spalte leere Zellen sind, mit vba

Frage Microsoft Microsoft Office

Mitglied: herbiemaster

herbiemaster (Level 1) - Jetzt verbinden

03.12.2008 um 08:53 Uhr, 5767 Aufrufe

hallo allerseits

da mir google und die sufu nicht weiter helfen konnten, hoffe ich dass ihr das könnt

ich habe folgende tabelle
87f4a89c20e0e6a2b817f0d4d42c2229-1 - Klicke auf das Bild, um es zu vergrößern

die mit den werten aus dieser gefüllt wird
acd5b036cbcf293a01989bf711a3d377-3 - Klicke auf das Bild, um es zu vergrößern

in der generierten tabelle sollen nun aber die zeilen bzw alle werte aus der zeile gelöscht werden,
bei denen in der spalte Y (zusammenfassung)von Y12 bis Y39 nichts steht, Y darf aber nicht gelöscht werden
und es soll dann zusammengerückt werden, also damit zwischendrin keine
leeren zeilen sind.

ich habe folgenden code zur übertragung:
01.
        'Löschen der alten Projektstunden 
02.
        Worksheets(1).Range(Cells(12, 1), Cells(39, 22)).Select 
03.
        Selection.ClearContents 
04.
         
05.
        For j = 0 To 27 
06.
            If Len(Worksheets(ws).Cells(12 + j, 1).Value) <> 0 Then 
07.
                projektstunden_vorhanden = False 
08.
                For i = 0 To 6  'Tage der Woche ; 0 = Montag 
09.
                    If Len(Worksheets(ws).Cells(12 + j, 3 + i + ((w - 1) * 8)).Value) <> 0 Then 
10.
                        projektstunden_vorhanden = True 
11.
                    End If 
12.
                Next i 
13.
                If projektstunden_vorhanden = True Then 
14.
                    LastRow_projektstunden = 11 
15.
                    For l = 12 To 39 
16.
                        If Len(Worksheets(1).Cells(l, 1).Value) <> 0 Then 
17.
                            LastRow_projektstunden = l 
18.
                        End If 
19.
                    Next l 
20.
                    Worksheets(1).Cells(LastRow_projektstunden + 1, 1).Value = Worksheets(ws).Cells(12 + j, 1).Value 
21.
                    Worksheets(1).Cells(LastRow_projektstunden + 1, 2).Value = Worksheets(ws).Cells(12 + j, 2).Value 
22.
                    Worksheets(1).Cells(LastRow_projektstunden + 1, 3).Value = Worksheets(ws).Cells(12 + j, 3).Value 
23.
                    For i = 0 To 6  'Tage der Woche ; 0 = Montag 
24.
                        Worksheets(1).Cells(LastRow_projektstunden + 1, 4 + (3 * i)).Value = Worksheets(ws).Cells(12 + j, 5 + i + ((w - 1) * 8)).Value 
25.
                    Next i 
26.
                End If 
27.
            End If 
28.
            Worksheets(1).Cells(12 + j, 3 + (3 * i)).Interior.Color = Worksheets(ws).Cells(12 + j, 4 + i + ((w - 1) * 8)).Interior.Color 
29.
            Worksheets(1).Cells(12 + j, 3 + (3 * i)).Interior.Pattern = Worksheets(ws).Cells(12 + j, 4 + i + ((w - 1) * 8)).Interior.Pattern 
30.
             
31.
            Next j
folgendes habe ich bereits versucht, hat aber nicht funktioniert

01.
Worksheets(1).Range("Y12:Y39").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
vielen dank schon mal im voraus!
Ähnliche Inhalte
Microsoft Office
Excel VBA jede Zelle in Bereich (Range) ändern (+1)
gelöst Frage von ggforumMicrosoft Office3 Kommentare

Tabelle mit etlichen Click-Buttons, denen unterschiedliche Makros zugeordnet sind. 1. Bereiches (Range) "ohneX" sollten sich um z.B. 1 erhöhen, ...

Microsoft Office
Excel: wenn Zelle in Tabellenblatt 1 leer, dann gleiche Zelle in Tabellenblatt 2 löschen
gelöst Frage von IGEL.DanielMicrosoft Office7 Kommentare

Hallo alle miteinander, Dank meines Chefs ich "darf" mich an Excel versuchen. Trotz nicht vorhandener VBA - Kenntnisse klappt ...

Entwicklung
Powershell, Excel - Löschen einer leeren Spalte (Column)
gelöst Frage von internet2107Entwicklung2 Kommentare

Hallo zusammen. Ich habe folgendes Problem. Ich finde zwar bereits im Internet diverse Beispielcodes und Hilfen, aber leider ist ...

Windows 7
VBA in Excel, Einträge von diversen Zellen löschen
gelöst Frage von 116408Windows 72 Kommentare

Hallo Bin neu im Forum und habe gleich eine (für mich) happige Aufgabe :-) Ich habe ein Aufnahmeblatt geschaffen, ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 2 StundenViren und Trojaner

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 6 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server15 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell10 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Windows Server
Administratoren-Gruppe abfragen?
Frage von 1410640014Windows Server6 Kommentare

Hallo, kennt jemand eine einfache (und schnelle) Möglichkeit, von allen Client-Computern im Active Directorey die Administratoren-Gruppe abzufragen, wer da ...