Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten ausblenden - Schleife

Spalten ausblenden - Schleife
29.07.2003 12:10:44
Markus
Hallo und guten Tag,
ich habe heute ein Problem wo ich noch nicht weiß was ich machen soll.
Ich habe in einem Blatt 40 Zeilen (11 bis 60) dort frage ich ab ob eine 1 drin steht oder nicht.
Nun soll in einem anderem Blatt unter Abhängigkeit von der oberen Abfrage Spalten ein bzw. ausblendet
werden.
Z.B. es steht im Blatt A unter Zeile 11 eine 1, dann soll in Blatt B die Spalte 3 bis 6 einblendet werden,
steht in spalte 12 eine 2 soll diese nicht einblendet werden, die spalten sind zusammenhängend.
Ich bekomme dies mit 40 Abfrage hin aber ich wollte dies gern mit zwei schleifen machen, dass in blatt A die erste schleife und in blatt B die zweite spalte läuft.
Oder habt Ihr vielleicht ne andere Idee.
Danke schonmal, ich hoffe ich habe mich nicht zu kompliziert ausgedrückt.
Markus

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden - Schleife
29.07.2003 12:20:00
ChrisL
Hi Markus
A - Zeile 11 = 1
B - Spalte 3 bis 6 einblenden
A - Spalte 12 = 2
B - nichts einblenden
Daraufs kann ich kein System erkennen... Spalte/Zeile? Was geschieht bei 13, 14 etc.
Gruss
Chris

AW: Spalten ausblenden - Schleife
29.07.2003 12:56:11
ChrisL
Hi Markus
Option Explicit

Sub EinAusblenden()
Dim iZeile As Byte
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Worksheets("TabelleA")
Set WS2 = Worksheets("TabelleB")
For iZeile = 11 To 60
If WS1.Cells(iZeile, 1) = 1 Then
WS2.Columns(((iZeile - 10) * 3) + 9).EntireColumn.Hidden = False
WS2.Columns(((iZeile - 10) * 3) + 10).EntireColumn.Hidden = False
WS2.Columns(((iZeile - 10) * 3) + 11).EntireColumn.Hidden = False
Else
WS2.Columns(((iZeile - 10) * 3) + 9).EntireColumn.Hidden = True
WS2.Columns(((iZeile - 10) * 3) + 10).EntireColumn.Hidden = True
WS2.Columns(((iZeile - 10) * 3) + 11).EntireColumn.Hidden = True
End If
Next iZeile
End Sub

Gruss
Chris

Anzeige
AW: Spalten ausblenden - Schleife
29.07.2003 13:11:21
Nepumuk
Hallo Markus,
oder so:

Option Explicit
Public Sub test()
Dim zeile As Integer, spalte As Integer
For zeile = 11 To 50
For spalte = (zeile - 10 + 3) * 3 To (zeile - 10 + 3) * 3 + 2
Worksheets(2).Columns(spalte).EntireColumn.Hidden = Worksheets(1).Cells(zeile, 1) <> 1 And Worksheets(1).Cells(zeile, 1) <> 2
Next
Next
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

Anzeige
AW: Spalten ausblenden - Schleife
29.07.2003 12:20:21
Nepumuk
Hallo Markus,
ich sehe da keine Logik Zeile 11 = Spalte 3-6, Zeile 12 = nichts. Kannst du das näher erläutern?
Gruß
Nepumuk
P.S.: Zeile 11 bis 60 = 50 Zeilen

AW: Spalten ausblenden - Schleife
29.07.2003 12:36:06
Markus
Also
Tabelle A --> Zeile 11 =1 --> dann Tabelle B Spalte 12-14 einblenden
Tabelle A --> Zeile 11 =2 --> dann Tabelle B Spalte 12-14 ausblenden
Tabelle A --> Zeile 12 =1 --> dann Tabelle B Spalte 15-17 einblenden
Tabelle A --> Zeile 12 =2 --> dann Tabelle B Spalte 15-17 ausblenden
und das ganze geht bis Tabelle A --> Zeile 51.
Die Spalten in Tabelle B sind zusammenhängend, sehen gleich aus und der Bereich der ein bzw. ausgeblendet werden soll betsteht immer aus 3 Spalten.
Ich hoffe es ist jetzt etwas verständlicher.
Danke schonmal
Markus

Anzeige
Danke habt mir sehr geholfen
31.07.2003 19:35:53
Markus
Markus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige