Werte zuweisen innerhalb einer Schleife

• Werte zuweisen innerhalb einer Schleife von Jan vom 30.10.2003 15:02:06
  • AW: Werte zuweisen innerhalb einer Schleife - von Hajo_Zi am 30.10.2003 15:05:23
    • AW: Werte zuweisen innerhalb einer Schleife - von Jan am 30.10.2003 15:09:31

Betrifft: Werte zuweisen innerhalb einer Schleife
von: Jan
Geschrieben am: 30.10.2003 15:02:06
Hallo,

ich möchte gerne den Wert einer Zelle überprüfen und wenn der Wert nicht einem bestimmten entspricht ("J"), dann soll die Zelle nebendran einen anderen Wert ("inaktiv") bekommen.
Das soll in 300 Zeilen geschehen. Mein Entwurf:

Dim Zeile As Integer

For Zeile = 1 To 300
Set curcell = Worksheets("Tabelle1").Cells(Zeile, "I")
If (curcell.Value) = "J" Then
Set curcell = Worksheets("Tabelle1").Cells(Zeile, "J")
curcell.Select
ActiveCell.FormulaR1C1 = "inaktiv"
End If
Next

Wo ist der Fehler??

Betrifft: AW: Werte zuweisen innerhalb einer Schleife
von: Hajo_Zi
Geschrieben am: 30.10.2003 15:05:23
Hallo Jan

Sub Test3()
Dim Zeile As Integer
For Zeile = 1 To 300
If Worksheets("Tabelle1").Cells(Zeile, 9) = "J" Then
Worksheets("Tabelle1").Cells(Zeile, 10) = "inaktiv"
End If
Next
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.



Betrifft: AW: Werte zuweisen innerhalb einer Schleife
von: Jan
Geschrieben am: 30.10.2003 15:09:31
DANKESCHÖN :-)

Excel-Beispiele zum Thema " Werte zuweisen innerhalb einer Schleife"
Gruppe von Optionsfeldern kopieren und Makro zuweisen	Bei Aktivierung einer Arbeitsmappe ShortCut zuweisen
Benutzerdefiniere Funktion einer Schaltfläche zuweisen	Button im selektierten Bereich erstellen und Makro zuweisen
Bei Eingabe Grafiken in alle Tabellen und Makro zuweisen	In einer Schleife auf Elemente einer UserForm zugreifen
CheckBoxes in UserForms in eine Schleife einbinden	Gruppe von UserForm-ListBoxes über eine Schleife ansprechen
UserForm-Optionsfelder über eine Schleife zurücksetzen