Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei erzeugen - Zeilenlänge nicht abschneiden

Textdatei erzeugen - Zeilenlänge nicht abschneiden
SteffenS
Hallo Zusammen,
ich erzeuge mit:
Dim strTemp as String
Open dat_fil For Append As #1
'1.Zeile setzen
For j = vspalte To bspalte
strTemp = strTemp & WS.Cells(azeile, j).Value & ";"
Next j
Print #1, strTemp & Chr(13)
Close #1
Der String in der Variablen strTemp kann sehr lang sein, so dass die Variable diesen nicht aufnehmen kann.
Wie schaffe ich es dennoch alle Werte in die textdatei zu schreiben?
Danke im Voraus.
VG
Steffen Schmerler

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Textdatei erzeugen - Zeilenlänge nicht abschneiden
01.07.2010 02:02:41
fcs
Hallo Steffen,
ich hab jetzt die Grenzen für Excel 2003 nicht präsent.
Unter Excel 2007 gilt Variablen vom Typ String:
Zeichenfolgen variabler Länge können bis zu 2 Milliarden (oder 2^31) Zeichen enthalten.
Zeichenfolgen fester Länge können 1 bis etwa 64 KB (2^16) Zeichen enthalten.
Mit folgender Testprozedur konnte ich ohne Probleme 50 Spalten mit fast 1500 Zeichen pro Zelle in eine Textdatei schreiben, also über 70000 Zeichen pro Zeile. 
Sub aatest()
Dim azeile As Long, vspalte As Long, bspalte As Long, j As Long
Dim strTemp As String, dat_fil As String, WS As Worksheet
Set WS = ActiveSheet
dat_fil = "C:\Users\Public\Test\TextDatei.txt"
Open dat_fil For Append As #1
'1.Zeile setzen
vspalte = 1: bspalte = 50
For azeile = 1 To WS.Cells.SpecialCells(xlCellTypeLastCell).Row
For j = vspalte To bspalte
strTemp = strTemp & WS.Cells(azeile, j).Value & ";"
Next j
Print #1, strTemp & Chr(13)
MsgBox Len(strTemp)
strTemp = ""
Next azeile
Close #1
End Sub
Was für riesige Zellinhalte versuchst du denn da in den Textstring zu schreiben?
Gruß
Franz
Anzeige
AW: Textdatei erzeugen - Zeilenlänge nicht abschneiden
01.07.2010 08:57:49
ing.grohn
Hallo Steffen,
versuch doch die einzelnen Zellen in die Datei zu schreiben.
Du schliesst ja eh die einzelnen Zeilen der Datei mit CHR(13) ab.
(Zeilenende einer sequentiellen Datei ist eigentlich Cursor-Return Line-Feed)
(hab ich nicht getestet)
Mit freundlichen Grüßen
Albrecht
AW: Textdatei erzeugen (geht so nicht)
01.07.2010 09:50:17
ing.grohn
Hallo Steffen,
mein Vorschlag geht so nicht!!
Jedes Print #1 erzeugt ein vbCrLf ob mit oder ohne ";"
MfG
Albrecht
AW: so gehts: Textdatei erzeugen -
01.07.2010 10:10:04
ing.grohn
Hallo Steffen,
ich konnte es nicht lassen.
So sollte es gehen:
alle Zellen einzeln mit Print # schreiben. Am Ende ein Semikolon!
Neue Zeile mit Print #1, vbCr
Sub abtest()
Dim azeile As Long, vspalte As Long, bspalte As Long, j As Long
Dim strTemp As String, dat_fil As String, WS As Worksheet
Set WS = ActiveSheet
dat_fil = "C:\eigene Dateien\TextDatei2.txt"
Open dat_fil For Output As #1
'1.Zeile setzen
vspalte = 1: bspalte = 4
For azeile = 1 To WS.Cells.SpecialCells(xlCellTypeLastCell).Row
For j = vspalte To bspalte
Print #1, WS.Cells(azeile, j).Value & "";
Next j
Print #1, vbCr
'MsgBox Len(strTemp)
strTemp = ""
Next azeile
Close #1
End Sub

Mit freundlichen Grüßen
Albrecht
Anzeige
danke
02.07.2010 16:24:39
SteffenS
für Eure hilfe,
kommerischeweise geht es jetzt auch mit meiner Version.
VG
Steffen

