ich möchte mit VBA einen "dynamischen" Bereich in Tab1 makieren und nach Tab2 kopieren. Mein Code bisher funktioniert durch Eingabe von Bereichsnamen ("A1:AM200") in ein Inputbox, wo der Bereichsname über die Formel "Anzahl()" in einer Zelle ermittelt wurde. Wie kann ich automatisch meinen dynamischen Bereich makieren, dessen Bereichsnamen in einer Zelle über Formeln ermittelt werden kann, in eine Variable übernehmen ohne Inputbox? Oder gibt es eine einfacherer Lösung?
danke für Tipps
Leon
_______________________________________________________________
Sub BKopieren()
Dim rngSource As Range
Dim rngTarget As Range
Worksheets("tab1").Select
Set rngSource = Application.InputBox ("Kopierbereich auswählen:", Type:=8)
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