VBA-Selection
02.12.2003 15:35:52
Gerhard
ich habe hier ein Script und komme damit nicht ganz klar:
Wenn ich bei Zeile Rows("4:4").Select bin, so wird in allen Tabellenblättern meiner Tabelle die Zeile 4 markiert, was zur Folge hat, dass beim Durchlaufen der Schleife dann in der Tabelle "Feiertage" nicht der nächste Datensatz gefunden wird.
Sub FeiertageÜbertragen()
Dim Ftag As Date
Dim fmon As String
'Makro greift auf Tabelle Feiertage zurück
Sheets("Feiertage").Select
Range("B1").Select (hier steht der erste Feiertag)
Do Until ActiveCell.Value = ""
Ftag = ActiveCell.Value
fmon = Mid(Ftag, 4, 2)
If fmon < "07" Then Sheets("1. Halbjahr").Select _
Else: Sheets("2. Halbjahr").Select
'Den Feiertag suchen
Rows("4:4").Select (hier stehen die Daten von 01.01.2003-30.06.2003)
On Error Resume Next
Selection.Find(What:=Ftag, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.EntireColumn.Interior.ColorIndex = 15
If Application.ActiveSheet.Name = "1.Halbjahr" _
Then Range("C1:GA2").Interior.ColorIndex = xlNone _
Else Range("C1:GD2").Interior.ColorIndex = xlNone
Sheets("Feiertage").Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub