Hallo Helfer,
im ersten (funktionierenden) Teil eines Makros werden leere Zeilen gelöscht. Im 2ten Teil sollen die Zeilen gesucht werden in denen nur 1 Eintrag steht, dieser soll ausgelesen werden und mit dem Eintrag in der Zelle darüber verbunden werden. Die Zeile soll dann auch gelöscht werden.
Sub Zeilen_loeschen()
Dim leere_Zeile As Integer
Dim Inhalt1
Dim Inhalt2
Dim Spalte As Range
Dim Zeile As Range
Application.ScreenUpdating = False
For leere_Zeile = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Application.CountA(Rows(leere_Zeile)) = 0 Then
Rows(leere_Zeile).Delete
End If
Next
For leere_Zeile = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Application.CountA(Rows(leere_Zeile)) = 1 Then
Spalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Zeile = leere_Zeile
'Inhalt1 = (Zeile,Spalte).Value
'Inhalt2 = (Zeile-1,Spalte).Value
Cells(Zeile - 1, Spalte) = Inhalt1 & " " & Inhalt2
End If
Next
End Sub
Vielen Dank im Voraus
mfg
Wolfgang H.