Verbesserung eines VBA Codes?!?!
17.03.2004 19:23:07
Michael
Ich habe in einer Excel-Tabelle in der Spalte B verschiedene Datums-werte stehen! Da es nun immer ziemlich mühseelig war das heutige Datum herauszufinden hab ich dank dieses Forums ein kleines "programm" eingefügt, was mir schon sehr gut hilft!
Nur eine Sache würde ich da gerne noch dran verbessern! Ich würde gerne diese Funktion in mehreren Dateien aufrufen, die nach der Hauptdatei (mit dem unten stehenden VBA Code) gestartet werden!
Hier aber ersteinmal der code:
Sub Heute()
' Variablen
Dim ABZAEHLEN As Object
Dim Zaehler As Long
Zaehler = 0
For Each ABZAEHLEN In Worksheets("Übersicht").Range("B1:B3000")
' hier wird in die Variable "ABZAEHLEN" einzeln der Inhalt der Spalte B eingelesen
Zaehler = Zaehler + 1
' zählt die Schleifendurchläufe
If ABZAEHLEN = Date Then
' hier wird der Inhalt der Variable "ABZAEHLEN" mit dem aktuellen Datum verglichen
Range("B" + CStr(Zaehler)).Select
' hier wird die Celle markiert
Exit For
' hier wird die Schleife verlassen
End If
Next ABZAEHLEN
End Sub
____________
So, was nun zu ersetzen ist, wo mir aber leider die kenntnisse fehlen ist,:
....Each ABZAEHLEN In Worksheets("Übersicht").Range....
Also kurzgesagt ich möchte das dieser code in jeder tabelle funktioniert. Vielleicht gibt es da einen code wie zum beispiel "activeWorksheet oder so!?!?
Schon mal vielen lieben dank im voraus...
Gruß
Michael