Office: leere Zeilen löschen

Hallo Forum.
ich habe ein Problem in Excel.
Ich möchte eine Tabelle, die Rechnungsdaten enthält, nach Word exportieren, Das klappt auch soweit.
Vor dem Export würde ich jedoch gern diverse leere Zeilen aus der Tabelle löschen.
Hat jemand eine Idee für ein solches Makro ? Ich glaube, dass es möglich ist. Ich habe auch irgendwann vor längerer Zeit mal sowas gelesen , konnte es aber jetzt, da ich es brauche, nicht wiederfinden.
Zur Not ginge auch ein Nakro für Word, das die leeren Zeilen nach dem Import aus Excel löscht.

Vielen Dank schon mal

 

Hallo!

Dieses Makro löscht alle Leerzeilen:

Code:

Sub test()
Dim i As Long
Dim Ende As Long
Ende = UsedRange.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = Ende To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete (xlShiftUp)
Next i
End Sub

 

Vielen Dank Schatzi

Ich probiers am Montag im Büro aus .

Ciao,


:-D :-D :-D :-D :-D

 

Schade

Hi Schatzi, leider klappt das Makro nicht. Ich vermute, das liegt daran, dass die vermeintlichen Zellen gar nicht leer sind, sondern es stehen Formeln drin, wonach die entsprechende Zelle bei Eintritt einer bestmmen Bedingung einen bestimmten Wert annimmt, ansonten aber leer bleibt , z. B: =WENN(D19=0;"";"Fahrtkosten")
Ich habe versucht Dein Makor abzuändern ,dass es anstelle

Code:

If WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete (xlShiftUp) 

heißt

Code:

If WorksheetFunction.CountA(Rows(i)) = "" Then Rows(i).Delete (xlShiftUp) 

.

Das wird aber mit der Fehlermeldung "Typen unverträglich" quittiert.
Kann man die Abfrage so gestalten, dass die Typen verträglich sind ?

 

Hallo!

Teste mal diese Zeile:

Code:

If WorksheetFunction.CountIf(Rows(i), "?") = 0 Then Rows(i).Delete (xlShiftUp)