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