code:
Sub rueber_1()
Dim lastRow As Long
With Worksheets("Tabelle2(2)") 'Zieltabellenblatt
lastRow = IIf(.Range("A65536") <> "", 65536, .Range("A65536").End(xlUp).Row)
If lngZeile = 65536 Then
MsgBox "Keine freie Zeile mehr, bitte überprüfen!", , "Achtung"
Exit Sub
End If
.Range(.Cells(lastRow + 1, 1), .Cells(lastRow + 1, 8)) = _
Sheets("Tabelle1(2)").Range("B7:I7").Value
End With
End Sub
was muss ich beispeilsweise bei modul2 an diesen code verändern wenn das modul in tabelle1 b3-e3 dann in tabelle2 schreiben soll? oder wie geht das prinziepell?
danke im voraus
tommy