Select klappt nicht! ;-)
Fritz
In einem TB("Kalenderblatt") stehen in Zeile 1 Uhrzeiten - aber auch Texte.
In einem TB("Start")stehen in Spalte H Uhrzeiten. Mit dem folgenden Code möchte ich erreichen, dass in dem Tabellenblatt in der aktiven Reihe die Zelle in der Spalte selektiert wird, der sich mit dem Wert der TA("Start") deckt.
Ich hoffe, dass war zu verstehen.
Hier mein code:
Sub GesperrteZeitAusschließen()
Dim Zeit As Date
Dim Spalte As Long, Zeile As Long
Dim SpalteGefunden As Boolean
Zeit = Sheets("Start").Range("H7")
For Spalte = 4 To 65
''In Zeile 1 stehen nicht nur Zeiten, ohne Fehlerroutine Fehlermeldung
On Error Resume Next
If Cells(1, Spalte).Value = Zeit Then ''Zeit hat richtigen Wert
SpalteGefunden = True ''Spalte wird im zweiten Durchlauf gefunden
Exit For
End If
Next Spalte
If SpalteGefunden Then Cells(Zeile, Spalte).Select ''Schnittzelle wird nicht selektiert
End Sub
Wie immer wäre ich mal wieder sehr dankbar. Ich fummele schon den ganzen Nachmittag mit trail und error - error war überwiegend:-(
Grüße,
Fritz