Ich stecke grad bei folgendem Problem:
Ich habe eine UserForm, die einen Button btnWahl enthält, eine Listbox und einen OK (CommanButton1) und einen Abbrechen(CommandButton2) Button.
Bei Klick auf "Wahl" (btnWahl) möchte ich alle Tabellenblattnamen der geöffneten Arbeitsmappe, bis auf das erste gelistet bekommen,das funktioniert mit dem unten genannten Sourcecode.
Ich möchte nun einen Tabellenblattnamen auswählen und bei Klick auf OK soll zum ausgewählten Blatt gegangen werden und vor Zeile 10 eine Zeile eingefügt werden.
Ich steh total aufm Schlauch, wie komm ich da hin, wer kann mir helfen!?
Vielen Dank schonmal,
Private Sub btnWahl_Click()
ListBox1_Click
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub ListBox1_Click()
ListBox1.Clear
Dim i As Integer
For i = 2 To Worksheets.Count
ListBox1.AddItem Worksheets(i).Name
Next i
End Sub
Private Sub UserForm_Click()
End Sub