299 Forumthreads zu ähnlichen Themen

mtrans und variabler Zellbezug
Peter

Hallöchen an alle Excler,
dachte bisher, dass ich mich recht gut auskenne in Excel, aber wie immer wird man des öfteren eines besseren belehrt.
Folgende Formel habe ich:
{=SUMMENPRODUKT((T(INDIREKT(""&MTRANS(Aktionen!$A$2:$A$5)&"!A"&ZEILE($1:$100)))=A4) *(N(INDIREKT(""&a...
20.09.2008 13:28:45
Thread-ID: 1011196
3 Beiträge
Anzeige
Dropdown-Auswahlliste: Ausgabe anderer Text
Daniel

Hallo
Ich habe eine Dropdown-Auswahlliste erstellt, die auch funktioniert. Nun möchte ich aber, dass aus Platzgründen ein anderer (kürzerer) Text ausgegeben wird als in der Auswahlliste angezeigt wird.
Beispiel: Anzeige = Telefon ----- Ausgabe im Feld = Tel.
Ist das überhaupt mac...
04.12.2008 08:58:00
Thread-ID: 1030032
2 Beiträge
Labels u. TextBoxen in UserForm blinken lassen
Lenhard

Moin Excellianer!
Wie bringe ich in einem UserForm die Caption mehrerer Labels und den Hintergrund von TextBoxen (z.B. Gelb/Weiß im Wechsel) zum blinken, wenn in der TextBox1 ein Wert steht? Wenn in der TextBox1 kein Wert steht, dann soll es auch nicht blinken in den Labels und TextBoxen.
19.12.2008 17:16:00
Thread-ID: 1034201
21 Beiträge
Anzeige
differenz von konstanter und variabler zelle
konstanter

hallo zusammen,
brauche dringend hilfe von profis.
ich habe eine tabelle, in der ich wöchentliche zahlen von einer konstanten abziehen muß. das sieht ungefähr so aus, dass in zelle a3 eine konstante zahl habe und eine matrix mit wochen (c5;e5;g5;i5;k5 usw) für ca ein halbes jahr habe....
22.01.2009 21:45:16
Thread-ID: 1042742
5 Beiträge
Webabfrage und laufzeitfehler 1004
MBorn

Liebe Excel-Freunde,
ich bitte um Eure Hilfe. Ich bekomme bei einer (einfachen) Webabfrage dauernd, aber in
unregelmäßigen Abständen, die Fehlermeldung "laufzeitfehler 1004 - auf die Datei konnte
nicht zugegriffen werden".
Doch die Datei ist vorhanden und wird auch gefunden, w...
26.01.2009 17:26:00
Thread-ID: 1043962
3 Beiträge
6 Textboxen untereinander abstimmen
Andreas

Hi
Habe in einer Userform 6 Textbox für das ausfüllen (Anteilsinhaber) und 6 Textboxen für die
jeweiligen Anteile in %.
Diese Werte schreibe ich in eine Tabelle.
Da die Anteile zusammengerechnet nie über 100 % kommen dürfen, habe ich mit der Gültigkeit versucht, daß die einzel...
28.01.2009 21:00:27
Thread-ID: 1044723
16 Beiträge
Controltiptext für Label auf 2 Zeilen
Leon

Hi Leute
Habe gestern von Hajo und Tino gelernt wie man für ein Label ein Controltiptext erstellt.
Meine Frage:
Der Text ist ein wenig zu lang geraten und ich möchte es auf zwei Zeilen schreiben lassen.
Wie geht das?
Gruß
Leon
01.02.2009 19:19:00
Thread-ID: 1045969
14 Beiträge
Text in der Seitenansicht und im Druck
Sandra

Hallo zusammen,
hallo Thorsten - wenn Du da bist!
Ich weiß, ich habe versprochen eine Beispieldatei hochzuladen, aber in diesem Fall kann ich es nicht tun. Betriebsgeheimniss. Das Problem besteht nicht wenn ich den Text raus lösche und der Text darf halt nicht von der ganzen Welt gesehe...
04.02.2009 11:18:04
Thread-ID: 1046943
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
1
20
3
4
2
15
13
10
4
7
4
3
6
2
15
2
2
1
5
2
2
6
10