Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

macro umschreiben

macro umschreiben
06.02.2006 00:01:22
mehmet
hallo forum,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: macro umschreiben
06.02.2006 02:08:38
mehmet
nach langem experimentieren bin ich bis zu folgendem ergebnis gekommen:

Sub txt_datei_exportierenCorum()
Dim zeile As Integer
Dim spalte As Integer
Dim text As String
Dim rng As Range
Set rng = ActiveSheet.Range("a1:g10") 'Bereich festlegen
Close #1                              'Öffnen der Textdatei
Open ThisWorkbook.Path & "\" & ActiveSheet.Name & ".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 & ","
Next
Print #1, text
Next
End With
Close #1                               'Schließen der Textdatei
End Sub

leider kann ich nicht mehr weiter da mir kenntnise fehlen
könnentet ihr mir bitte dbzgl helfen
es muss nur noch der bereich auf variabel gesetzt werden
zb mit select oder offset statt range
dank im voraus
gruss
mehmet
Anzeige
AW: macro umschreiben
06.02.2006 09:24:10
u_
Hallo,
Set rng = ActiveSheet.Range(Cells(1, 1), Cells(65536, 1).End(xlUp).Offset(0, 6))
Gruß
Geist ist geil!
AW: macro umschreiben
06.02.2006 13:03:32
mehmet
funktioniert super
dank dir
kann man den ...).End(xlUp).Offset(0, 6))
also die 6 auch als variable definieren
gruss
mehmet

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige