Sub Waage_uebertragen()
Application.ScreenUpdating = False
Sheets("Daten").Activate
With (Cells(24, 2))
.Range("B2:J300").Copy Range("B2:J300")
End With
Sheets("Turnierdaten").Activate
Application.ScreenUpdating = True
MsgBox "Daten von der Waage übertragen !"
End Sub
Ich möchte von der einen Datei in Tabelle "Tabelle1" nach "Daten" in der anderen Datei Daten kopieren. Das funktioniert aber nicht. Es macht irgendwas nicht nachvollziehbares.
Danke,
Tobias