Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro anpassen

Forumthread: Makro anpassen

Makro anpassen
mehmet
Hallo Forum,
wie kann ich nur die Spalte C,
der mit AutoFilter gesetzt wurde,
als eine Textdatei speichern?
Wenn ich Speichern unter als Text machen,
wird die ganze Tabelle gespeichert!
Dank und Gruss
mehmet
Anzeige
AW: Makro anpassen
23.02.2010 17:26:14
mehmet
ich sehe gerde was peinliches
Betreff ist wohl falsch formeliert, sorry.
AW: Makro anpassen
23.02.2010 17:41:22
Reinhard
Hallo Mehmet,
warum haste ihn nicht geändert?
Übrigens, welches makro?
Gruß
Reinhard
Spalte C (nur sichtbare) als Textdatei speichern
23.02.2010 18:24:56
mehmet
Hallo Reinhard,
es gab ein Makro, mit dem Recorder aufgenommen.
Habe es geloescht, da es den ganzen Sheet abgespeichert, statt nur
Spalte C und nur die gefilterten Sachen.
Waehre schoen, wenn ich ein Makro haette,
der nur Spalte C (per Autofilter gefilterte Strings) als Text speichert.
Als Trennung der einzelnen Zeilen in der Textdatei sollte dann mit Komma getrennt werden.
Koenntest Du mir bitte dabei helfen
Dank und Gruss
mehmet
Anzeige
Frage noch offen o.w.T.
23.02.2010 18:53:04
Reinhard

AW: Frage noch offen o.w.T.
23.02.2010 19:43:33
mehmet
Hallo Reinhard,
als Beispiel habe ich Spalte D (zeige alle, die mit Null enden) gefiltert.
Zeile 1 in gelb ist Ueberschrift.
Es soll jetzt nur Spalte C als Textdatei gespeicheret werden,
die auch zu sehen sind.
Textdatei sollte dann so aus sehen:
d10,d20,d30
Hier das Makro: 

Sub Macro3()
Range("B1").Select
ActiveWorkbook.SaveAs Filename:= _
"D:\Documents and Settings\g\Desktop\test01.txt", FileFormat:=xlText, _
CreateBackup:=False
Range("A1").Select
End Sub

Und wenn ich dann als Text gespeichert habe, verwandelt sich die Exceldatei in Textdatei (aber in einem Excel Application)!
https://www.herber.de/bbs/user/68206.xls
Dank dir im Voraus
Gruss
mehmet
Anzeige
AW: Frage noch offen o.w.T.
23.02.2010 19:47:06
Ramses
Hallo
Makro Aufzeichnung starten
Gefilterten Bereich markieren
Bearbeiten - Kopieren
In Symbolleiste "Datei Neu" wählen
Bearbeiten - Einfügen
Datei - Speichern unter - Textdatei
Aufzeichnung beenden
Gruss Rainer
AW: Frage noch offen o.w.T.
23.02.2010 20:02:40
mehmet
Hallo Rainer,
dank Dir erstmal
Die Textdatei ist aber nicht so:
d10,d20,d30
sondern so:
d10
d20
d30
Dank Dir
Gruss
mehmet
Anzeige
Formatfrage klären...
23.02.2010 20:26:47
Ramses
Hallo
Und warum muss Sie in diesem Format "d10,d20,d30" sein ?
Das wären in einem Import-Programm Werte in Spalten und keine gefilterten Datensätze
Gruss Rainer
AW: Formatfrage klären...
23.02.2010 20:47:43
mehmet
Hallo Rainer,
ich kopiere dann die Werte (z.B. "d10,d20,d30") und fuege es in eine Internet Formular ein.
Wenn die Werte untereinander stehen geht es nicht.
Gruss
mehmet
Anzeige
Von mir aus...
23.02.2010 21:29:32
Ramses
Hallo
Sub Create_CSV()
    Dim expStr As String
    Dim myC As Range, copyRng As Range
    'Bereich "B" anpassen wo gefiltert wird
    Set copyRng = Range("B2:B" & Rows.Count)
    For Each myC In copyRng
        If Rows(myC.Row).Hidden = False Then
            expStr = expStr & myC.Text & ","
        End If
        If myC.Offset(1, 0) = "" Then Exit For
    Next
    expStr = Left(expStr, Len(expStr) - 1)
    Open ThisWorkbook.Path & "\ExportFile.txt" For Output As #1
    Print #1, expStr
    Close #1
End Sub

Gruss Rainer
Anzeige
AW: Von mir aus...
23.02.2010 22:04:02
mehmet
perfect
ich Danke Dir Rainer
Gruss
mehmet
AW: Von mir aus...
24.02.2010 00:04:30
mehmet
Hallo Rainer,
sorry, ich nochmal.
Eigendlich brauche ich die Information, die in der Textdatei sind, in der Zwischenspeicher.
Die Daten könnte ich dann noch einfacher in die Internet Formular einfügen.
So muss ich immer wieder die erzeugte Datei löschen.
Auch Super währe, wenn ein Msgbox fragt, ob die Trennung
der einzelnen Daten in der Zwischenspeicher per "Komma", "Semikolon" oder "%20" getrennt werden soll.
Ich weiss, dass ich jetzt zusätzliche Arbeit mache.
Sorry nochmal und herzlichen Dank
Gruss
mehmet
Anzeige
Nein danke...
24.02.2010 09:08:49
Ramses
Hallo
Sei mir nicht böse,... aber dazu habe ich, auch schon wegen meiner Rückfrage ob das wirklich so sein soll, echt keine Lust mehr.
Gruss Rainer
AW: Entschuldigung
24.02.2010 09:25:55
mehmet
Hallo Rainer,
Sorry, dass ich dich gekränkt habe, ohne es zu wissen.
Ich hoffe, dass Du meine Entschuldigung annimmst.
Gruss
mehmet
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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