Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Ausgeblendete Zeilen nicht berücksichtigen
15.04.2005 18:46:10
Holger
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgeblendete Zeilen nicht berücksichtigen
15.04.2005 20:12:51
Peter
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.
Danke Peter ist aber nicht das was ich wollte
15.04.2005 20:18:50
Holger
Danke Peter
Lösung selbst gefunden, nicht gut aber es Funktion
15.04.2005 20:33:55
Holger
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
Anzeige
AW: Lösung selbst gefunden, nicht gut aber es Funktion
16.04.2005 09:05:38
Hajo_Zi
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!"

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige