Ich möchte gerne den Wert einer Listbox (in diesem Fall ein String) als Auswahl für eine Tabelle hernehmen.
Ich glaub wenn ich euch den Code zeige ist es verständlicher
Option Explicit
Dim monate As String
Private Sub kopieren()
Sheets(monate).Select
Selection.AutoFilter Field:=5, Criteria1:="Kraftstoff"
End Sub
Private Sub CommandButton1_Click()
monate = ListBox1.Value
Select Case monate
Case Is = "Mai 07"
Run abfragemai
Case Is = "Juni 07"
Run abfragejuni
Case Is = "Juli 07"
Run abfragejuli
Case Is = "Aug 07"
Run abfrageaug
End Select
End Sub
Public Sub ListBox1_GotFocus()
Dim wsTabelle As Worksheet
For Each wsTabelle In Worksheets
ListBox1.AddItem wsTabelle.Name
Next wsTabelle
End Sub
Kann mir wer sagen ob das überhaupt möglich ist, was ich vorhabe?
Danke für eure Hilfe
Phil