Re: Selektion von Mappe nach Mappe kopieren
11.11.2002 09:01:29
Alex
Hallo
probier diese Makro Sub Kopieren()
Dim rngSource As Range, rngTarget As Range
Set rngSource = Application.InputBox _
("Kopierbereich auswählen:", Type:=8)
Worksheets("Tabelle2").Select ' Hier TabelleName ampassen
Set rngTarget = Application.InputBox _
("Zielbereich eintragen:", Type:=8)
If rngTarget.Cells.Count > 1 Then
If rngTarget.Rows.Count <> rngSource.Rows.Count Or _
rngTarget.Columns.Count <> _
rngSource.Columns.Count Then
Beep
MsgBox "Quell- und Zielbereich " & _
"müssen die gleiche Grösse haben!"
Exit Sub
End If
End If
rngSource.Copy rngTarget
Application.CutCopyMode = False
Range("A1").Select
End Sub
Gruß Alex