Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Zeile in Textdatei immer leer?!

Forumthread: Letzte Zeile in Textdatei immer leer?!

Letzte Zeile in Textdatei immer leer?!
23.02.2005 14:49:27
Florian
Hallo Forum,
im Rahmen eines kleinen Programmes exportiere ich die Ergebnisse in eine Textdatei.
Leider ist die letzte Zeile immer eine Leerzeile und das darf in meinem Fall auf keinen Fall geschehen.
Hat einer eine Idee, wie ich die da wegbekomme?
Anscheinend ist eine leere Zeile schon beim Erstellen dort drin.
danke und Gruß aus Aachen,
Florian
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile in Textdatei immer leer?!
MichaV
Hi,
das liegt wohl an Deinem Code. Ohne Beispieldatei wird Dir keiner helfen können.
Gruß
AW: Letzte Zeile in Textdatei immer leer?!
23.02.2005 15:06:05
Florian
Hallo,
bestimmt liegt es an meinem Code, den ich im Anschluß anhängen werde.
Allerdings lautete meine Frage: "Wie lösche ich eine Zeile aus einer Textdatei?"
Gruß aus Aachen,
Florian
NAME = InputBox("Wie soll Ihre Datei heißen?")
DATEI1 = ActiveWorkbook.Path & "\" & NAME & ".txt"
Open DATEI1 For Output Access Write As #1
For k = 1 To iAnzahlMesspunkte * 2 + hMax - iAnzahlMesspunkte / 2 Step iAuflösung2
If IsEmpty(arrFolgeGDurchschnitt(k, 2)) Then
GoTo 1
Else
Print #1, Trim(arrFolgeGDurchschnitt(k, 2))
End If
1:
Next k
Close #1
'Modul1.DieLeerzeileEntfernen
MsgBox ("Ihre Daten wurden in die Datei " & NAME & ".txt umgewandelt. Sie finden sie in " & ActiveWorkbook.Path)
Anzeige
AW: Letzte Zeile in Textdatei immer leer?!
MichaV
Hi,
mit If IsEmpty(arrFolgeGDurchschnitt(k, 2)) prüfst Du doch nur, ob Deine Variable überhaupt einen Inhalt hat. Wenn Sie z.B. " " ist, dann ist Trim(" ")="", also wird eine leere Zeile geschrieben. Ich denke, Du solltest nur schreiben lassen, wenn Trim(arrFolgeGDurchschnitt(k, 2))&gt""
Ansonsten kannst Du generell aus eine Textdatei bestimmte Zeilen entfernen, wenn Du die Datei Zeile fü Zeile einliest und in eine zweite Datei Zeile für Zeile (bis auf die, die Du löschen willst) wieder ausgibst. Dann mußt Du nur die alte Datei löschen und die neue entsprechend umbenennen.
Hoffe, es hilft.
Gruß.
Anzeige
AW: Letzte Zeile in Textdatei immer leer?!
23.02.2005 15:34:03
Florian
Hallo,
leider macht die Abfrage
wenn trim... > "" keinen Unterschied. Es wird immernoch eine Leerzeile am Ende der txt-Datei ausgegeben. Dein zweiter Vorschlag klappt in meinem Versuch leider auch nicht. Siehe folgender Code:

Sub DieLeerzeileEntfernen()
Dim arr() As String
Dim i As Integer
Dim Dummy As String
Dim ltxt As String
Dummy = Modul1.DATEI1
Open Dummy For Input As #2
Do Until EOF(2)
Line Input #2, ltxt
i = i + 1
ReDim Preserve arr(i)
arr(i) = ltxt
Loop
Close
Open Dummy For Output As #2
For i = 1 To i - 2
Print #2, arr(i)
Next
Close
End Sub

Haste noch 'ne Idee? Ich hatte mein Glück schonmal mit sendkeys versucht, konnte aber keinen Kontakt zu der txt Datei herstellen.
Gruß,
Florian
Anzeige
AW: Letzte Zeile in Textdatei immer leer?!
Kurt 

Sub test()
Dim ff As Byte
Dim i As Byte
ff = FreeFile
Open "c:\temp\test1.txt" For Output As ff
For i = 65 To 90
Print #ff, Chr(i)
Next
Close
Open "c:\temp\test2.txt" For Output As ff
For i = 65 To 89
Print #ff, Chr(i)
Next
Print #ff, Chr(i), '<---man achte auf das komma
Close
End Sub

