ich habe folgendes Makro, das ich gerne aufrufen möchte.
Sub ablauf()
Call kopieren
Call bereinigen
Call txterstellen
MsgBox "Ich bin fertig", vbInformation, "Info"
End Sub
Das ganze ist einfach nur um weitere zusammenzufassen.
Wenn ich das laufen lasse, wird jedoch Call bereinigen nicht sauber verarbeitet.
Rufe ich dies jedoch für sich auf, bzw gehe es in einzelnen Schritten mit F8 durch, klappt es ohne Probleme.
Sub bereinigen()
Dim letzteZeileA As Long
Dim a, k As Long
Dim tmpA, tmpB As String
letzteZeile = LastRow(Worksheets(Worksheets.Count))
For k = 4255 To 2 Step -1
If Worksheets(Worksheets.Count).Cells(k, 1).Value "" Then
Else
Range(Cells(k, 1), Cells(k, 5)).EntireRow.Delete
tmpA = Worksheets(Worksheets.Count).Cells(k - 1, 5).Value
tmpB = Worksheets(Worksheets.Count).Cells(k, 1).Value
Worksheets(Worksheets.Count).Cells(k - 1, 5).Value = tmpA & tmpB
Range(Cells(k, 1), Cells(k, 5)).EntireRow.Delete
End If
Next
End Sub
Hat jemand eine Idee wie das kommt?
Danke und viele Grüße