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

Hilfe bei einem VBA-Script

Hilfe bei einem VBA-Script
26.11.2004 13:20:07
Ingo
Guten Tag Ihr Lieben :)
Ich verstehe leider nicht viel von VBA
und möchte Euch daher hier um Hilfe bitten.
Ich setze folgendes VBA-Script ein,
um aus bestimmten Werten meiner Excel-Tabelle eine TXT-Datei zu "generieren":
--------------------------------------------------

Sub Froogle()
'Dieser Teil markiert den Spaltenbereich AL:AQ
'wenn in Zelle B ein Wert ist.
Dim Zeile1 As Integer
Dim Zelle As Range
Dim Bereich As String
Zeile1 = 1
Do Until Range("B" & Zeile1).Value = ""
Zeile1 = Zeile1 + 1
Loop
Range("AL1:AQ" & Zeile1 - 1).Select
'Dieser Teil schreibt aus dem markierten Bereich
'eine txt-Datei mit |-Trennzeichen.
Application.DisplayAlerts = False
Dim Zeile As Object
Dim s As String
Open "D:\SPACEart\Internet\SPACEart.info\Sonstiges\Froogle.txt" For Output As #1
For Each Zeile In Selection.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & "|"
Next
Print #1, s
s = ""
Next
Close #1
Application.DisplayAlerts = True
ActiveWindow.SmallScroll ToRight:=-20
Range("A1").Select
End Sub

--------------------------------------------------
In der TXT-Datei wird ja als Trennzeichen der senkrechte Strich eingesetzt.
Nun möchte ich es aber gerne so einrichten,
dass dieser senkrechte Strich
NICHT mehr hinter den letzten Wert jeder Zeile gesetzt wird.
Kann mir da von Euch vielleicht jemand behilflich sein ?
Das würde mich wirklich riesig freuen :)
Gruß
ingo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Print #1, Left(s,Len(s)-1)
Kurt
.
WUNDERBAR ... DANKE !!! ... o.T.
26.11.2004 14:41:05
Ingo
o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige