ich möchte diesen Code nutzen, um Daten aus bestimmten Zellen einer Arbeitsmappe in bestimmte Zellen einer anderen Arbeitsmappe zu kopieren. Irgendwie bekomme ich das nicht hin. Kann jemand helfen?
Danke
Sub Suchen()
a = 3
Do While ThisWorkbook.Worksheets("Tabelle1").Cells(a, 1) ""
a = a + 1
Loop
ThisWorkbook.Worksheets("Tabelle1").Cells(a, 1) = Date & " / " & Time
ThisWorkbook.Worksheets("Tabelle1").Cells(a, 2) = Application.UserName
End Sub