Office: (Office 2010) Checkbox 13 Felder die Text in ZELLE füllen

Hi,

C10, C12, C15 usw. sind doch keine Spalten sondern Zellen - folglich darf es nicht Columns("C10") usw. sondern muss Range("C10") usw. heißen.

Bis später,
Karin

 

Ich habe es jetzt angepasst, als die C10 bis C40 noch drin standen ging es noch, jetzt bricht es mit einer Fehlermeldung ab.
Kannst du bitte noch einmal darüber schauen, ich habe glaube etwas zerstört.

 

Es sind zu viele einzelne Zellen, da muss man einen Umweg gehen und die Variable in mehreren Schritten belegen - also anstelle deiner 1 langen Zeile diese 5 Zailen:

Code:

            Set rngSpalten = Union(Range("C10"), Range("C12"), Range("C15"), Range("C19"), Range("C21"), Range("C23"), Range("C26"), Range("C28"), Range("C30"), Range("C32"), Range("C35"), Range("C38"), Range("C40"))
            Set rngSpalten = Union(rngSpalten, Range("F10"), Range("F12"), Range("F15"), Range("F19"), Range("F21"), Range("F23"), Range("F26"), Range("F28"), Range("F30"), Range("F32"), Range("F35"), Range("F38"), Range("F40"))
            Set rngSpalten = Union(rngSpalten, Range("I10"), Range("I12"), Range("I15"), Range("I19"), Range("I21"), Range("I23"), Range("I26"), Range("I28"), Range("I30"), Range("I32"), Range("I35"), Range("I38"), Range("I40"))
            Set rngSpalten = Union(rngSpalten, Range("L10"), Range("L12"), Range("L15"), Range("L19"), Range("L21"), Range("L23"), Range("L26"), Range("L28"), Range("L30"), Range("L32"), Range("L35"), Range("L38"), Range("L40"))
            Set rngSpalten = Union(rngSpalten, Range("O10"), Range("O12"), Range("O15"), Range("O19"), Range("O21"), Range("O23"), Range("O26"), Range("O28"), Range("O30"), Range("O32"), Range("O35"), Range("O38"), Range("O40"))

Außerdem musst du die Codezeile mit der Deklaration der Varibalen rngSpalten in ein allgemeins Modul verschieben, da sie sowohl für das Doppelklick-Ereignis als auch im UserForm zur Anwendung kommt - andernfalls kommt logischerweise ein Laufzeitfehler.

Bist du dir sicher, dass du in deiner Codezeile If Target.Column = 3 Or Target.Column = 5 .... die richtigen Spaltennummern angegeben hast? Auf jeden Fall sind es außer Spalte 3 (C) andere als in meinem Code und damit auch andere als in deiner Auflistung (meine Spaltennummern hatte ich aus deiner Auflistung entnommen).

Bis später,
Karin

 

Du bist super, vielen lieben Dank - ja du hast recht, ich habe mich sogar mit 5 und allem dahinter verzählt.
Es klappt jetzt wieder!