Hallo Makro-Experten,
das folgende Makro hatte "malSchauen" mir vor einiger Zeit erstellt.
Hier kann ich eine Zelladresse per Tastatur eingeben und dann wird der Eintrag dieser Zelle in Liste 2 übernommen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngRange As Range
On Error Resume Next
Set rngRange = ThisWorkbook.Worksheets("Liste2").Range(Target.Value)
On Error GoTo 0
If Not rngRange Is Nothing Then
Application.EnableEvents = False
Target = rngRange.Value
Application.EnableEvents = True
End If
Set rngRange = Nothing
End Sub
In dieser Datei habe ich das Makro bereits um eine Inputbox ergänzt:
www.file-upload.net/download-3905995/Textbereich-per-Makro.xls.html
Wenn dort ein Zellbereich (z.B. B4:C11) angegeben wird, dann sollen alle Werte des Bereiches aus Tab "Liste2" einen Bereich in Tab "Rechn2b" übernommen werden.
Geht das?
Vielen Dank im Voraus
mfg
Wolfgang