nachfolgender Code bzw. die UF wird mit
Sub start()
'Worksheets("Tabelle1").Columns.Hidden = True
Worksheets("Tabelle1").Columns("B:IV").Hidden = True
Load UserForm1
UserForm1.Show 0
End Sub
gestartet.Seit kurzem kommt die Fehlermeldung "Fehler beim Kompilieren, nach End Sub usw dürfen nur Kommentare stehen"
Der Debugger makiert gelb die Dim-Zeile in
Private Sub UserForm_Initialize()
Dim sp As Integer, zei As Long, n As Integer
und er markiert blau die zeile:
Private Sub CommandButton8_Click()
Ich weiss nicht wo im Code da ein solcher Fehler versteckt ist.
Falls nötig, hier ist die Datei:
https://www.herber.de/bbs/user/30417.xls
Danke ^ Gruß
Reinhard
Option Explicit
Private Sub OptionButton1_Click()
TextBox3.Text = "Punktevergabe gemäß ausgewähltem Modus" & Chr(13) & "im Register ""Punktevergabe"""
TextBox3.Visible = True
TextBox4.Visible = False
Call loeschA
Call loeschB
TextBox5.Text = ""
End Sub
Private Sub OptionButton2_Click()
Call loeschB
TextBox3.Text = "Punktevergabe gemäß ausgewähltem Modus" & Chr(13) & "im Register ""Punktevergabe"""
TextBox3.Text = TextBox3.Text
TextBox4.Text = "Zusätzlich werden bei gesetzem Joker für eine Frage und "
TextBox4.Text = TextBox4.Text & "richtiger Antwort gemäß untenstehenden Vorgaben die Punkte vervielfacht." & Chr(13)
TextBox4.Text = TextBox4.Text & "Es gibt keine Minuspunkte bei gesetztem Joker und falscher/fehlender Antwort." & Chr(13)
TextBox4.Text = TextBox4.Text & "Es gibt keine Zwangsjoker, nicht gesetzte Joker verfallen."
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
Label14.Visible = True
Label15.Visible = True
TextBox5.SetFocus
End Sub
Private Sub OptionButton3_Click()
Call loeschB
Call loeschA
TextBox3.Text = "Diees Feature ist noch in Arbeit"
TextBox3.Visible = True
TextBox4.Visible = False
TextBox5.Text = ""
End Sub
Private Sub OptionButton4_Click()
Call loeschB
Call loeschA
TextBox3.Text = "Diees Feature ist noch in Arbeit"
TextBox3.Visible = True
TextBox4.Visible = False
TextBox5.Text = ""
End Sub
Private Sub OptionButton5_Click()
Call loeschB
Call loeschA
TextBox3.Text = "Diees Feature ist noch in Arbeit"
TextBox3.Visible = True
TextBox4.Visible = False
TextBox5.Text = ""
End Sub
Private Sub OptionButton6_Click()
Call loeschB
Call loeschA
TextBox3.Text = "Diees Feature ist noch in Arbeit"
TextBox3.Visible = True
TextBox4.Visible = False
TextBox5.Text = ""
End Sub
Private Sub SpinButton1_Change()
Dim zei As Long, sp As Byte, n As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
TextBox1 = SpinButton1
sp = CInt(TextBox1)
Worksheets("Einstellungen").Range("a1") = SpinButton1
zei = Worksheets("Punktevergabe").Cells(65536, sp).End(xlUp).Row
With UserForm1.Spreadsheet1
For n = 1 To 100
.Cells(n, 1) = ""
Next n
'.Range("A1:A500").ClearContents 'scheint bei Spreadsheets nicht zu gehen
For n = 2 To 100 'end(xlup).row scheint bei Spreadsheets nicht zu gehen
.Cells(n - 1, 1).Value = Worksheets("Punktevergabe").Cells(n, sp).Value
Next n
TextBox2 = Worksheets("Punktevergabe").Cells(1, sp).Value
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub TextBox5_Change()
Call loeschB
Select Case TextBox5
Case 1 To 5
Call zeige(TextBox5)
Case Else
TextBox5.Text = ""
End Select
End Sub
Private Sub UserForm_Initialize()
Dim sp As Integer, zei As Long, n As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
HideCloseButton Me
TextBox1 = Worksheets("Einstellungen").Range("a1")
SpinButton1 = TextBox1
sp = CInt(TextBox1)
Worksheets("Einstellungen").Range("a1") = SpinButton1
zei = Worksheets("Punktevergabe").Cells(65536, sp).End(xlUp).Row
With UserForm1.Spreadsheet1
For n = 2 To 100 'end(xlup).row scheint bei Spreadsheets nicht zu gehen
.Cells(n - 1, 1).Value = Worksheets("Punktevergabe").Cells(n, sp).Value
Next n
TextBox2 = Worksheets("Punktevergabe").Cells(1, sp).Value
End With
zei = Worksheets("Stammkwizzerliste").Cells(65536, 1).End(xlUp).Row
With UserForm1.Spreadsheet2
For n = 1 To zei
.Cells(n, 1).Value = Worksheets("Stammkwizzerliste").Cells(n, 1).Value
Next n
TextBox2 = Worksheets("Punktevergabe").Cells(1, sp).Value
End With
OptionButton1 = True
UserForm1.Spreadsheet1.ViewableRange = "A:A"
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton8_Click()
Unload Me
End Sub