Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Danke Günni!

Moin!

Wie ist es (auf möglich einfache Art und Weise) möglich per VBA (und dann einer mit dem Custom UI Editor hinzugefügten Schaltfläche) eine Tabelle in eine externe .txt Datei zu speichern?
Der Button steht, es fehlt nur noch das Makro. Beim bisherigen Code ist das Problem, dass immer der Inhalt des Blattes gespeichert wird auf dem man aktuell ist. Es soll aber immer nur ein bestimmtes Blatt gespeichert werden. Der Code bis jetzt (hab viel ausprobiert, deswegen ist er u.a. etwas durcheinander):
Sub StauplanSpeichern(control As IRibbonControl)
    Dim Dateiname As String
    Dim Zeile As Long
    Dim Spalte As Integer
    Dim GanzeZeile As String
    Dim Trennzeichen As String
    ' Hier wird der Dateipfad - und -name festgelegt:
    Dateiname = ThisWorkbook.Path & Application.PathSeparator & "Text-Export.txt"
    Zeile = 1
    Spalte = 1
    Trennzeichen = Chr(9) ' Chr(9) = Tabulator
    Open Dateiname For Output As 1
    ' Alle benutzten Zeilen der aktiven Tabelle werden durchlaufen
    For Zeile = 1 To Worksheets("Stauplan").UsedRange.Rows.Count
        ' Alle benutzten Spalten der aktiven Tabelle werden durchlaufen
        For Spalte = 1 To Worksheets("Stauplan").UsedRange.Columns.Count
            ' Werte der Zellen werden zusammengefügt, getrennt durch Tabstopps
            GanzeZeile = GanzeZeile & Trennzeichen & Cells(Zeile, Spalte).Value
        Next Spalte
        ' die ganze Zeile wird in die Datei geschrieben
        Print #1, GanzeZeile
        GanzeZeile = ""
    Next Zeile
    Close #1
End Sub
Vielen Dank schonmal!

Gruß PrinzPolo

Guten Morgen!

Um ein UserForm in Excel mittels "Abbrechen-Button" zu beenden wollte ich es mit dem Befehl .hide beenden. Leider taucht dieser Befehl in der Liste nicht auf. Warum? Gibt es andere Möglichkeiten? (Unload geht auch nicht)

Lg
PrinzPolo