Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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!
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
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!
Anzeige
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.
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
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

302 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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/ELSE in Excel (Porto anhand Gewicht berechnen)
Thomas

Hallo zusammen,
ich erstelle gerade ein Bestellformular mit Excel 2007 und möchte ein IF/ELSE Abfrage erstellen, die im Großen und Ganzen anhand eines bekannten Gewichtes die Preisliste von DHL abbildet.
Das ganze würde ich so oder so ähnlich formulieren:
if ($gewicht_kg >...
30.01.2009 12:55:49
Thread-ID: 1045369
5 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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
3
5
5
8
4
2
3
1
3
8
1
3
4
4
9
3
5
7
12
2
4
8
9