mit Userform Tabellenblatt aktivieren

Guten Abend
Ich habe das folgende Problem: Über eine Userform soll das Tabellenblatt ausgewählt werden, in welches dann die Zahlen eingegeben werden. Wenn ich also als Jahr "2014" eingebe, soll es das Blatt "Rechnungen 2014" nehmen ect. Momentan sieht der Code so aus:

Private Sub CommandButton6_Click() Dim vSpalte As Variant Dim c As Range Dim i As Integer Dim lngRow As Long If ListBox1.ListIndex = -1 Then MsgBox "Bitte erst den Monat auswählen" ComboBox1.ListIndex = -1
If ListBox2.ListIndex = -1 Then MsgBox "Bitte erst das Jahr auswählen" ComboBox1.ListIndex = -1 Exit Sub End If vSpalte = Array("C", "D", "I", "J", "O", "P", "U", "V", "BB", "BE", "BH", "BN", "BV", "BY", "CB" _ , "CH", "CK", "CN", "DH", "DK", "DN", "DQ", "DT", "DW", "DZ", "EM", "EP", "ES", "EC") ' usw.... If ListBox2.Value = 2013 Then Worksheets("Rechnungen 2013").Activate Else Worksheets("Rechnungen 2014").Activate Set c = .Columns(1).Find(what:=Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then lngRow = c.Row Else lngRow = WorksheetFunction.Match("Name", .Columns(1), 0) End If For i = LBound(vSpalte) To UBound(vSpalte) Me.Controls("TextBox" & i + 1) = .Range(vSpalte(i) & lngRow + ListBox1.ListIndex + _ 1) Next End With End Sub
Fehlermeldung: "Nicht zulässiger oder nicht gekennzeichneter Verweis"
Bevor ich die kursiv geschriebenen Textzeilen eingefügt habe, hat der Code funktioniert, allerdings muss ich jetzt fürs neue Jahr die Möglichkeit haben, das Rechnungsblatt auszuwählen.
Herzliche Grüsse,
Magdalena

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim wks As Worksheet If ListBox2.Value = 2013 Then Set wks = Worksheets("Rechnungen 2013") Else Set wks = Worksheets("Rechnungen 2014") Set c = wks.Columns(1).Find(what:=Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)

Hallo Ewald
Danke für die schnelle Hilfe, hat soweit geklappt. ich habe bei allen .Columns und beim .Range das wks vorne daran geschrieben, da dies jeweils markiert wurde.
Jetzt erhalte ich jedoch ganz am Ende die Fehlermeldung: If-Block ohne End If, dabei wird das letzte "End Sub" markiert.
Der Vollständigkeit halber hier nochmals den Code:
Dim wks As Worksheet
If ListBox2.Value = 2013 Then
Set wks = Worksheets("Rechnungen 2013")
Else
Set wks = Worksheets("Rechnungen 2014")
Set c = wks.Columns(1).Find(what:=Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
lngRow = c.Row
Else
lngRow = WorksheetFunction.Match("Name", wks.Columns(1), 0)
End If
For i = LBound(vSpalte) To UBound(vSpalte)
Me.Controls("TextBox" & i + 1) = wks.Range(vSpalte(i) & lngRow + ListBox1.ListIndex + 1)
Next
End Sub

Liebe Grüsse,
Magdalena

Dim wks As Worksheet If ListBox2.Value = 2013 Then Set wks = Worksheets("Rechnungen 2013") Else Set wks = Worksheets("Rechnungen 2014") End If Set c = wks.Columns(1).Find(what:=Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then lngRow = c.Row Else lngRow = WorksheetFunction.Match("Name", wks.Columns(1), 0) End If For i = LBound(vSpalte) To UBound(vSpalte) Me.Controls("TextBox" & i + 1) = wks.Range(vSpalte(i) & lngRow + ListBox1.ListIndex + 1) Next End Sub

Dim lngRow As Long If ListBox1.ListIndex = -1 Then MsgBox "Bitte erst den Monat auswählen" ComboBox1.ListIndex = -1 End If If ListBox2.ListIndex = -1 Then MsgBox "Bitte erst das Jahr auswählen" ComboBox1.ListIndex = -1 Exit Sub End If

Beliebteste Forumthreads (12 Monate)

mit Userform Tabellenblatt aktivieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mit Userform Tabellenblatt aktivieren

6 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)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread