Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Ausblenden

Betrifft: Ausblenden von: Stefan Glander
Geschrieben am: 07.11.2014 11:57:01

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

  

Betrifft: AW: Ausblenden von: Rudi Maintaire
Geschrieben am: 07.11.2014 12:29:53

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


  

Betrifft: Danke, Problem gelöst. o.T. von: Stefan Glander
Geschrieben am: 07.11.2014 14:08:46

,


 

Beiträge aus den Excel-Beispielen zum Thema "Ausblenden"