Anzeige
AW: Letzte Zeile in Textdatei immer leer?!
24.02.2005 10:51:30
Florian
Hallo Kurt,
danke für Deine Hilfe.
Deine Version funktioniert und verhindert eine Leerzeile am Ende.
Hast Du eine Idee, wie man das Einfügen von leeren Zeichen komplett unterbindet?
Oder müsste man die Leerzeichen über einen Zugriff und sendkeys "^a" & "{END}" & "{BACKSPACE} & "^s" & "%{F4}" entfernen?
Gruß aus Aachen,
Florian
Anzeige
;

Forumthreads zu verwandten Themen

Letzte Zeile
Walter

Hallo Excelfreunde,
Meine Kenntnisse in VBA sind gleich Null. Versuche es gerade zu lernen.
Was muß eingegeben werden damit nur bis zur letzen Zeile gedruckt wird?
Habe diesen Druckbereich. Es können 5 bis 90 Zeilen sein.
Sub BereichDrucken() Range("AE1:AP103").PrintOut Copies...
16.08.2008 09:41:32
Thread-ID: 1002319
7 Beiträge
Anzeige
Textfile letzte Zeile
Petra

Guten Morgen allerseits
mein Beitrag von gestern ist noch offen
https://www.herber.de/forum/messages/1003499.html
ich möchte meine Frage jetzt mal anders formulieren. Ich speichere ein Excelsheet als Textdatei ab. Wie ich auch aus mehreren Beiträgen entnehmen konnte, fügt Excel bei...
22.08.2008 10:08:12
Thread-ID: 1003757
9 Beiträge
Letzte Zeile in neues Blatt kopieren
Matthias

Hallo zusammen,
ich habe zwar in der Suche einiges über die LETZTE ZEILE gefunden, aber mein Problem konnte ich dennoch nicht richtig lösen.
Hier, was ich habe:
- In einer Excel-Datei mehrere Tabellen, die Anzahl kann sich ändern (z.B. Tabelle1, Tabelle2, Tabelle3...Tabelle 30)
...
11.09.2008 07:20:00
Thread-ID: 1008963
7 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Anzeige
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
Letzte Zeile kopieren
J.

Hallo zusammen!
Ich benötige ein Script, dass der Buttom die letzte beschriebene Zeile in einem Arbeitsblatt in die freie Zeile darunter kopiert. Wie geht sowas?
VG
J.H.
13.11.2008 10:14:00
Thread-ID: 1024082
4 Beiträge
letzte Zeile in Liste löschen
Uwe

Hallo an Alle,
in Tabelle3 hab ich einen Button, der mir in Tabelle1 in einer Liste den letzten Eintrag löschen soll.
Also die ganze Zeile ohne die Formatierungen zu verlieren.
Die Liste fängt in Tabelle1 ab Spalte B an.
Bei der Recherche hab ich da leider nix passendes gefunden...
23.11.2008 19:04:01
Thread-ID: 1027128
4 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Anzeige
Letzte Zeile bestimmen
Holger

Hallo zusammen,
wie kann ich ohne VBA die letzte Zeile in einer Formel bestimmen. Den Wert dieser Zelle möchte ich dann weiter verwenden.
Gruss
Holger
04.02.2009 13:12:38
Thread-ID: 1047018
8 Beiträge
letzte Zeile mit Daten
Claudia

Hallo Forum,
wie kann ich per VBA den Wert der letzten Zeile einer bestimmten Spalte (z.B. Spalte B) ausgeben lassen, bei dem in der Spalte links davon das aktuelle Datum drin steht? Kennt wer den Befehl dazu?
11.02.2009 18:37:00
Thread-ID: 1049731
10 Beiträge
Anzeige
letzte Zeile mit Daten
Claudia

Hallo Forum,
wie kann ich per VBA den Wert der letzten Zeile einer bestimmten Spalte (z.B. Spalte B) ausgeben lassen, bei dem in der Spalte links davon das aktuelle Datum drin steht? Kennt wer den Befehl dazu?
11.02.2009 18:37:00
Thread-ID: 1049732
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige