Hallo nochmal,
habe ein zweites Problem.
Ich möchte aus Tabelle1 inhalte eines best. Bereiches in Tabelle2 (A1,A2,...an die nächte frei zeilen) kopieren .
Bisher habe ich folgendes:
Sub Kopie()
Range("A1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells(Rows.Count, 1).End(xlUp).Select
End Sub
Aber klappt nichst.....
Danke