Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleife

Schleife
10.01.2022 10:08:13
Karl-Heinz
Hallo liebe Community,
mit meinen doch sehr bescheidenen VBA-Kenntnissen versuche ich seit Stunden vergebens eine Schleife hinzukriegen.
Es soll zwischen Zeile 5 und 25 nachstehendes ausgeführt werden. Ohne Schleife funktioniert es . Aber ich kapier das mit der Schleife nicht. Schon mal herzlichen Dank für Eure Hilfe.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("Z5").Value = X Then
With Range("AA5:AL5")
.Locked = False
'.FormulaHidden = True
.Interior.ColorIndex = 0
End With
Else
With Range("AA5:AL5")
.Locked = True
'.FormulaHidden = False
.Interior.ColorIndex = 15
End With
End If
If Range("Z6").Value = X Then
With Range("AA6:AL6")
.Locked = False
.Interior.ColorIndex = 0
End With
Else
With Range("AA6:AL6")
.Locked = True
.Interior.ColorIndex = 15
End With
End If
If Range("Z7").Value = X Then
With Range("AA7:AL7")
.Locked = False
.Interior.ColorIndex = 0
End With
Else
With Range("AA7:AL7")
.Locked = True
.Interior.ColorIndex = 15
End With
End If
'..usw
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife
10.01.2022 10:22:01
Oberschlumpf
Moin,
kannst du uns bitte per Upload eine Bsp-Datei mit deinem Code zeigen?
bei
...usw
bin ich raus.
Ciao
Thorsten
AW: Schleife
10.01.2022 10:42:26
Stefan
Hallo Karl-Heinz,
der Code ist, ohne BSP-Datei nicht anderst machbar, ungetestet.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lzeile As Byte
For lzeile = 5 To 25
With Range(Cells(lzeile, 27), Cells(lzeile, 38))
If Cells(lzeile, 26) = "X" Then
.Locked = False
'.FormulaHidden = True
.Interior.ColorIndex = 0
Else
.Locked = True
'.FormulaHidden = False
.Interior.ColorIndex = 15
End If
End With
Next
End Sub
Gruß
Stefan
Anzeige
AW: Schleife
10.01.2022 11:16:21
Karl-Heinz
Hallo Stefan,
vielen, vielen Dank! Funktioniert exakt wie ich es wollte!
Viele Grüße
Karl-Heinz
gerne, danke für die Rückmeldung....
10.01.2022 11:20:48
Stefan
....
Gruß Stefan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige