Hilfe bei einem VBA-Script
26.11.2004 13:20:07
Ingo
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