ich möchte mit einem VBA-Makro bestimmte Spalten (D, J) aus der jeweils aktiven Zeile (die Zeile in der sich der Cursor befindet) als String auslesen und dann weiterverarbeiten. Gibt es da eine einfache Möglichkeit?
Liege Grüsse,
Martin
Sub test()
Wert1 = Cells(ActiveCell.Row, 4)
Wert2 = Cells(ActiveCell.Row, 10)
End Sub
Sub test()
Dim Wert1 As Date
Dim Wert2 As Date
Wert1 = Cells(ActiveCell.Row, 4)
MsgBox CDate(Round(Wert1 * 24, 0) / 24)
Wert2 = Cells(ActiveCell.Row, 10)
MsgBox CDate(Round(Wert2 * 24, 0) / 24)
End Sub