Thema Datum  Von Nutzer Rating
Antwort
Rot Leere Zellen beim Exportieren ignorieren
11.04.2021 18:24:45 Pu3a
NotSolved
11.04.2021 18:28:55 Pu3a
NotSolved
11.04.2021 20:40:48 Gast96704
***
NotSolved
11.04.2021 22:08:09 Pu3a
NotSolved
11.04.2021 22:41:23 Gast41836
NotSolved

Ansicht des Beitrags:
Von:
Pu3a
Datum:
11.04.2021 18:24:45
Views:
116
Rating: Antwort:
  Ja
Thema:
Leere Zellen beim Exportieren ignorieren

Hallo zusammen,

leider bin ich mit VBA nicht wirklich vertraut, würde aber gerne ein Export-Makro erstellen.

Ich möchte die erste Spalte exportieren und es lässt sich nicht vermeiden, dass manche Zeilen leer sind.

Es ist doch bestimmt möglich die leeren Spalten beim Export wegzulassen, oder?

 

Folgendes habe ich bis jetzt zusammen:

Sub Export()
'Variablen definieren
Dim Zieldatei As String
Dim Zeile As Integer
Dim LastRow As Long

With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

On Error GoTo Fehler

'Tabellenblatt aktivieren
ThisWorkbook.Worksheets("CNC").Activate

Zieldatei = ThisWorkbook.Path & "\NC.txt"

Open Zieldatei For Output As #1

For Zeile = 1 To LastRow

Print #1, Cells(Zeile, 1).Value

Next Zeile

Close #1

MsgBox ("Programm erstellt")

Exit Sub

Fehler:
MsgBox Err.Description


End Sub

Vielen Dank im Voraus!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Leere Zellen beim Exportieren ignorieren
11.04.2021 18:24:45 Pu3a
NotSolved
11.04.2021 18:28:55 Pu3a
NotSolved
11.04.2021 20:40:48 Gast96704
***
NotSolved
11.04.2021 22:08:09 Pu3a
NotSolved
11.04.2021 22:41:23 Gast41836
NotSolved