Automatisch an die Begebenheiten anpassen
02.05.2008 16:11:00
Tino
Hallo,
ich hoffe bei meinen Erklärungen im Code, dass ich keinen Ärger bekomme mit den Profis hier im Forum.
Hier ein Beispiel, dass sich automatisch an die Tabelle anpasst, aber nur in sofern wie ich deine Tabelle aus deinem Beispiel kenne.
Vorausgesetzt, deine Tabelle fängt in Zeile 5, Spalte 8 (H) an!
Option Explicit
Sub SucheDatum()
Dim strDatum As String, Datum As Date, Zelle() As Range
Dim A As Long, lngZeile As Long
Application.ScreenUpdating = False
'letzte benutzte Zelle in Spalte 8
lngZeile = Cells(Rows.Count, 8).End(xlUp).Row
'größe der Array festlegen
ReDim Zelle(lngZeile - 5)
'Schleife bis zur letzten Benutzten Zeile, ab Zeile 5
For A = 5 To lngZeile
'Zelle als opjekt in Array aufnehmen
Set Zelle(A - 5) = Cells(A, Cells(A, Columns.Count).End(xlToLeft).Column)
'Prüfe ob Zeile ab Spalte 8 gefüllt ist
If Zelle(A - 5).Column > 7 Then
'Farben in Zeile löschen
Range(Cells(A, 8), Zelle(A - 5)).Interior.ColorIndex = 0
'erster Schleifendurchlauf
If A = 5 Then
Datum = CDate(Mid(Zelle(A - 5), 1, 2) & "." & Mid(Zelle(A - 5), 4, 5) & "." & 2008)
'ab zweiten Schleifendurchlauf
ElseIf Datum
Über eine Rückmeldung, würde ich mich freuen.
Gruß
Tino