wenn der Cursor im Blatt "Eingabe" auf Spalte D kommt, wird ein Code ausgeführt, der in diesem Blatt eine Msg-Box erzeugt (funktioniert auch einwandfrei):
Dim offen As String
Dim abgerechnet As String
Dim bezeichnung As String
bezeichnung = ActiveCell.Offset(0, -2).Value
Sheets("Verknüpfung").Select
Range("E1").Select
Do Until ActiveCell.Value = bezeichnung
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 8).Select
offen = ActiveCell.Value
ActiveCell.Offset(0, -1).Select
abgerechnet = ActiveCell.Value
If offen = 0 Then
Sheets("Eingabe").Select
MsgBox ("Es sind keine Stunden mehr offen, es sind " & abgerechnet & " Stunden abgerechnet.")
ElseIf abgerechnet = 0 Then
Sheets("Eingabe").Select
MsgBox ("Es sind " & offen & " Stunden offen, es sind noch keine Stunden abgerechnet.")
ElseIf abgerechnet > 0 Then
Sheets("Eingabe").Select
MsgBox ("Es sind noch " & offen & " Stunden offen, es sind schon " & abgerechnet & " Stunden abgerechnet.")
End If
Mein Problem ist jetzt, dass ich das Blatt "Eingabe" durch 52 Blätter (Woche1 - Woche52) ersetzen möchte. Um jetzt nicht 52 verschiedene Codes zu schreiben, muß es doch eine Möglichkeit geben, statt Sheet("Eingabe").Select => ActiveSheet o.ä. zu schreiben??
Danke wieder für die Hilfe.
Nicole