Hallo zusammen!
man findet etwa unendlich viele Antworten zum Thema erste leere Zeile suchen und ausgeben.
Mein Problem ist eine leichte Abwandlung aber als nicht VBA-Profi komme ich hier nicht weiter.
Das Problem ist, dass man in Spalte A projektnr. drinstehen hat. Als erstes wird diese nummer gesucht. Dann kommen danach leere Zellen(bis der nächste Wert folgt). diese leeren Zellen entsprechen aber bestellnummern (zum projekt gehörend) in der Spalte B. in dieser Spalte wiederum soll an vorletzter Stelle eine neue Zeile für ne neue Bestellung eingefügt werden.
Kann mir hier jemand helfen? ich kriege das mit den SChleifen nicht hin!
Hier mein inzwischen bruchstückhafter code:)
Sub Zeilen_einfügen(b1 As String, b2 As String, b3 As String, b4 As String, b5 As String)
'b1 = ProjektNr, b2 = BestellNr, b3 = Bestelltext, b4 = Anforderer, b5 = Zulieferer
If ActiveCell.value = b1 Then
ActiveCell.Offset(1, 0).Select
For m = 1 To 10
If ActiveCell = False Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(-1, 0).Select
ActiveCell.value = b1
End If
Next m
End If
Vielen Dank schon mal!! |