For Each Next Schleife
02.12.2007 19:23:00
Mathias
ich habe mit folgender Schleife ein Problem.
Ich möchte gern, dass wenn in Zelle A20 oder in der Zelle A21 das Wort "Gesamt:" gefunden wird er sich, die Msg Box sich öffnet und er nach der Ok-Bestätigung der MsgBox in Zelle A6 geht.
Leider tut er das nur, was er soll, wenn in Zeile A20 "Gesamt:" steht. Steht es in Zelle A21, dann führt er die Schleife aus"
Ich hoffe ihr könnt mir helfen:
Private Sub CommandButton1_Click()
' Bevor etwas eingefügt wird muss geprüft werden,
' ob genügend Platz vorhanden ist
Dim Zelle As Range
For Each Zelle In Worksheets("Strom").Range("A20", "A21")
If Not Zelle.Value = "Gesamt:" Then
' Blattschutz wird aufgehoben
ActiveSheet.Unprotect "ARGE"
Dim lZeile As Integer '