habe folgendes Problem was ich gern mit einem Makro lösen wollen würde.
1 Tabelle
Artikel Nummer Zeile Text 1 Text 2
123 1 1 Das ist
123 1 2 ein Test
567 1 1 Die Farbe ist grün
897 1 1 Die Farbe ist rot
Wunschergebnis:
Artikel Nummer Zeile Text 1
123 1 1 Das ist
123 1 2 ein Test
567 1 1 Die Farbe
567 1 2 ist grün
897 1 1 Die Farbe
897 1 2 ist rot
Diese soll eigentlich Zeilenweise in eine neue kopiert werden. Ziel ist es die Spalte Text2 entfallen zulassen undalles was darin steht eine Zeile tiefer in Text 1 einzufügen. Zum jeweiligen Artikel. Sollte Text2 aber leer sein dann soll keine neue Zeile eingefügt werden.
Super wäre auch noch eine Idee dass wenn in der eingefügte Zeile die Daten der Spalten 1-3 kopiert werden und die Spalte: "Zeile" sich erhöht, falls eine eingefügte Zeile hinzu kam.
Zum kopieren habe ich bisher folgendes genutzt:
Sub Zeilen_kopieren()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 1
For i = 1 To 34882
With Worksheets("Tabelle1")
If .Cells(i, "A") > "" Then
.Rows(i).Copy _
Destination:=Worksheets("Tabelle2").Rows(i)
a = a + 1
End If
End With
Next i
Application.ScreenUpdating = True
End Sub
Vielleicht hat jemand einen weiteren Ansatz.
Vielen Dank & Grüße
Marcel