Spalten aus/einblenden



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Spalten aus/einblenden
von: TOM
Geschrieben am: 12.07.2002 - 09:43:55

Morgen Zusammen

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

Danke und Gruss
TOM


nach oben   nach unten

Re: Spalten aus/einblenden
von: @lex
Geschrieben am: 12.07.2002 - 10:11:56

Hallo Tom !
Ein Schleife starten
If Rows(i).Hidden = False (oder True) then
Comboxbox1.AddItem

VG,
Alex


nach oben   nach unten

Re: Spalten aus/einblenden
von: TOM
Geschrieben am: 12.07.2002 - 10:13:57

Besten Dank Alex
klappt Tip-Top

Gruss
TOM


nach oben   nach unten

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


nach oben   nach unten

Re: Danke, dass Du Dich bedankst :-) (n/t)
von: TOM
Geschrieben am: 12.07.2002 - 10:56:26

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


nach oben   nach unten

Re: Danke, dass Du Dich bedankst :-) (n/t)
von: @lex
Geschrieben am: 12.07.2002 - 12:44:17

Hallo Tom !
Du könntest vor dem Ausblenden die letzte beschriebe Zeile mit
i = cells(rows.Count,1).end(xlup).row
ermitteln

VG,
Alex


nach oben   nach unten

Re: Danke, dass Du Dich bedankst :-) (n/t)
von: TOM
Geschrieben am: 12.07.2002 - 14:32:40

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

nach oben   nach unten

Re: Danke, dass Du Dich bedankst :-) (n/t)
von: TOM
Geschrieben am: 12.07.2002 - 14:48:06

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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Spalten aus/einblenden"