Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Else Schleife Bereich/Abhängigkeit definieren

Forumthread: If Else Schleife Bereich/Abhängigkeit definieren

If Else Schleife Bereich/Abhängigkeit definieren
28.07.2019 22:30:43
Moritz
Guten Abend, ich bin grade dabei mich immer tiefer in vba einzuarbeiten - leider dennoch ein Laie was If Else angeht.
Folgendes Problem, ich habe eine Tabelle, wenn dort Zeilen ausgeblendet werden (ab Zeile 18 bis 117) sollen entsprechend im anderen Tabellenblatt Spalte 1-4 (Zeile 18 ausgeblendet), 5 - 8 (Zeile 19 ausgeblendet) usw...
Grundlage dafür war bisher folgende Funktion:
If Sheets("Verteilung").Rows(18).Hidden = True Then
For spalte = 1 To 4
ActiveSheet.Columns(spalte).Hidden = True
Next spalte
Else
For spalte = 1 To 4
ActiveSheet.Columns(spalte).Hidden = False
Next spalte
End If
nun habe ich versucht das Ganze in einer Schleife zu vereinfachen, ich hacke aber dabei, dass er dann bei Zeile 19 entsprechend 5 - 8 ausblendet, 20 dann 9 - 12 usw.
Private Sub Worksheet_Activate()
Dim i As Integer
For i = 18 To 117
If Worksheets("Verteilung Blech").Rows(i).Hidden = True Then
For spalte = 1 To 4
ActiveSheet.Columns(spalte).Hidden = True
Next spalte
Else
For spalte = 1 To 4
ActiveSheet.Columns(spalte).Hidden = False
Next spalte
End If
Next
End Sub

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ohne Schleifen(n)
28.07.2019 23:08:41
{Boris}
Hi,
Spalten / Zeilen kannst Du auch "en bloc" bearbeiten.
Columns("A:D").Hidden = True
VG, Boris
AW: Ohne Schleifen(n)
28.07.2019 23:17:02
Moritz
Könntest du das bitte nochmal näher ausführen, wie genau ich das anstelle?
wenn ich das richtig verstehe müsste ich dann ja von F:I usw... fortschreiben, wie kriege ich das hin, dass excel das von selbst weiter kontrolliert
Zeile18 ausgeblendet - A:D/1-4
Zeile19 ausgeblendet - F:I/5-8
usw bis Zeile 117
Vielen Dank!
Anzeige
AW: Ohne Schleifen(n)
28.07.2019 23:22:43
onur
Das genügt:
Columns("A:D").Hidden =Sheets("Verteilung").Rows(18).Hidden
Columns("F:I").Hidden =Sheets("Verteilung").Rows(19).Hidden
AW: Ohne Schleifen(n)
28.07.2019 23:25:12
Moritz
Genau das System habe ich zuvor (in ähnlicher weise) genutzt, dann muss ich aber ja bis Zeile 117 den Code schreiben, die Mühe möchte ich mir sparen...
Anzeige
AW: Ohne Schleifen(n)
28.07.2019 23:55:37
onur 

