ich würde Euer Wissen heute gerne nocheinmal in Anspruch nehmen !
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim shTarget As Worksheet
Dim intRow As Integer
Set shTarget = Worksheets("Rechnung")
intRow = shTarget.Cells(Rows.Count, 2).End(xlUp).Row + 1
Rows(ActiveCell.Row).Copy shTarget.Rows(intRow)
Application.CutCopyMode = False
Cancel = True
End Sub
Bei einem Doppelklick in der Zelle der aktiven Tabelle
werden die Daten der gesamten Zeile in die nächste
freie Zeile des Rechnungsblattes übernommen.
Dabei wird die Zeile B in dem Rechnungsformular überprüft
wo die nächste freie Zeile ist.
Ich würde jetzt aber gerne die Zeilen A, B, C,D, E und F überprüfen lassen.
Wenn nämlich z.B in Zeile C Text steht und in B nicht, dann wird diese
Zeile erneut überschrieben.
Hätte vielleicht jemand eine Lösung für ?
Gruß Nicole