65536 Zellen - neues Tabellenblatt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
was für ein Gebiet beackerst Du denn?
Hier eine Möglichkeit, aufbauend auf Deinem bisherigen Code.

Sub Speichern()
'
'als .TXT unter "C:\" mit dem Dateinamen der Prüfung abgespeichert
'
Dim strNamen() As String
Dim i As Integer, intDat As Integer
Dim strInhalt As String
Dim strInhaltAlle As String
ReDim strNamen(0)
For Each objSh In ThisWorkbook.Worksheets
    If objSh.Name Like "SME" & "*" Then
        'jedes Blatt mit SME
        'Namen merken
        ReDim Preserve strNamen(UBound(strNamen) + 1)
        strNamen(UBound(strNamen)) = "C:\" & objSh.Name & ".txt" 'das .txt nicht vergessen!
        'Blatt als txt speichern
        On Error Resume Next
        Application.DisplayAlerts = False 'Abfrage unterdrücken, ob ggf. existierende Datei überschrieben werden soll
        objSh.SaveAs strNamen(UBound(strNamen)), FileFormat:=xlText, CreateBackup:=False
        On Error GoTo 0
        Application.DisplayAlerts = True
    End If
Next
If UBound(strNamen) > 1 Then
'falls mehrere Blätter gespeichert wurden
    intDat = FreeFile
    For i = 1 To UBound(strNamen)
        'jede txt öffnen und Inhalt in EINE Variable schreiben
        Open strNamen(i) For Binary As #intDat
            strInhalt = Space(LOF(intDat))
            Get #intDat, , strInhalt
        Close #intDat
        strInhaltAlle = strInhaltAlle & strInhalt
    Next i
    'jetzt diese Datei speichern
    Open "c:\tmp.tmp" For Output As #intDat
    Print #1, strInhaltAlle
    Close #intDat
    'alle anderen Dateien löschen
    For i = 1 To UBound(strNamen)
        On Error Resume Next
        Kill strNamen(i)
        On Error GoTo 0
    Next i
    'und die temporäre Datei zurückbenennen
    FileCopy "c:\tmp.tmp", strNamen(1)
    On Error Resume Next
    Kill "c:\tmp.tmp"
    On Error GoTo 0
    'das wars
End If
ActiveWindow.Close
ActiveWindow.Close
Application.Quit
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.

kann man herausfinden, sofern vorhanden. Nicht immer werden mehrere SME Tabellenblätter vorhanden sein. Was du in meinem Makro finden kannst, ist eben das definierte Spaltenkopieren.
- midestens ein Blatt, dessen Name SME* ist
- evtl. andere Blätter, mit Namen SM1*, SM2*[...] SM99* usw., durchgehend nummeriert, aber in unterschiedlicher Reihenfolge (mehr wie 10 werden es aber voraussichtlich niemals werden)
- diese Blätter sollen in aufsteigender Reihenfolge in EINE txt- Datei gespeichert werden? - mithilfe meiner UserForm werden bestimmte Werte gesetzt, die ausschlaggebend dafür sind, welche Spalten in (jeder) SM(E)* kopiert werden.
Sofern es mehrere SMEs sind, werden es dementsprechend auch mehrere Tabellenblätter sein mit den kopierten Spalten. Alle Tabellenblätter mit deren inhalte will ich aber in einem TXT haben (Tabulatortrennung)
Ich bin schon dabei, habs auch zur hälfte schon möchte ich mal sagen - aber wenn du was eleganteres und schneller zum Ziel kommst, ists natürlich super !

Beliebteste Forumthreads (12 Monate)

65536 Zellen - neues Tabellenblatt

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

65536 Zellen - neues Tabellenblatt

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread