erst einmal an alle ein gesundes Neues Jahr.
Habe folgendes Problem:
in einer UserForm1 habe ich 5 "OptionButton" und 3 "Label"
jetzt soll folgendes passieren:
Wenn ich "OptionButton1" aktiviere (also auf "True" setze) soll "Label1" den Text aus Tabelle("Adressen").Range("B2") erhalten, "Label2" Text aus Tabelle("Adressen").Range("C2") erhalten, "Label3" Text aus Tabelle("Adressen").Range("D2") erhalten.
Wenn ich "OptionButton2" aktiviere (also auf "True" setze) soll "Label1" den Text aus Tabelle("Adressen").Range("B3") erhalten, "Label2" Text aus Tabelle("Adressen").Range("C3") erhalten, "Label3" Text aus Tabelle("Adressen").Range("D3") erhalten.
Wenn ich "OptionButton3" aktiviere (also auf "True" setze) soll "Label1" den Text aus Tabelle("Adressen").Range("B4") erhalten, "Label2" Text aus Tabelle("Adressen").Range("C4") erhalten, "Label3" Text aus Tabelle("Adressen").Range("D4") erhalten.
Private Sub UserForm_Initialize()
'hier werden die Datensätze in die "ComboBox1","ComboBox2","ComboBox3" eingelesen
Dim z As Integer
Dim y As Integer
Dim x As Integer
Dim letzte As Integer
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
'Das Kombinationsfeld "suchen" (ComboBox1) füllen
letzte = Sheets("Rechnungen").Range("A65536").End(xlUp).Row
For z = 3 To letzte
UserForm1.ComboBox1.AddItem Sheets("Rechnungen").Cells(z, 2).Value
Next z
'Den ersten Eintrag einstellen
UserForm1.ComboBox1.ListIndex = 0
z = UserForm1.ComboBox1.ListIndex
'Das Kombinationsfeld "Leistung für:" (ComboBox2) füllen
letzte = Sheets("Vorgaben").Range("A65536").End(xlUp).Row
For y = 3 To letzte
UserForm1.ComboBox2.AddItem Sheets("Vorgaben").Cells(y, 1).Value
Next y
'Den ersten Eintrag einstellen
UserForm1.ComboBox2.ListIndex = 0
y = UserForm1.ComboBox2.ListIndex
'Das Kombinationsfeld "behandelnder Arzr" (ComboBox3) füllen
letzte = Sheets("Vorgaben").Range("B65536").End(xlUp).Row
For x = 3 To letzte
UserForm1.ComboBox3.AddItem Sheets("Vorgaben").Cells(x, 2).Value'Den ersten Eintrag einstellen
UserForm1.ComboBox3.ListIndex = 0
x = UserForm1.ComboBox3.ListIndex
'Textfeld Kostenstelle füllen
'UserForm1.TextBox4.Value = _
'HoleKostenstelle(UserForm1.ComboBox1.List(i))
'Die Optionsbutton beschriften
UserForm1.OptionButton1.Caption = Sheets("Adressen").Cells(2, 1).Value
UserForm1.OptionButton2.Caption = Sheets("Adressen").Cells(3, 1).Value
UserForm1.OptionButton3.Caption = Sheets("Adressen").Cells(4, 1).Value
UserForm1.OptionButton4.Caption = Sheets("Adressen").Cells(5, 1).Value
UserForm1.OptionButton5.Caption = Sheets("Adressen").Cells(6, 1).Value
'Die erste Optionschaltfläche vorbelegen
UserForm1.OptionButton4.Value = 1
? hier ligt mein Problem ?
if OptionButton1 = True Then
Label1.Caption = Worksheets("Adressen").Range("B2").Text
Label2.Caption = Worksheets("Adressen").Range("C2").Text
Label3.Caption = Worksheets("Adressen").Range("D2").Text
Else
jetzt soll Label1,Label2, Label3 wieder leer sein
End Sub
bei meinem Makro passiert folgendes: wenn ich OptionButton1 aktiviere wird in Label1 der Text aus Tabelle("Adressen")Range("B2")korrekt übernommen.
wenn ich aber jetzt OptionButton2 aktiviere, passiert gar nichts mehr, es bleibt weiterhin der Text aus Tabelle Adressen(B2) stehen.
kann mir da vieleicht einer von Euch weiterhelfen?
vielen vielen Dank im vorraus
Gruß Andreas.R.