Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Export in neue Tabelle

Betrifft: Export in neue Tabelle von: Vulferin
Geschrieben am: 16.09.2014 15:16:27

Hallo zusammen
ich habe Folgenden Code

  • Private Sub CommandButton10_Click()
    Columns("D:T").Select
        Selection.EntireColumn.Hidden = True
        ActiveWorkbook.SaveAs Filename:="C:\pfad\test.xlsx", _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            Columns("D:T").Select
        Selection.EntireColumn.Hidden = False
    End Sub


  • jetzt soll er aber beim Export der datei
    als datei name "c:\pfad\*.xlsx" & TextBox8.value nehmen
    so das er den Datei Namen aus der Textbox nimmt
    geht das ?
    Er soll die Tabelle auch ohne Macros und Userform speichern
    Tabellenballt heisst Tabelle1

      

    Betrifft: AW: Export in neue Tabelle von: EtoPHG
    Geschrieben am: 16.09.2014 15:47:48

    Hallo Vulferin,
    so?

    Filename:="C:\pfad\" & TextBox8 & ".xlsx", 

    Gruess Hansueli


      

    Betrifft: AW: Export in neue Tabelle von: fcs
    Geschrieben am: 16.09.2014 15:56:44

    Hallo Vulferin,

    im Prinzip geht es so:

    Private Sub CommandButton10_Click()
        Columns("D:T").Select
        Selection.EntireColumn.Hidden = True
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="D:\Test\" & TextBox8.Text, _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        Application.DisplayAlerts = True
        Columns("D:T").Select
        Selection.EntireColumn.Hidden = False
    End Sub
    

    Aber warum blendest du die Spalten D:T erst aus und dann wieder ein??

    Gruß
    Franz


      

    Betrifft: AW: Export in neue Tabelle von: Vulferin
    Geschrieben am: 16.09.2014 16:21:23

    Weil ich nur die ersten 3 Spalten in die neue Tabelle schreiben brauch ( mag
    der rest ist für den nötigen Zweck unnötig


      

    Betrifft: AW: Export in neue Tabelle von: Vulferin
    Geschrieben am: 16.09.2014 16:28:33

    ich bekomme laufzeit fehler 1004
    hmm


      

    Betrifft: AW: Export in neue Tabelle von: Vulferin
    Geschrieben am: 16.09.2014 16:34:13

    Misst ein fehler ist da noch.
    Er soll aber in der alten Tabelle aktive bleiben
    Ziehl ist das die ersten 3 Spalten als Excel für meine Leute Draußen als Übersicht dienen soll.
    Der Sub läuft jetzt. wenn ich es abspeicher geht er halt nur direkt in die neue gespeichert Tabelle
    das soll er wohl nicht tuen
    Ich will nur nach Monteur filtern und jedem eine Tabelle machen.


      

    Betrifft: AW: Export in neue Tabelle von: fcs
    Geschrieben am: 16.09.2014 16:48:16

    Hallo Vulferin,

    meinst du nicht auch, das die Fragen/Infos, die du in deinen letzten Antworten gestellt/gegeben hast für jemanden, der deine Datei/Tabellen nicht kennt, reichlich verwirrend sind?

    Gruß
    Franz


      

    Betrifft: AW: Export in neue Tabelle von: Vulferin
    Geschrieben am: 16.09.2014 17:10:18

    hier meine Tabelle
    https://www.herber.de/bbs/user/92635.xlsm


      

    Betrifft: AW: Export in neue Tabelle von: fcs
    Geschrieben am: 17.09.2014 14:09:38

    Hallo Vulferin,

    in deiner Datei finde ich keine Hinweise auf den Export von Daten oder einen SaveAs-Befehl.

    Da ist konkrete Hilfe schwierig.
    Wenn du die Arbeitsmape in der das Makro gespeichert ist zur aktiven Arbeitsmappe machen willst, dann geht das mit

    ThisWorkbook.Activate
    Gruß
    Franz


     

    Beiträge aus den Excel-Beispielen zum Thema "Export in neue Tabelle"