Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String in Zelle auslesen und ChkBox markieren

Forumthread: String in Zelle auslesen und ChkBox markieren

String in Zelle auslesen und ChkBox markieren
30.07.2024 14:44:38
Chris
Hallo Forum,

ich möchte Folgendes per VBA lösen:

Ich habe auf einer Userform 7 Checkboxen. Das jeweilige Caption entspricht dem Wochentag. Checkbox1.caption = Mo usw. bis ChkBox7.caption = So

Wenn bspw. in Zelle A1 nebeneinander steht: Mo, Di, Do, Sa., sollen die entsprechenden Checkboxen markiert werden, also: Box1,.2,4,6.

Wie löst man dies per VBA?

Viele Grüße
Chris

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String in Zelle auslesen und ChkBox markieren
30.07.2024 15:28:22
ralf_b
eine schleife über die controls deiner UF.
Abfrage ob es ne checkbox ist,
wenn ja, dann die Caption im Zellinhalt mittels instr() suchen.
Wenn gefunden checkbox aktivieren.
nächster schleifendurchgang

AW: String in Zelle auslesen und ChkBox markieren
30.07.2024 21:51:51
Chris
Hallo ralf,

hab das so nun zum Laufen bekommen.

Irgendwas, was du ändern würdest? 





'Prüfen welche CHKBoxen aktivert werden sollen

Sub x

On error resume next



Dim iCnt As Control

Dim i As Long

Dim CHKBCap As String



For Each iC In Tl

For i = 1 To 7

CHKBCap = Tl.Controls("Checkbox" & i).Caption



If iCnt.Name = "Checkbox" & i Then

If InStr(Sheets("Tests").Cells(ActiveCell.Row, 14), CHKBCap) > 0 Then

Tl.Controls("Checkbox" & i).Value = True

End If

End If



Next

Next

end sub
Anzeige
AW: Alternative
31.07.2024 01:04:34
Kuwer
Hallo Chris,

oder z.B. auch so:
Private Sub UserForm_Click()

  Dim varWt As Variant

  Dim i As Long

  For i = 1 To 7

    Me.Controls("CheckBox" & i).Value = False

  Next i

  varWt = Split(Range("A1").Value)

  On Error Resume Next

  For i = 0 To UBound(varWt)

    Me.Controls("CheckBox" & Application.Match(Left(varWt(i), 2), Array("Mo", "Di", "Mi", "Do", "Fr", "Sa", "So"), 0)).Value = True

  Next i

  On Error GoTo 0

End Sub
Gruß, Uwe
Anzeige
AW: Alternative
31.07.2024 06:33:01
Chris
Hallo Uwe,

danke für die Alternative. Sie funktioniert auch! Sehr gut

LG Chris
AW: String in Zelle auslesen und ChkBox markieren
30.07.2024 15:34:21
daniel
Hi

am besten mit einer Hilfstabelle.

bspw in in die Zelle B1 schreibst du "Mo", in C1 "Di" usw bis in H1 dann "So"
in die darunterliegenden Zellen der Zeile 2 schreibst du die Formel: B2: =IstZahl(Finden(B1;$A$1) bis in H2: =IstZahl(Finden(H1;"$A$1)
dann verknüpfst du die Checkbox1 mit der Zelle B2, die Checkbox2 mit der Zelle C2 usw bis zur Checkbox7 mit der Zelle H2
zum Vernküpfen trägst du die Zelladresse der Zelle in die Eigenschaft ControlSource ein in der Form 'Tabelle1'!B2

allerdings solltest du verhindern, dass der Anwender die Checkboxen anklickt, sonst sind deine Formeln weg.

Gruß Daniel
Anzeige
AW: String in Zelle auslesen und ChkBox markieren
30.07.2024 21:52:54
Chris
Hi Daniel,

danke für den Hinweis, hab an einer VBA Lösung gearbeitet, siehe vorhigen Post.

Gruß
Chris
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige