Userform
29.01.2004 11:52:46
Lars H.
Private Sub CommandButton1_Click()
Range("a1:a65536").AddItem ListBox1
End Sub
Sub Makro()
Range("b2:c65536").Select
Selection.Copy
Sheets("Tabelle3").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Tabelle2").Select
Range("b2:c65536").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle3").Select
Range("A6").Select
ActiveSheet.Paste
Range("A11").Select
End Sub
der funktioniert aber nicht.bitte um hilfe.