Ausgeblendete Zeilen nicht berücksichtigen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: Ausgeblendete Zeilen nicht berücksichtigen
von: Holger
Geschrieben am: 15.04.2005 18:46:10
Hallo,
ich habe, hoffe ich, nur ein kleines Problem.
In meinem Tabellenblatt habe ich Zeilen durch Autofilter ausgblendet.
Ich möchte aber die restlichen Zeilen über Textboxen einlesen.
Leider bekomme ich immer die ausgeblendetet mit angezeigt.
Es werden die Daten so eingelesen als ob alles Sichtbar ist.
Mit welchem Code werden die ausgelendeten Zellen nicht berücksichtig.
Hier ist meiner mit dem ich es versucht habe, leider vergebens
Range("A1").Activate

TextBox1.Value = ActiveCell.Offset(1, 0).Value
TextBox2.Value = ActiveCell.Offset(2, 0).Value
TextBox3.Value = ActiveCell.Offset(3, 0).Value
TextBox4.Value = ActiveCell.Offset(4, 0).Value
Danke für die Hilfe
Holger

Bild

Betrifft: AW: Ausgeblendete Zeilen nicht berücksichtigen
von: Peter S.
Geschrieben am: 15.04.2005 20:12:51
Hallo Holger,
das Problem hatte ich auch schon; egal ob die Zeilen in der Tabelle sichtbar sind oder nicht, sie werden in die Textboxen eingelesen. Ich habe mir weitergeholfen, dass ich dann in Abhängigkeit des gewünschten Ereignisses die Textboxen sichtbar bzw. unsichtbar mache.
Hoffe der Ansatz hilft Dir
Gruß
Peter S.
Bild

Betrifft: Danke Peter ist aber nicht das was ich wollte
von: Holger
Geschrieben am: 15.04.2005 20:18:50
Danke Peter
Bild

Betrifft: Lösung selbst gefunden, nicht gut aber es Funktion
von: Holger
Geschrieben am: 15.04.2005 20:33:55
Hallo
habe die gefilterten Daten auf ein anderes Blatt übertragen und lese von dort meine
Textbox ein.
Hier ist mein Code
'GefilterteDatenKopieren()
Sheets("Geburtstage").Activate
ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
Sheets("Tabelle1").Activate
Range("A1").Select
ActiveSheet.Paste
wenn einer eine bessere Lösung kennt wäre ich ihm sehr Dankbar
Holger
Bild

Betrifft: AW: Lösung selbst gefunden, nicht gut aber es Funktion
von: Hajo_Zi
Geschrieben am: 16.04.2005 09:05:38
Hallo Holger,
Du brauchst die Daten nicht kopieren. Frage doch die Zeilenhöhe ab
MsgBox Rows(95).RowHeight
ausgeblendete Zeilen haben die Höhe 0

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ausgeblendete Zeilen nicht berücksichtigen"