aktive Zelle am linken Rand anzeigen VBA
21.04.2006 08:32:38
MathiasW
könnt Ihr mir kurz helfen?
Ich im Modul eine Function, die mir das heute Datum auf meinem Tabellenblatt markiert. Das sieht so aus:
Function DatumFormatFinden()
Dim lngDatum As Long, zei As Long, sp As Integer
lngDatum = CLng(Date)
For zei = 132 To 5 Step -1
For sp = 26 To 2 Step -1
If IsDate(Cells(zei, sp)) Then
If CLng(Cells(zei, sp)) = lngDatum Then
Cells(zei, sp).Select
Exit Function
End If
End If
Next
Next
End Function
diese Function wird mit einem CMDButton aufgerufen und selektiert mir die nächste rechte Zelle:
Private Sub CommandButton4_Click()
DatumFormatFinden
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
End Sub
Das läuft auch alles prima, mein Problem ist möchte dass, das heutige Datum (quasi die aktive Zelle vor dem Offset sprung) am linken Rand (am besten mittig) angezeigt wird und nicht irgendwo rechts unten oder wo anders.
Könnt Ihr mir da helfen
Gruss Mathias