Ich habe leider dazu kaum etwas gefunden.
Ich möchte alle ComboBoxen auf Null zurück setzen, die Inhalte sollen aber nicht gelöscht werden.
Gibt es einen Befehl der für das ganze Workbook greift ?
Ist Clear dafür geeignet ?
Gruß Kurt
Ich habe leider dazu kaum etwas gefunden.
Ich möchte alle ComboBoxen auf Null zurück setzen, die Inhalte sollen aber nicht gelöscht werden.
Gibt es einen Befehl der für das ganze Workbook greift ?
Ist Clear dafür geeignet ?
Gruß Kurt
wo sind die ComboBoxen??
Clear löscht den Inhalt
Was verstehts Du unter auf Null setzten???
Gruß Georg
Die ComboBoxen sind in mehreren Tabellenblättern.
Ich meine mit auf Null zurücksetzen, daß bei den ComboBoxen, wo ein Wert ausgewählt wurde, wieder kein Eintrag ausgewählt ist.
Kurzes Beispiel:
Angenommen ich habe 3 ComboBoxen(C1,C2,C3):
C1=a
C2=1
C3=""
Nun will ich aber, b2 mit den Boxen 1 und 3 abfragen. Also:
C1=b
C2="" (deshalb vorher Inhalte zurücksetzen, sonst pfuscht mir der ausgewählte Wert hier rein)
C3=2
Verstehst du jetzt was ich meine ?
Das Problem ist, daß ich nicht immer alle ComboBoxen kontrollieren möchte ob dort ein Wert ist oder nicht.
Gruß Kurt
ich muß leider schreiben das ich nicht der fachmann für Steuerelemente in der Tabelle bin. In der UserForm ist es jedenfalls so, sobald ein Wert ausgewählt wurde kann nicht wieder die leere Zeile gewählt werden. Dort geht es nur mit löschen des inhaltes und neu füllen. Soweit mir das bekannt ist.
Gruß Hajo
Ich habe deswegen die Box auch mit einem leeren Eintrag gefüllt (1.Eintrag). Nur ist es mühsam für jede einzelne Box .Clear einzugeben.
Kann man nicht alle Boxen eines Workbooks ansprechen ?
Sonst werde ich es mit einer Schleife für jedes einzelne Sheet lösen........
Gruß Kurt
unter Anleitung habe ich mal folgenden Code für Checkboxen erstellt. Den könntest Du Dir anpassen. Da der erste Wert in der Liste leer ist brauchst Du nur schreiben .value="" vermute ich mal
Private Sub CommandButton3_Click()
Dim I As Integer
Dim J As Integer
J = 1
For I = 1 To Shapes.Count
If Mid(Shapes(I).Name, 1, 5) = "Check" Then
ActiveSheet.OLEObjects("CheckBox" & J).Object.Value = False
J = J + 1
End If
Next I
End Sub
Gruß Georg
Für alle die es interessiert und damit die Recherche auch ihre Lösungen enthält, schreibe ich meine Lösung hier rein:
Die Zeile "On Error Resume Next" mußte sein da ich nicht wirklich 280 ComboBoxen habe, sondern sie nach Gruppen durchnummeriert habe.
Gruß Kurt