Vokabelabfrage durch Userform
16.08.2013 15:54:02
Luna
ich möchte mir ein Programm zum Abfragen von Vokabeln basteln. In dem Tabellenblatt "Vokabeln" stehen die abzufragenden Vokabeln. Mein Code sieht so aus.
Option Explicit
Dim Trans1 As String
Dim Trans2 As String
Dim Trans3 As String
Private Sub Userform_Initialize()
Dim 1 As Long
Dim AnzVok As Long
Dim frm As UserForm
Dim Vok1 As String
Dim Vok2 As String
Dim Vok3 As String
AnzVok = _
ThisWorkbook.Sheets("Vokabeln").UsedRange.Rows.Count
Set frm = frm_Abfrage
' Textfeld 1
1 = Int((AnzVok * Rnd) + 2)
Vok1 = Cells(1, 1).Value
Trans1 = Cells(1, 2).Value
' Textfeld 2
1 = Int((AnzVok * Rnd) + 2)
Vok2 = Cells(1, 1).Value
Trans2 = Cells(1, 2).Value
' Textfeld 3
1 = Int((AnzVok * Rnd) + 2)
Vok3 = Cells(1, 1).Value
Trans3 = Cells(1, 2).Value
With frm
.TextBox1.Value = Vok1
.TextBox1.Enabled = False
.TextBox2.Value = Vok2
.TextBox2.Enabled = False
.TextBox3.Value = Vok3
.TextBox3.Enabled = False
End With
Set frm = Nothing
End Sub
Jetzt bekomme ich bei Dim 1 As Long bei der 1 die Fehlermeldung Fehler beim Kompilieren: Erwartet Bezeichner,
und bei den Textfeldern 1-3 in dieser Zeile 1 = Int((AnzVok * Rnd) + 2) die Meldung Erwartet Sprungmarke oder Anweisung oder Anweisungsende. Dabei ist dieses Beispiel aus einem Buch "Excel VBA 2010 B.Held) das ich mir zum lernen gekauft habe.
Wo mache ich den Fehler, meiner Meinung nach habe ich alles so gemacht wie beschrieben.
Danke
Luna
Anzeige