|
Hallo Comunity,
ich bin ganz frisch auf dem Gebiet der VBA-Programmierung und benötige eure Unterstützung!
Folgender Fall:
Habe in Excel zwei Spalten. Spalte A hat die Kartonnr., Spalte B die enthaltenen Positionen.
Bsp.:
Kartonnr. Artikel
1 XXX
XXX
XXX
2 XXX
XXX
Wenn ich eine Sortierung nach Artikel vornehme, ist somit nicht mehr ersichtlich, zu welchem Karton der jeweilige Artikel gehört.
Dazu habe ich ein Makro erstellt, welcher in jede Zeile die Kartonnr. einfügt, wenn in Spalte B eine Artikelnr. eingetragen ist.
Jedoch steigt bei mir die Do While Schlefe mit IsEmpty nicht immer aus, sobald Spalte B leer ist.
Wo liegt der Fehler?
Code:
' beginnt bei Zeile 15
Range("A15").Select
Dim Zeile As Integer
Zeile = 15
Do While IsEmpty(Cells(Zeile, 2)) = False
If ActiveCell <> "" Then
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
End If
Else
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
End If
Zeile = Zeile + 1
Loop
End Sub
Vielen Dank schon mal!
MFG
neo
|