Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

tabelle als text-datei speichern mit zusatz

tabelle als text-datei speichern mit zusatz
10.10.2006 13:23:56
mehmet
hallo forum
ich habe zwar bereits meine frage gestellt
allerdings gehe ich davon aus, dass ich mich nicht verstaendlich ausdruecken konnte
hier meine frage:
ich moechte die aktuelle tabell als text-datei speichern
allerdings sollte (fuer jede spalte) jedesmal, wenn übertragen wird, kommentare (die in makro vorgegeben sind) mit eingeschrieben werden
wenn ich also 4 spalten haben sollte, soll die datei.txt so aussehen:
print #1, "zusatz kommentar spalte a"
print #1, "zusatz kommentar spalte b"
print #1, "zusatz kommentar spalte c"
print #1, "zusatz kommentar spalte d"
dank fuer euer verstaendnis & hilfe
gruss

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: tabelle als text-datei speichern mit zusatz
10.10.2006 13:40:11
ede
siehe unten!!!!
gruss
AW: tabelle als text-datei speichern mit zusatz
10.10.2006 16:26:06
mehmet
hallo ede
nein´, so mein ich das nicht 8-)
hier ein beispiel

an anfang kommentar 1
an anfang kommentar 2
an anfang kommentar 3
infoA   Zellea1   infoB   Zelleb1   infoiC   Zellec1   ...
infoA   Zellea2   infoB   Zelleb2   infoiC   Zellec2   ...
infoA   Zellea3   infoB   Zelleb3   infoiC   Zellec3   ...
infoA   Zellea4   infoB   Zelleb4   infoiC   Zellec4   ...
infoA   Zellea5   infoB   Zelleb5   infoiC   Zellec5   ...
infoA   Zellea6   infoB   Zelleb6   infoiC   Zellec6   ...
infoA   Zellea7   infoB   Zelleb7   infoiC   Zellec7   ...
infoA   Zellea8   infoB   Zelleb8   infoiC   Zellec8   ...
infoA   Zellea9   infoB   Zelleb9   infoiC   Zellec9   ...
infoA   Zellea10  infoB   Zelleb10  infoiC   Zellec10  ...
am ende kommentar 1
am ende kommentar 2
am ende kommentar 3

ps:
(=infoA ist immer gleich)
(=infoB ist immer gleich)
(=infoC ist immer gleich)
(=.. )
(=infoH ist immer gleich)
gruss
mehmet
Anzeige
AW: tabelle als text-datei speichern mit zusatz
10.10.2006 18:27:07
mehmet
ach so
siehe unten forumliste 8-)
ich dep, dank dir ede
es funtioniert
gruss
AW: tabelle als text-datei speichern mit zusatz
10.10.2006 18:42:33
mehmet
sorry ede
ich noch mal (grr*peinlich)

kommentar1 soll nicht kommentar1 heissen sondern:
arraycount += 1 ;urlsArray[arraycount] = '<a href="
kommentar2 sollte heisen:
" target="
kommentar3:
">
kommentar4:
</a>';namesArray[arraycount] = '
kommentar5:
';descArray[arraycount] = '
und zu letzt kommentar6:

diese kommentare beinhalten sonderzeichen
wie kann ich diese in module umgehen
dank & gruss
AW: tabelle als text-datei speichern mit zusatz
10.10.2006 22:04:18
ede
hallo,
melde mich diesbezüglich morgen im laufe des vormittages nochmal!
gruss
Anzeige
AW: tabelle als text-datei speichern mit zusatz
11.10.2006 08:35:25
ede
schönen guten morgen,
anbei ein erneuter code, hoffe jetzt funkt alles!
gruss

Sub MachHinne()
Dim zeile As Integer
Dim spalte As Integer
Dim text As String
Dim rng As Range
Dim strKTexte(6) As String
Set rng = ActiveSheet.Cells(1, 1).CurrentRegion
Close #1                              'Öffnen der Textdatei
Open ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt" For Output As 1
' ---> am anfang text einfügen
Print #1, "Start " & Now()
' ---> Kommentartexte definieren
strKTexte(1) = "arraycount += 1 ;urlsArray[arraycount] = '<a href="""
strKTexte(2) = """ target="""
strKTexte(3) = """>"
strKTexte(4) = "</a>';namesArray[arraycount] = '"
strKTexte(5) = "';descArray[arraycount] = '"
strKTexte(6) = "';"
' ---> zeilenweise exportieren
With rng
For zeile = 1 To .Rows.Count          'Schleife für Zeilen
text = ""                             'zurücksetzen für neue zeile
For spalte = 1 To .Columns.Count      'Schleife für Spalten
text = text & strKTexte(spalte) & CVar(.Cells(zeile, spalte))
'If spalte < .Columns.Count Then text = text & ""  'komma entfernt
Next spalte
Print #1, text
Next zeile
End With
'am ende text einfügen
Print #1, "Ende"
Close #1                               'Schließen der Textdatei
End Sub

Anzeige
AW: tabelle als text-datei speichern mit zusatz
11.10.2006 09:27:37
mehmet
guten morgen ede
super, es klappt
allerdings wird

strKTexte(6) = "';"

nicht mit eingeschrieben
kann es sein, dass es sonderzeichen (semikolon) enthaelt
gruss
mehmet
AW: tabelle als text-datei speichern mit zusatz
11.10.2006 09:31:03
ede
nein,
es sieht danach aus, das du nur 5 spalten in deiner exceltabelle hast!
mach mal ein leerzeichen in die spalte F!
gruss
AW: tabelle als text-datei speichern mit zusatz
11.10.2006 09:51:40
mehmet
super ede, alles klar
jetzt kann ich weiter arbeiten 8-)
herzliche gruesse & dank aus köln
gruss
mehmet
was mache ich wenn..
11.10.2006 22:59:47
mehmet
hallo ede,
sorry ich noch mal 8-)
was mache ich, wenn mein kommentar so aus sieht:

Print #1, "<table border="" cellpadding="" cellspacing="" bordercolor="" style="">"

als datei.txt wird es so abgespeichert:

<table border=" cellpadding=" cellspacing=" bordercolor=" style=">

es fehlen die gänsefuesse oben "
was schlägst du vor
gruss
Anzeige
AW: was mache ich wenn..
12.10.2006 09:01:44
ede
guten morgen,
zum verständnis zum gänsefüsschen oben.
zeichenketten werden generell in vba in gänsefüsschen geschrieben. wenn man
das zeichen selber innerhalb der zeichenkette haben möchte, wird es mit dem
gänsezeichen selber markiert!
beispiel als zeichenkette soll das kommen: text"resttext
dann solltest du es in vba so übergeben: Print #1, "text""resttext"
gruss
AW: was mache ich wenn..
12.10.2006 09:04:50
ede
für dein beispiel:
Print #1, "
"
gruss
AW: was mache ich wenn..
ede

für dein beispiel:
Print #1, "&lttable border="""" cellpadding="""" cellspacing="""" bordercolor="" style=""""&gt"
gruss
AW: was mache ich wenn..
mehmet

guten morgen ede
super, war ja total easy (muss man ja wissen 8-) )
herzliche gruesse
Anzeige
AW: was mache ich wenn..
12.10.2006 09:05:15
ede
für dein beispiel:
Print #1, "&lttable border="""" cellpadding="""" cellspacing="""" bordercolor="" style=""""&gt"
gruss
AW: was mache ich wenn..
12.10.2006 09:19:08
mehmet
guten morgen ede
super, war ja total easy (muss man ja wissen 8-) )
herzliche gruesse

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige