Hallo zusammen,
ich habe folgendes Makro, in Verbindung zu einer Combobox:
Application.ScreenUpdating = False
If ComboBox11.ListIndex = 1 Then
With Sheets("Daten")
.Range("F2").Copy
End With
Sheets("Test").Select
ActiveSheet.Range("U41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If ComboBox11.ListIndex = 2 Then
With Sheets("Daten")
.Range("F3").Copy
End With
Sheets("Test").Select
ActiveSheet.Range("U41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If ComboBox11.ListIndex = 3 Then
With Sheets("Daten")
.Range("F4").Copy
End With
Sheets("Test").Select
ActiveSheet.Range("U41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If ComboBox11.ListIndex = 3 Then
With Sheets("Daten")
.Range("F4").Copy
End With
Sheets("Test").Select
ActiveSheet.Range("U41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If ComboBox11.ListIndex = 4 Then
With Sheets("Daten")
.Range("F5").Copy
End With
Sheets("Test").Select
ActiveSheet.Range("U41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If ComboBox11.ListIndex = 5 Then
With Sheets("Daten")
.Range("F6").Copy
End With
Sheets("Test").Select
ActiveSheet.Range("U41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If ComboBox11.ListIndex = 6 Then
With Sheets("Daten")
.Range("F7").Copy
End With
Sheets("Test").Select
ActiveSheet.Range("U41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
' Sheets("Test").Range("S18").Select
End If
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
End With
Application.ScreenUpdating = True
klappt einwandfrei.
Nun möchte ich vor jeder Zeile diese Auswahl durchführen, da die Combobox aber
zu Groß ist, wollte ich ein OptionButton einsetzen, leider klappt das nicht !
hat jemand eine Idee ?
In der "Tabelle Daten" steht die Auswahl, z.B möchte vor der Zelle Y31 diesen OptionButton
setzen um dann den Wert möchte ich z.B. in Zelle Y31 setzen,
dann vor der Zelle wieder ein OptionButton und den Wert in Zelle Y32 setzen, brauch 5 Zellen.
mfg Walter mb