Script soll eingefügte Zeile finden
17.10.2005 21:56:45
Nicole
Ich hätte folgendes Problem:
Das nachfolgende Script überprüft die Spalten B bis G im Tabellenblatt Rechnung und sucht die nächste freie Zeile.
Wenn sich dort in den Spalten B bis G kein Eintrag befindet wird die jeweilige Zeile aus dem aktiven Tabellenblatt kopiert und im Rechnungsblatt
dort in die leere Zeile eingefügt.
Füge ich nun aber zwischen zwei mit Text gefüllten Zeilen eine neu leere Zeile ein, so erkennt das Script diese nicht als leere Zeile und fügt neuen Text
nur am Blattende ein.
Kann man das Script so abändern, dass auch eine leere eingefügte Zeile erkannt wird und dann dort der neue Text aus dem anderen Tabellenblatt eingefügt wird ??
Ich hoffe, dass ich mich verständlich ausdrücken konnte und mir jemand helfen kann !
Sub inTabelleeinfuegen()
Dim shTarget As Worksheet
Dim intRow As Integer
Set shTarget = Worksheets("Rechnung")
For I = 2 To 7
If shTarget.Cells(Rows.Count, I).End(xlUp).Row + 1 > intRow Then
intRow = shTarget.Cells(Rows.Count, I).End(xlUp).Row + 1
End If
Next I
Rows(ActiveCell.Row).Copy shTarget.Rows(intRow)
Application.CutCopyMode = False
Cancel = True
End Sub
Gruß Nicole