Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten aus/einblenden

Forumthread: Spalten aus/einblenden

Spalten aus/einblenden
12.07.2002 09:43:55
TOM
Morgen Zusammen

Wie finde ich heraus welche Spalten oder Zeilen ausgeblendet sind, damit ich sie in eine Combobox schreiben kann.

Danke und Gruss
TOM

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Spalten aus/einblenden
12.07.2002 10:11:56
@lex
Hallo Tom !
Ein Schleife starten
If Rows(i).Hidden = False (oder True) then
Comboxbox1.AddItem

VG,
Alex

Re: Spalten aus/einblenden
12.07.2002 10:13:57
TOM
Besten Dank Alex
klappt Tip-Top

Gruss
TOM

Danke, dass Du Dich bedankst :-) (n/t)
12.07.2002 10:19:45
@lex

Anzeige
Re: Danke, dass Du Dich bedankst :-) (n/t)
12.07.2002 10:56:26
TOM
Sali Alex
ich habe mich glaube zu früh bedankt.............
Deine Schleife habe ich ausprobiert aber wie definiere ich das Ende wenn ich nicht weiss bis wo Zeilen ausgeblendet sind (??)

Sub Ausgeblendet()
Dim i
Dim strZeile As String
For i = 1 To ??
If Rows(i).Hidden = True Then
strZeile = Rows.Address
ComboBox1.AddItem strZeile
End If
Next i
End Sub

Hast Du nochmals einen Tip
Gruss aus der Schweiz
TOM

Anzeige
Re: Danke, dass Du Dich bedankst :-) (n/t)
12.07.2002 12:44:17
@lex
Hallo Tom !
Du könntest vor dem Ausblenden die letzte beschriebe Zeile mit
i = cells(rows.Count,1).end(xlup).row
ermitteln

VG,
Alex

Re: Danke, dass Du Dich bedankst :-) (n/t)
12.07.2002 14:32:40
TOM
Sali Alex

ich bin's nochmals.....
Habe meine Code nochmals angepasst.....Danke für Deinen Tip.
Sub Ausgeblendet()
Dim i
Dim strZeileNr As String
Dim strLetzteBeschriebeneZelle As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Rows(i).Hidden = True Then
strZeileNr = Rows.Address
ComboBox1.AddItem strZeileNr
End If
Next i
End Sub

Hast Du mir jetzt noch einen letzten Tip wie ich die Zeilen-Nr. bekomme. Mit Rows.Address bekomme ich "$1:$65536"
Ich möchte aber in der Combobox1 "Zeile 1" aufgeführt.

Danke und schönes Weekend
TOM

Anzeige
Re: Danke, dass Du Dich bedankst :-) (n/t)
12.07.2002 14:48:06
TOM
Tschuldigung, habe nichts studiert, habe die Lösung:

Sub Ausgeblendet()
Dim i
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Rows(i).Hidden = True Then
ComboBox1.AddItem "Zeile " & i
End If
Next i
End Sub

Danke für Deine Geduld
TOM

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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