Spalte markieren via Optionbuttons
11.04.2013 14:36:55
Horst
ich habe einige Optionbuttons, 19 an der Zahl, über welche ich eine Spalte auswählen will. Mein bisheriger Code lautet wie folgt:
Option Explicit
Dim i As Integer
Private Sub UserForm_Initialize()
For i = 1 To 19
With Controls("OptionButton" & i)
' Bezeichnung aus Überschriften der Zeile 1 und Spalte in Tag-Eigenschaft ermitteln
.Caption = Worksheets("Tabelle1").Cells(1, CLng(.Tag)).Value
End With
Next i
End Sub
Private Sub CommandButton1_Click()
For i = 1 To 19
If Controls("Optionbutton" & i) = True Then
Controls("Optionbutton" & i).Caption = Sheets("Tabelle1").Columns(CLng(.Tag)).Select
Selection.Copy
Else
Next i
End Sub
Private Sub CommandButton2_Click()
Unload Me
Datenwahl.Show
End Sub
Was wir sehen sollen, ist, dass sich eine UserForm öffnet in welcher 19 Optionbuttons liegen, sowie 2 Clickbuttons. Die Betitulierung der Optionboxes erhalte ich aus dem Tabellenblatt.Die Optionbuttons habe ich auf die dazugehörigen Spalten getaged.
Klicke ich auf Button1 hätte ich gerne eine Schleife, welche von 1-19 läuft und bei dem ersten (und einzigen True-Wert) die dazugehörige Spalte in Tabelle 1 markiert. Beim Kompilieren wird mir eine Fehlermeldung für Columns(CLng(.Tag)) ausgegeben mit dem Hinweis, dass das "Tag" unzureichend oder nicht hinreichend genug deklariert wurde. Sieht jemand von euch, wie ich auf dieses Problem reagieren kann?
Vielen lieben Dank, "Horst"