Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Leere Zellen beim Exportieren ignorieren |
11.04.2021 18:24:45 |
Pu3a |
|
|
|
11.04.2021 18:28:55 |
Pu3a |
|
|
|
11.04.2021 20:40:48 |
Gast96704 |
|
|
|
11.04.2021 22:08:09 |
Pu3a |
|
|
|
11.04.2021 22:41:23 |
Gast41836 |
|
|
Von:
Pu3a |
Datum:
11.04.2021 18:24:45 |
Views:
802 |
Rating:
|
Antwort:
|
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!
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Leere Zellen beim Exportieren ignorieren |
11.04.2021 18:24:45 |
Pu3a |
|
|
|
11.04.2021 18:28:55 |
Pu3a |
|
|
|
11.04.2021 20:40:48 |
Gast96704 |
|
|
|
11.04.2021 22:08:09 |
Pu3a |
|
|
|
11.04.2021 22:41:23 |
Gast41836 |
|
|