ich nutze folgendes Makro (den speziellen Teil habe ich rausgelasen). Mit dem Wert in Spalte A wird eine Hostanwendung aufgerufen - es handelt sich hierbei um die LV-Nummer des Versicherten.
Sub Makro()
Wert1 = Range("a2")
Range("a2").Select
If Wert1 = "" Then
GoTo zeile2
End If
'weiter2:
ActiveCell.Offset(0, 6).Value = Format(Date & " " & Time)
ActiveCell.Offset(1, 0).Select
Loop
zeile2:
Exit Sub
End Sub
Jetzt würde ich gerne folgende Änderungen vornehmen:
- das Makro beginnt ab der ersten leeren Zeile in Spalte D
- und es endet nach wie vor mit der ersten leeren Zeile in Spalte A
Wer kann mir da ein wenig helfen?
Danke schön!
VG Sandra