folgendes Makro habe ich im Archiv gefunden.
Private Sub Bereich_in_Zwischenablage_alt()
'Zeilenzahl hängt hier von Spalte A=1 ab:
Range("A2:N" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
End Sub
Jetzt möchte die Eingabe "A2" bzw. "N" über eine Innputbox flexibler gestalten und scheitere. :-(
Private Sub Bereich_in_Zwischenablage()
Dim Wert1 As String
Dim Wert2 As String
Wert1 = InputBox("bitte Zelle eingeben, mit der begonnen werden soll", "erster Wert", "A2")
Wert2 = InputBox("bitte Buchstaben der letzten Spalte eingeben", "dritter Wert", N)
Range(Wert1 : Wert2 & Cells(Rows.Count, 1).End(xlUp).Row).Copy
End Sub
Was mache ich falsch?
Vielen Dank!
Viele Grüße
Markus aus Köln