Clever-Excel-Forum

Hallo,

ich verwende in einer Userform folgenden Code:

            'CheckBoxen 

           If Checkbox2.Value = True Then

              Suchergebnis.Offset(0, 40).Value = "ja"                              'Spalte 41 

           Else

              Suchergebnis.Offset(0, 40).Value = "nein"

           End If

           

           With Suchergebnis

              For i = 2 To 4

                 If Me.Controls("CheckBox" + i).Value = True Then

                    .Cells(1, i + 38).Value = "ja"                  'Spalte 41-43 

                 Else

                    .Cells(1, i + 38).Value = "nein"

                 End If

              Next i

           End With

Der erste Block funktioniert einwandfrei.
Der zweite (der With-)Block bringt die Fehlermeldung
LZF 13: Typen unverträglich
in dieser Zeile

Code:
                 If Me.Controls("CheckBox" + i).Value = True Then

Wie kann ich das beheben?

Dasselbe bei diesem Code:

            For i = 9 To 11
               Suchergebnis.Offset(0, i + 82).Value = Me.Controls("ComboBox" + i).Value  'Spalte 92-94 (i + 82) 
            Next i
'               Suchergebnis.Offset(0, 91).Value = Me.Controls("ComboBox9").Value     'Spalte 92 
'               Suchergebnis.Offset(0, 92).Value = Me.Controls("ComboBox10").Value    'Spalte 93 
'               Suchergebnis.Offset(0, 93).Value = Me.Controls("ComboBox11").Value    'Spalte 94

der auskommentierte Teil funktioniert, bei der Zeile

Code:
              Suchergebnis.Offset(0, i + 82).Value = Me.Controls("ComboBox" + i).Value  'Spalte 92-94 (i + 82)

kommt dieselbe Fehlermeldung.

Hi Ralf,
versuchdoch mal & statt +

Hi Michael,

(14.04.2017, 10:15)Zwergel schrieb: [ -> ]versuchdoch mal & statt +

ja, klar, das war's. Manchmal sehe ich den Wald vor Bäumen nicht.
Suchergebnis.Offset(0, i + 82).Value = Me.Controls("ComboBox" & i).Value 'Spalte 92-94 (i + 82)

Diese Code reicht:

Code:
Suchergebnis.Offset(,40).resize(,3) = array(format(Checkbox2,"Yes/No"),format(Checkbox3,"Yes/No"),format(Checkbox4,"Yes/No"))

NB. Man kann deine gepostete Code nicht kopieren und verwenden, wiel es zu viele 'format' Elemente enthällt.
Das macht das Helfen schwieriger.

Hi,

(14.04.2017, 13:17)snb schrieb: [ -> ]Diese Code reicht:
[...]
NB. Man kann deine gepostete Code nicht kopieren und verwenden, wiel es zu viele 'format' Elemente enthällt.
Das macht das Helfen schwieriger.

Danke.

Komisch, wenn ich den Code, der mit dem Tool von Mumpel gepostet wurde, einfach im Firefox-Fenster markiere und mit Copy & Paste in das Editor-Fenster kopiere, ist da im Editor überhaupt keine Formatierung o.ä. zu sehen.

Dies ist meines Ergebnis:

Code:
[color=#000000][color=#008000]'CheckBoxen [/color]

           [color=#0000ee]If[/color] Checkbox2.Value = [color=#0000ee]True[/color] [color=#0000ee]Then[/color]

              Suchergebnis.Offset([color=#ddaa00]0[/color], [color=#ddaa00]40[/color]).Value = [color=#ff0000]"ja"[/color]                              [color=#008000]'Spalte 41 [/color]

           [color=#0000ee]Else[/color]

              Suchergebnis.Offset([color=#ddaa00]0[/color], [color=#ddaa00]40[/color]).Value = [color=#ff0000]"nein"[/color]

           [color=#0000ee]End[/color] [color=#0000ee]If[/color]

           [color=#0000ee]With[/color] Suchergebnis

              [color=#0000ee]For[/color] i = [color=#ddaa00]2[/color] [color=#0000ee]To[/color] [color=#ddaa00]4[/color]

                 [color=#0000ee]If[/color] Me.Controls([color=#ff0000]"CheckBox"[/color] + i).Value = [color=#0000ee]True[/color] [color=#0000ee]Then[/color]

                    .Cells([color=#ddaa00]1[/color], i + [color=#ddaa00]38[/color]).Value = [color=#ff0000]"ja"[/color]                  [color=#008000]'Spalte 41-43 [/color]

                 [color=#0000ee]Else[/color]

                    .Cells([color=#ddaa00]1[/color], i + [color=#ddaa00]38[/color]).Value = [color=#ff0000]"nein"[/color]

                 [color=#0000ee]End[/color] [color=#0000ee]If[/color]

              [color=#0000ee]Next[/color] i

           [color=#0000ee]End[/color] [color=#0000ee]With[/color][/color]

Rabe

Zwergel

Rabe

snb

Rabe

snb