Private Sub Worksheet_Activate()
Dim i, ii
For i = 0 To 99
ii = i * 4
Range(Cells(1, ii + 1), Cells(1, ii + 4)).EntireColumn.Hidden = Worksheets("Verteilung  _
Blech").Rows(i + 18).Hidden
Next i
End Sub

AW: Ohne Schleifen(n)
29.07.2019 00:04:56
{Boris}
Hi,
leicht alternativ:
Sub Spalten_ein_ausblenden()
Dim x As Long, y As Long
y = 1
For x = 18 To 117
Columns(y).Resize(1, 4).EntireColumn.Hidden = Worksheets("Verteilung Blech").Rows(x).Hidden
y = y + 4
Next x
End Sub
Jetzt such Dir was aus.
VG, Boris
Anzeige
AW: Ohne Schleifen(n)
29.07.2019 21:25:23
Moritz
Guten Abend,
leider funktionieren beide Funktionen nicht, es kommt bei beiden zu unregelmäßigen fehlern, teilweise ist trotz eingeblendeter zeile 18 bereits A bis D ausgeblendet.
Vielen Dank für die Mühe, das weiß ich zu schätzen!
AW: Ohne Schleifen(n)
29.07.2019 21:29:26
Moritz
-push
AW: Ohne Schleifen(n)
29.07.2019 21:43:22
onur
Glaube ich nicht - Poste doch mal so ein Beispiel.
Anzeige
AW: Ohne Schleifen(n)
29.07.2019 22:03:17
Moritz
Du hast vollkommen recht, ich habe einen Denkfehler - muss ich erstmal selbst drüber nachdenken, wie ich den gelöst bekomme. Besten Dank für die Hilfe x) Sorry
Beim Start des Makros...
30.07.2019 12:33:48
{Boris}
Hi,
...ist in dem Beispiel das Blatt mit den aus-/einzublendenden Spalten aktiv. Ansonsten musst Du Columns(y)… noch das Worksheet voranstellen:
Worksheets("Blabla").Columns(y).Resize(….)…
VG, Boris
Anzeige
AW: If Else Schleife Bereich/Abhängigkeit definieren
28.07.2019 23:20:00
onur
Und auch ohne IF: 
Columns("A:D").Hidden =Sheets("Verteilung").Rows(18).Hidden

;

Forumthreads zu verwandten Themen

If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Zeilen einfärben mit mehreren Bedingungen
donald

Hallo Forum,
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so da...
22.10.2008 12:03:56
Thread-ID: 1018296
6 Beiträge
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
If then else für Anfänger
Gunter

Hallo Zusammen,
wenn ich eine If then else Abfrage habe z.B:
If ComboBox2.Value = "Trailer" And TextBox10.Value = "" Then _
Label36.Visible = True
TextBox10.BackColor = &HFF&
If ComboBox2.Value = "Spot" And TextBox11.Value = "" Then _
Label37.Visible = True
T...
30.11.2008 12:49:00
Thread-ID: 1029010
9 Beiträge
If und else in Label.caption
Leon

Hi Zusammen
Was mache da falsch, daß Range I11 immer angezeigt wird obwohl nichts drin steht. Falls Range I11 grösser als 0 dann I11 zeigen ansonsten H11.
Private Sub userform_initialize() If Sheets("Wesentlichkeit").Range("I11") >= 0 Then Label20.Caption = Sheets("Wesentlichkeit")...
31.01.2009 22:28:06
Thread-ID: 1045773
3 Beiträge
Anzeige
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
Zählenwenn mit mehreren Bedingungen
Thomy

Hallo Excelprofis
Ich habe 2 Spalten. In der 1. befinden sich Zahlen und in der 2. Namen.
Welche Formel muss ich verwenden, wenn ich die Anzahl Zahlen in der Spalte A ermitteln will, die grösser als 2 und kleiner als 6 sind und in der Spalte B der Name Meier steht.
Ich bin mal bis...
13.03.2009 15:38:03
Thread-ID: 1059916
2 Beiträge
Anzeige
ZÄHLENWENN() mit mehreren Bedingungen
Kasimir

Hallo Leute,
irgendwie komme ich nicht weiter. Ich möchte eine ZÄHLENWENN()-Funktion mit mehreren Bedingungen erstellen, scheitere aber kläglich daran. Ich möchte eigentlich nur Zählen, wenn in Spalte B und C und D etwas steht. Das Ganze von Zeile 20 bis 269.
Mal als Beispiel, in Zelle...
14.03.2009 14:22:53
Thread-ID: 1060148
4 Beiträge
VBA Code if or then nicht richtig
andreas

Hallo zusammen,
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G...
13.05.2009 11:25:25
Thread-ID: 1074763
9 Beiträge
Wenn Und Funktion mit mehreren Bedingungen
Katja

Hallo Leute,
brauche bei einer Funktion Eure Hilfe.
Spalte F steht die Dienstart, z.B. VD, B, RB usw.
Spalte W steht die Stundenanzahl ohne Pausenabzug
Ich möchte jetzt folgendes berechnen:
WENN(UND(F2="VD";W2 kleiner als 6);W2;WENN(UND(F2="VD";W2 kleiner als 9);W2-0,5;W...
13.07.2009 13:55:40
Thread-ID: 1088213
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige