AW: Zeig mal den Code den du verwendest...
11.11.2003 12:43:24
Heinrich M.
Kein Ding' nich, hier isser:
Sub CreateTexts()
rownum = 0
counter1 = 0
counter2 = 4
Range("B5").Select
Do While Application.ScreenUpdating = True
If ActiveCell.Value = "" Then
Application.ScreenUpdating = False
Else
rownum = rownum + 1
ActiveCell.Offset(3, 0).Select
End If
Loop
Application.ScreenUpdating = True
last_sheet = ActiveSheet.Name
new_textfile = Range("Configuration!B9").Value & "text\text_" & Range("Configuration!E11").Value & "\" & last_sheet & ".txt"
Workbooks.Open Range("Configuration!B9").Value & "text\print.txt"
new_workbook = ActiveWorkbook.Name
'Open new_textfile For Output As #1
For h = 1 To rownum
Windows("LocKit.xls").Activate
inhalt = Sheets(last_sheet).Range("K1").Offset(counter2, 0).Value
If [inhalt] = "" Then
new_inhalt = Sheets(last_sheet).Range("B1").Offset(counter2, 0).Value _
& Range("Referenz!A14").Value & Sheets(last_sheet).Range("L1").Offset(counter2, 0).Value & Range("Referenz!A15").Value
Else
new_inhalt = Sheets(last_sheet).Range("B1").Offset(counter2, 0).Value _
& Range("Referenz!A12").Value & Sheets(last_sheet).Range("K1").Offset(counter2, 0).Value & Range("Referenz!A13").Value _
& Range("Referenz!A14").Value & Sheets(last_sheet).Range("L1").Offset(counter2, 0).Value & Range("Referenz!A15").Value
End If
Windows(new_workbook).Activate
Range("A1").Offset(counter1, 0) = new_inhalt
' Print #1, new_inhalt
counter1 = counter1 + 1
counter2 = counter2 + 3
Next
'Close #1
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs new_textfile, xlUnicodeText
ActiveWorkbook.Close savechanges:=False
'Application.DisplayAlerts = True
Sheets(last_sheet).Activate
Range("L5").Select
End Sub
Sieht kompliziert aus, funktioniert aber wunderbar... Die auskommentierten Zeilen sind mein erster Versuch gewesen, die Textdatei zu erstellen - ging aber leider schief, weil ich dem Open-Befehl nicht beibringen konnte, die Textdatei in Unicode anzulegen.
Ich hoffe, jemand kann mir helfen - mein Chef steigt mir langsam auf's Dach :-)