Combobox Jahr auswählen und als Überschrift

Tom · 2017-01-24T13:40:57+00:00

Guten Tag, Ich hätte ein Anliegen vll kann mir jmd helfen. Ich mächte über eine Userform mit einer ComboBox eine Jahr auswählen können welches dann in die Überschriften verschiedener Tabellen geschrieben wird. Diese Tabellen sind in unterschiedlichen Worksheets aber in einer Arbeitsmappe kann mir jmd helfen?

Hallo
Code muss in den Bereich von "DieseArbeitsmappe"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    On Error GoTo Fehler
    Dim NName As String
    Cancel = True
    NName = Worksheets(1).Range("DasTextJahr").Value & " " & ThisWorkbook.Name
    Application.EnableEvents = False
    ThisWorkbook.SaveAs NName
    
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Hier hast du noch weiteren Code drin. Der soll normal in ein normales Modul
Den kannst du auch verkürzen. Auf select kann in 99% verzichtet werden.

Sub Makro1()
    ' MVT 1 Seite 1 befüllen von Tab1.3 
    Sheets("Tab1.3").Range("E16:U38").Copy
    Sheets("MVT 1 Seite 1").Range("E14:U36").PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tab1.3").Range("E40:U62").Copy
    Sheets("MVT 1 Seite 1").Range("E40:U62").PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tab1.3").Range("E64:U86").Copy
    Sheets("MVT 1 Seite 1").Range("E66:U88").PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Call Makro2
End Sub

die Anderen analog
LG UweD

Hallo
Lässt du das Makro im Einzelschrittmodus durchlaufen und wechselst evtl währenddessen die Datei?
Es kann nur an der aktivierung der 2 Dateien liegen, dass diese vertauscht werden.
Hier ein workarround, wo die Dateien explizit benannt werden.
Bitte änder im Kopf den Dateinamen auf deine Datei ab.

Sub SpeichernAls()
    Dim Pfad As String, NName As String, Ext As String, Jahr As String
    Dim Dlg As FileDialog, WBM As Workbook, WBNeu As Workbook
    On Error GoTo Fehler
    
    '** Anpassungen 
    Set WBM = Workbooks("Master.xlsm") ' Diese Datei 
    Pfad = "C:\Temp\Test\" 'Der Startpfad 
    NName = "Das wäre der Name"
    Ext = ".xlsx"
    '** 
    
    Application.ScreenUpdating = False
    Jahr = WBM.Worksheets(1).Range("DasTextJahr").Value
    
    'Verzeichnis wählen 
    Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
    With Dlg
        .AllowMultiSelect = False
        .InitialFileName = Pfad
        .Title = "Speicherort auswählen"
    End With
    
    If Dlg.Show = True Then
        Pfad = Dlg.SelectedItems(1) & "\"
        
        'Neue Datei erstellen 
        Set WBNeu = Workbooks.Add
        
        'Blätter kopieren 
        WBM.Sheets(Array("MVT 1 Seite 1", "MVT 1 Seite 2", "MVT 1 Seite 3", _
            "MVT 1 Seite 4", "MVT 1 Regional")).Copy after:=WBNeu.Sheets(1)
        
        'Erstes Blatt der Neuen Datei löschen 
        Application.DisplayAlerts = False
        WBNeu.Sheets(1).Delete
        Application.DisplayAlerts = True

        'Die neue Datei schpeichern 
        WBNeu.SaveAs Filename:=Pfad & NName & "_" & Jahr & Ext, _
            FileFormat:=xlOpenXMLWorkbook
        
        'Die ursprüngliche Datei achliessen 
        WBM.Close True 'False= ohne speichern schliessen 
    End If
    Err.Clear
Fehler:
    Application.DisplayAlerts = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD

Combobox Jahr auswählen und als Überschrift

Forumthread: Combobox Jahr auswählen und als Überschrift

35
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Combobox Jahr auswählen und als Überschrift

Forumthread: Combobox Jahr auswählen und als Überschrift

35 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

35
Beiträge zum Forumthread

Beiträge zu diesem Forumthread