Wert eines Optionsfeldes wieder löschen

Private Sub OptionButton2_Click() For i = 1 To Ende If Sheets("Daten").Cells(i, 2).Value = "Herr" Then If OptionButton2.Value = True Then Sheets("Daten").Cells(i, 1) = "x" Else Sheets("Daten").Cells(i, 1) = "" End If Exit For End If Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer und Matthias,
schonmal vielen dank für eure Antworten.
Der Hintergrund der ganzen Sache ist ein anschließender Export im xml-Format an einen Server. In diesem Fall ist der Server so programmiert das es für die Anrede einer Person 2 xml-Elemente gibt(Element name A1 und A2). Wenn also im Element A1 der Wert x steht bedeutet dies die Anrede Frau und umgekehrt etc. Der Zuordnungswert ist der spätere Elementname (Spalte B), der Wert des Elementes ist in Zeile A.
Die Userform soll der optischen Kontrolle dienen und derartige "Server-Ausprägungen" verständlicher machen.
Der Grund für diese Schleife ist eigtl, dass das Excel-Datenblatt ständig wachsen kann und es keine festen Zellbezüge geben soll, deshalb kein fester Wert für die Schleife und das jeweilige Suchen mit dem Zuordnungswert. Ich weiß zwar das dies nicht sehr schön ausschaut aber ich wußte nicht wie ich es besser machen könnte.
Habe nunmal Matthias sein Beispiel versucht so einzubauen. allerdings löscht er wenn dann immer nur den Wert von A1, nicht aber mehr von A2. Kann ich die Datei auch uploaden damit es vll verständlicher ist bzw wie kann ich das hier machen?
Option Explicit
Public Ende


Private Sub UserForm_initialize()
'Ende suchen
Dim i As Long
Ende = 1
Do While Cells(Ende, 2)  ""
Ende = Ende + 1
Loop
'Cells(Ende, 1).Select
'wird benötigt da sich das Ende verschieben kann
End Sub


Private Sub OptionButton1_Click()
Dim i As Long
For i = 1 To Ende
With Sheets("Daten")
If .Cells(i, 2).Value = "A2" Then .Cells(i, 1).ClearContents
If .Cells(i, 2).Value = "A1" Then
If OptionButton1.Value = True Then
.Cells(i, 1) = "x"
End If
Exit For
End If
End With
Next
End Sub


Private Sub OptionButton2_Click()
Dim i As Long
For i = 1 To Ende
With Sheets("Daten")
If .Cells(i, 2).Value = "A1" Then .Cells(i, 1).ClearContents
If .Cells(i, 2).Value = "A2" Then
If OptionButton2.Value = True Then
.Cells(i, 1) = "x"
End If
Exit For
End If
End With
Next
End Sub

Gruß Max

Hallo Matthias,
vielen Dank für deine Bemühungen.
Hast recht ohne das Exit For klappt es so wie ich das wollte. Wobei ich das um ehrlich zu sein noch nicht ganz kapiere weil mit dem End IF die Schleife doch eh zu Ende ist.
Muss grad doch weng schmunzeln weil du mit der Anfangs-Schleife (Ende ermitteln)natürlich vollkommen recht hast. Überleg nur ob das nen Sinn hatte, glaub aber mal nicht.
Das dies nur solang geht bis die erste Lücke kommt ist beabsichtigt. Die Werte in Spalte B sind der Elementname für die XML-Datei. In Spalte A die Werte der Elemente. Es darf nicht sein das ein Element ohne Name an den Server übertragen wird. Die XML-Datei generierung läuft dann über eine Schleife die bis zur ersten Lücke eben geht. So hatte ich mir das vorgestellt bzw schon in Teilen umgesetzt.
Die Checkboxen und Comboboxen usw. funktionieren auch schon, nur das mit den Optionfelder wollte nicht.
Gruß Max

Beliebteste Forumthreads (12 Monate)

	A	B	C
1		A101	(Neben Wert A101 soll ein x wenn Frau aktiviert wird)
2		A201	(Neben Wert A201 soll ein x wenn Herr aktiviert wird)
3		A301	(Neben Wert A301 soll der eingetragene Name reingeschrieben werden)
4

Wert eines Optionsfeldes wieder löschen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert eines Optionsfeldes wieder löschen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread