Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vokabelabfrage durch Userform

Vokabelabfrage durch Userform
16.08.2013 15:54:02
Luna
Hallo an alle,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vokabelabfrage durch Userform
16.08.2013 15:55:53
Hajo_Zi
Hallo Luna,
eine Variable muss mit einem Buchstaben beginnen.
Gruß Hajo

AW: Vokabelabfrage durch Userform
16.08.2013 17:06:36
Luna
Danke Hajo,
aber irgendwie komme ich nicht weiter. Was ich auch probiere, es wird mir in meinen Textboxen nichts angezeigt, und das obwohl ich mich meiner Meinung nach an die Vorgaben im Buch gehalten habe.
Danke
Luna

AW: Vokabelabfrage durch Userform
16.08.2013 17:12:18
Hajo_Zi
Hallo Luna,
schmeiße das Buch fort, wenn dies 1 als Variable vorschlägt.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Nachbau sieht bestimmt anders aus als das Original.
Ein Link zur Datei wäre nicht schlecht.
Gruß Hajo
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige