Bei Fund eine Leere Zeile unter der Funstelle einfügen
08.12.2019 13:39:47
Silke
ich suche mit dem Folgenden Code im jeweiligen Datenblatt nach der Rechnungsnummer.
Wenn die Nummer gefunden wird soll die Zeile aktiviert werden und Wert eingetragen werden.
Wenn die Nummer nicht gefunden wird soll in die erste leere Zeile gesprungen wird.
Das funktioniert wunderbar. Nun soll aber wenn die Nummer gefunden wird eine leere Zeile unter der Fundstelle eingefügt werden.
With Sheets(nulldazu(Monat)).Range("C1:C" & Cells(Rows.Count, 1).End(xlUp).Row)
Set c = .Find(RechnungsNr, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
GoTo weiter
End If
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 3).Select 'letzte leere zelle
GoTo weiter
End With
weiter:
ActiveCell.Select
ActiveCell = RechnungsNr
Selection.Offset(0, -2) = brutto19
.
Liebe Grüße
Silke
Anzeige