Hallo VBA Forum,
wenn ich eine User Aufrufe soll in einer Spalte überprüft werden, ob sie mit eine x befüllt ist. Ist dieses so, soll die passende CheckBox in der UserForm auf True gesetzt werden.
Mein Code sieht wie folgt aus.
Private Sub UserForm_Initialize()
Dim sp As Integer 'Spaltennummer
sp = 2
For i = 1 To 52
Dim CB As String 'CheckBox Benennung
CB = "CheckBox_KP_ " & i
If Cells(ze, sp) = "x" Then CB = True
sp = sp + 1
Next
End Sub
Leider wird mein Wunsch nicht erfüllt.
Wäre Klasse, wenn ihr mir eine Denkanstoss gegben könnet, ich komme nicht mehr weiter.
LG
Thoams
|