Anzeige
Archiv - Navigation
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code zu umständlich?

Code zu umständlich?
Gegga
Hallo da draussen
Habe eine etwas grössere Tabelle und eine UF die diese Abfrägt und zwar folgendermaßen:
Private Sub CB_LIEFERANT_Change()
Selection.AutoFilter Field:=1, Criteria1:="=*" & CB_LIEFERANT.Value & "*"
ZEILE = Range("C3:C65536").Cells.SpecialCells(xlCellTypeVisible).Row
With Worksheets("LIEFERÜBERSICHT")
If Cells(ZEILE, 11) = "X" Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
If Cells(ZEILE, 12) = "X" Then
CheckBox2.Value = True
Else
CheckBox2.Value = False
End If
If Cells(ZEILE, 13) = "X" Then
CheckBox3.Value = True
Else
CheckBox3.Value = False
End If
If Cells(ZEILE, 14) = "X" Then
CheckBox4.Value = True
Else
CheckBox4.Value = False
End If
If Cells(ZEILE, 15) = "X" Then
CheckBox5.Value = True
Else
CheckBox5.Value = False
End If
End With
End Sub

mein Problem:
If Cells(ZEILE, 11) = "X" Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
diesen Code müsste ich jetzt für 105 Chechboxen kopieren und ändern.
Da gibts doch sicherlich ne elegantere Lösung oder?
Nummern der Checkboxen sind fortlaufend von 1-105
Spaltenzahlen ebenfalls von 11- 116
Kann mir da jemand helfen?
Schönes WE
Gruss Gegga

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Code zu umständlich?
25.11.2011 14:54:05
Hajo_Zi
Controls("CheckBox" & Spalte) = Cells(Zeile,Spalte+10)

AW: Code zu umständlich?
28.11.2011 07:25:07
Gegga
Guten Morgen Hajo
Danke für die Lösung, aber irgendwie raff ich das ned.
Wo wird hier das X ausgelesen? und wieso Spalte +10? Die sind doch fortlaufend...
Gruss Gegga
AW: Code zu umständlich?
28.11.2011 11:43:00
Reinhard
Hallo Gegga,
vielleicht meinte Hajo das so:

For Spalte = 1 To 105
Controls("CheckBox" & Spalte) = Cells(Zeile, Spalte + 10).Value = "X"
Next Spalte

Gruß
Reinhard
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige