Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
172to176
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code mit xlt

Code mit xlt
31.10.2002 08:58:00
sobe
Hallo,
habe ein Makro erstellt und will dieses nun mit einer xlt Datei verknüpfen.
Wenn das Makro aus der xlt heraus gestartet werden soll, wird versucht, die xls datei zu starten unter der das Makro entwickelt wurde. Wie kann ich das ändern ?
Gruß
Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Code mit xlt
31.10.2002 10:09:49
W
Du hast das Makro bestimmt mit "makro aufnehmen" hergestellt, oder? Gehe mal mit ALT+F11 in die Entwicklungsumgebung, und dann sieh Dir das ganze mal an. Wenn Du nicht weiter weißt, dann kopiere den Text und füge Ihn hier im Forum in einem Thread ein.


W.

Re: Code mit xlt
31.10.2002 12:13:49
sobe
Sub AlsTextSpeichern()

'Variablen festlegen
Dim TB As Worksheet
Dim Sheetname, Pfad As String


'Schleife für drei Tabellenblätter
For i = 2 To 4

Set TB = ThisWorkbook.Worksheets(i)

'Speicherort ermitteln
Pfad = ThisWorkbook.Path

'Tabellenname lesen für exportfile
Sheetname = TB.Name

'Exportfile Pfad angeben
exportfile = Pfad + "\" & Sheetname & ".csv"

'Exportfile öffnen
Open exportfile For Output As #1

'Spalten zählen
x = TB.UsedRange.Columns.Count

'Zeilen zählen und Ausgabe
For z = 1 To TB.UsedRange.Rows.Count

For s = 1 To x
TMP = TMP & CStr(TB.Cells(z, s).Text) & ";"

'Nächste Spalte
Next s

TMP = Left(TMP, Len(TMP) - 1)
Print #1, TMP
TMP = ""

'Nächste Zeile
Next z

'Exportfile schliessen
Close #1


'Schleife für drei Tabellenblätter Ende
Next i

MsgBox ("Die Katalogdaten wurden gespeichert")


End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige