Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Differenz errechnen | Herbers Excel-Forum


Betrifft: Differenz errechnen von: Claudia
Geschrieben am: 19.12.2009 16:12:45

Hallo zusammen,

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

  

Betrifft: AW: ActiveCell.Column von: hary
Geschrieben am: 19.12.2009 16:33:30

Hallo
Aktuelle SpaltenNr. mit: ActiveCell.Column
gruss hary


  

Betrifft: AW: ActiveCell.Column von: Claudia
Geschrieben am: 19.12.2009 16:34:41

Hallo Harry,

und wo muss ich da was ändern? Der Code ist nicht von mir, sondern hat mir jemand aus dem Forum gebastelt und mein LEvel ist bescheidener als bescheiden. :-)

LG
Claudia


  

Betrifft: AW: Differenz errechnen von: hary
Geschrieben am: 19.12.2009 16:42:18

Hallo
Wert3 = activecell.column
gruss hary


  

Betrifft: Perfekt, vielen Dank! oT von: Claudia
Geschrieben am: 19.12.2009 17:00:28




Beiträge aus den Excel-Beispielen zum Thema "Differenz errechnen"