folgendes Makro nutze ich:
Private Sub Differenz_errechnen_mit_Inputbox()
Dim Wert2 As String
Dim Wert3 As Integer
Dim Datum1 As Date, Datum2 As Date
On Error GoTo ERRORHANDLER
Wert2 = InputBox("bitte Zelle angeben, ab dem die Differenz berechnet werden soll", " _
Beginnzeile", "C2")
Wert3 = InputBox("bitte Spalten-Nr. eingeben z.B. F=6, L=12, R=18, X=24, AD=30", "Spalten-Nr.", _
6)
Datum1 = Cells(Rows.Count, Wert3).End(xlUp)
Datum2 = Range(Wert2)
With Application.WorksheetFunction
Wert1 = .Max(Datum1, Datum2) - .Min(Datum1, Datum2)
MsgBox "Das Makro dauerte: " & Format(Wert1, "h:mm:ss")
End With
ERRORHANDLER:
End Sub
Ist es möglich, dass bei Wert3 die Spalte angezeigt wird in der der Cursor ist? Wenn das geht nicht, kann man aus dem Wert2 (hierz z.B. C2) dann auch die Spalte für Wert3 ermitteln?Vielen lieben Dank für Eure Hilfe!
LG
Claudia