Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1704to1708
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
If Else Schleife
28.07.2019 13:08:33
Moritz
Hallo,
aktuell nutze ich folgenden Code und kopiere diesen für die jeweils auszulesende Zelle, ich habe nun von der Möglichkeit von Schleifen gehört und würde so gerne den Code vereinfachen, wie genau stelle ich das an?
Das ist die Grundformel, nun habe ich aber C18 bis C117, die ich auslesen möchte und dementsprechend in dieser Tabelle dann die entsprechende Zeile ausblenden.
If Worksheets("Verteilung").Range("C18").Value = "" Then
Rows(18).Hidden = True
Else
Rows(18).Hidden = False
End If
End Sub
If Worksheets("Verteilung").Range("C19").Value = "" Then
Rows(19).Hidden = True
Else
Rows(19).Hidden = False
End If
End Sub
Ein erster Versuch:

Private Sub Worksheet_Activate()
Dim i As Integer
For i = 18 To 117
If Worksheets("Verteilung").Cells("i, 3").Value = "" Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next
End Sub

Ich bin über jeden Hinweis dankbar :'D

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Fast...
28.07.2019 13:13:16
{Boris}
Hi,
...nicht
Cells("i, 3")
sondern
Cells(i, 3)
VG, Boris
AW: Fast...
28.07.2019 13:22:40
Moritz
Vielen Dank!
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige