VBA: Blatt-Name in Variable setzen durch manuelle Auswahl

[Rabe]

Hallo,
mit folgendem Code öffne ich eine Datei, wenn ein Blatt "BOM" enthalten ist und verwende dann Daten aus diesem Blatt.

Wenn das Blatt nicht vorhanden ist, kommt eine Fehlermeldung. Ich will nun stattdessen, daß ich das gewünschte Blatt aus einer Namensliste auswählen kann.
Also:

1. öffne eine Datei mit Dateiauswahl-Dialog
   
2. Auswahlmöglichkeit eines Blattes aus einer Liste der enthaltenen Arbeitsblätter
   
3. setze den ausgewählten Namen in die Variable strBOM
   

Wie geht das?

Auswählen_Datei_1:
   
   OQOneu = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Auswählen der ersten Datei zum Datenabgleich!")
   Set WB = Workbooks.Open(OQOneu)
   Set strBOM = "BOM"
   bolIstDa = False
   
   For i = 1 To WB.Sheets.Count
      If WB.Sheets(i).Name = strBOM Then
         bolIstDa = True
         Exit For
      End If
      If Not bolIstDa Then
         MsgBox ("Keine BOM enthalten, falsche Datei, bitte die richtige auswählen!")
         WB.Close savechanges:=False
         GoTo Auswählen_Datei_1
      End If
   Next
   
   With WB.Sheets(strBOM)         'Filter rücksetzen 
      If .AutoFilterMode Then
         If .FilterMode Then
            .ShowAllData
         End If
      End If
   End With

[atilla]

Hallo Ralf,

ich würde dann eine Userform mit einer Listbox einsetzen.

Du müsstest dann mit einer Public Variablen in einem Modul den Namen übergeben..

Dein Code könnte so abgeändert werden:

Code:

Option Explicit

Public strgTab As String
Sub mach()
Dim OQOneu
Dim WB As Workbook
Dim bolIstDa As Boolean
Dim i As Long
   OQOneu = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Auswählen der ersten Datei zum Datenabgleich!")
  Set WB = Workbooks.Open(OQOneu)
  bolIstDa = False
 
  For i = 1 To WB.Sheets.Count
     If WB.Sheets(i).Name = "BOM" Then
       bolIstDa = True
       strgTab = "BOM"
       Exit For
     End If
     If Not bolIstDa Then
        MsgBox ("Keine BOM enthalten, falsche Datei, bitte die richtige auswählen!")
        bolIstDa = True
        UserForm1.Show
'        GoTo Auswählen_Datei_1
     End If
  Next
  If strgTab <> "" Then
    With WB.Sheets(strgTab)         'Filter rücksetzen
       If .AutoFilterMode Then
          If .FilterMode Then
             .ShowAllData
          End If
       End If
    End With
  Else
    MsgBox "Keine Tabelle ausgewählt!, Datei wird geschlossen"
    WB.Close savechanges:=False
  End If
End Sub

Ich habe zum Testen Variablen deklariert und den Code Teilweise auskommentiert.
Wichtig ist hier die Public Variable ganz am Anfang.

Und hinter der Userform folgenden Code:

Code:

Option Explicit

Private Sub ListBox1_Click()
If Me.ListBox1.ListIndex > -1 Then strgTab = Me.ListBox1
Unload Me
End Sub

Private Sub UserForm_Initialize()
 Dim i As Long
 For i = 1 To Sheets.Count
   Me.ListBox1.AddItem Sheets(i).Name
 Next i
End Sub

Ich weiß jetzt nicht, ob in Deinem Code geprüft wird, ob eine Datei ausgewählt wurde.

[Rabe]

Hi atilla,

ich würde dann eine Userform mit einer Listbox einsetzen.

danke, ich habe es jetzt folgendermaßen gemacht.
Es kommt auf jeden Fall die Arbeitsblattauswahl.
Die Variablen sind in einem extra Variablen-Modul definiert, statt strgTab heißt sie strBOM:

Option Explicit



Public Sub Datei_auswaehlen_importieren()

  

  Application.ScreenUpdating = False

  

Auswählen_Datei_1:

  OQOneu = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Auswählen der ersten Datei zum Datenabgleich!")

  Set WB = Workbooks.Open(OQOneu)

  

  UserForm1.Show

  

  If strBOM <> "" Then

     With WB.Sheets(strBOM)         'Filter rücksetzen 

        If .AutoFilterMode Then

           If .FilterMode Then

              .ShowAllData

           End If

        End If

     End With

  Else

     MsgBox "Keine Tabelle ausgewählt!, Datei wird geschlossen"

     WB.Close savechanges:=False

  End If

  

  ' Werte in Zeilen trennen 

  Call WerteTrennen(WB.Sheets(strBOM), ThisWorkbook.Worksheets("Tabelle1"), ThisWorkbook.Worksheets("Gesamt").Range("A7"))

  

  WB.Close savechanges:=False

  Set WB = Nothing

  

  'zweite Stückliste auswählen und einlesen 

Auswählen_Datei_2:

  OQOneu = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Auswählen der zweiten Datei zum Datenabgleich!")

  Set WB = Workbooks.Open(OQOneu)

  

  UserForm1.Show

  

  If strBOM <> "" Then

     With WB.Sheets(strBOM)         'Filter rücksetzen 

        If .AutoFilterMode Then

           If .FilterMode Then

              .ShowAllData

           End If

        End If

     End With

  Else

     MsgBox "Keine Tabelle ausgewählt!, Datei wird geschlossen"

     WB.Close savechanges:=False

  End If

  

  ' Werte in Zeilen trennen 

  Call WerteTrennen(WB.Sheets(strBOM), ThisWorkbook.Worksheets("Tabelle2"), ThisWorkbook.Worksheets("Gesamt").Range("E7"))

  

  WB.Close savechanges:=False

  Set WB = Nothing

  

  Call Differenzliste

  

  ThisWorkbook.Worksheets("Differenzliste").Activate

  Application.ScreenUpdating = True

  

End Sub

Dialog UserForm1

Option Explicit 



Private Sub UserForm_Initialize() 

  Dim i As Long 

  For i = 1 To Sheets.Count 

     Me.ListBox1.AddItem Sheets(i).Name 

  Next i 

End Sub



Private Sub ListBox1_Click() 

  If Me.ListBox1.ListIndex > -1 Then strBOM = Me.ListBox1 

  Unload Me 

End Sub