Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1388to1392
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
Inhaltsverzeichnis

Ausblenden

Ausblenden
07.11.2014 11:57:01
Stefan
Guten Morgen Forum,
nachdem ich nun mehrmals meine Datei zerschossen habe, nun weiß ich warum mal zwischendurch sichern,
bitte ich um Hilfe.
Ich möchte gerne auf einem Tabellenblatt alle Zeilen ausblenden wo in der Spalte D keine Wert eingetragen ist.
Mit einem 2 Commandbutton möchte ich dann alle Zeilen wieder sichtbar machen.
Weiterhin benutze ich eine Code mit dem ich mir die Daten in ein Textdokument exportieren lasse.
Anbei der Code:
Sub Export()
Dim Datei As String, Text As String
Dim Zeile As Long
Dim zeigen
On Error GoTo Hell
Datei = ThisWorkbook.Path & "\test.xml"
Open Datei For Output As #1
For Zeile = 1 To 200
Print #1, Cells(Zeile, 2), Cells(Zeile, 4), Cells(Zeile, 5)
Next Zeile
Close #1
zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)
Exit Sub
Hell:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub
Wie bekomme ich es hin, das mir auch dort nur die befüllten Zeillen angezeigt werden.
Ich kopiere mir dann den Tet per copy an paste in eine leeres Worddokument und es ist recht aufwendig die Leerzeilen zu löschen.
Gruß
Stefan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden
07.11.2014 12:29:53
Rudi
Hallo,
dann exportiere nur die gefüllten Zeilen.
For Zeile = 1 To 200
If Cells(Zeile,4)"" then
Print #1, Cells(Zeile, 2), Cells(Zeile, 4), Cells(Zeile, 5)
End If
Next Zeile
Gruß
Rudi

Danke, Problem gelöst. o.T.
07.11.2014 14:08:46
Stefan
,
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige