Falls Leerzeile am Anfang, Leerzeile loeschen.
04.02.2004 07:44:48
Alexej
Ich habe ein Makro, das Werte aus einer Tabelle ausliest und diese in eine .xml Datei schreibt. Das Problem ist dabei, dass falls Leerzeichen am Anfang oder am Ende der Zeile sind, dann entsteht ein Fehler. Wie soll ich das Makro vervollstaendingen, dass ich sage: Wenn am Anfang oder am Ende der Zeile ein Leerzeichen ist, dann loesche es raus.
For k = BeginTableRow + 1 To table_height + BeginTableRow - 1
Dim RowName As String
RowName = source_wbk.Sheets(SheetName).Cells(k, BeginTableCol).Value
If Trim(RowName) <> "" Then
Print #1, "
Vielen Dank im Vorraus,
Alexej