macro umschreiben
06.02.2006 00:01:22
mehmet
ich habe folgendes macro:
Sub txt_datei_exportierenCorum()
Dim zeile As Integer
Dim spalte As Integer
Dim text As String
Dim rng As Range
'Bereich festlegen
Set rng = Sheets("corum").Range("a1:h12")
Close #1
'Öffnen der Textdatei
'Open "tdc.csv" For Output As 1 'speichert in eigene dateien
Open ThisWorkbook.Path & "\corum.txt" For Output As 1
With rng
'Schleife fürZeilen
For zeile = 1 To .Rows.Count
text = ""
'Schleife für Spalten
For spalte = 1 To .Columns.Count
text = text & CVar(.Cells(zeile, spalte))
If spalte < .Columns.Count Then text = text & "," 'Trennzeichen = ;
Next
Print #1, text
Next
End With
'Schließen der Textdatei
Close #1
End Sub
mit dieser macro wird eine text datei namens "corum" (a1:h12) erstellt
1)
wo & was muss man ändern, damit die text datei nicht den festen namen
vom macro bekommt sondern den namen der tabelle
2)
wie kann man den macro so umschreiben, damit es nicht im macro bereich
a1 bis h12 speichert sondern die vorhandenen werte der spalte a speichert (natürlich die dazu gehörigen zeilen)
dank im vorraus
gruss
mehmet