Probleme mit auto ausfüllen von Checkboxen
04.08.2016 01:54:45
Checkboxen
ich stehe gerade vor einem riesen Problem. Leider finde ich echt nicht den Haken.
Ich versuche es kurz zu erläutern.
Ich habe ein Tabellenblatt, bei dem in eine Zelle eine Zahl eingeben wird. Automatisch werden dann andere Felder PLUS Checkboxen ausgefüllt (werden von anderem Tabellenblatt entnommen) und danach ausgedruckt.
Das funktioniert auch super. Funktion ist da. Jetzt das Problem. Es sollen mehrere Zahlen automatisch nach einander in die Zelle eingefügt werden und nach jeder eingefügten Zahl die Tabelle ausgedruckt werden.
Habe das mit einer Schleife gelöst die die Zahlen durchläuft und einfügt. Nur füllt es so KEINE Checkboxen aus. Erst wenn der Code (Schleife) fertig ist werden die Werte der letzten Zahl übernommen.
Bin total Ratlos da es bei einzelnen Zahlen ja funktioniert.
Hier mal kleine Codeauszüge:
Private Sub cmdPrint_Click()
Letztezeile = Worksheets("Tabelle2").Cells(1048576, 40).End(xlUp).Row
Letztezeile2 = Worksheets("Tabelle1").Cells(1048576, 24).End(xlUp).Row
For i = 1 To Letztezeile2
Worksheets("Tabelle1").Range("C1").Value = Worksheets("Tabelle1").Range("X" & i).Value
Worksheets("Tabelle1").PrintOut
Next
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
ActiveSheet.Calculate
sPos = Range("C1").Value
With Worksheets("Tabelle2").Range("A:A")
Set rZelle = .Find(What:=sPos, LookAt:=xlWhole, LookIn:=xlValues, _
SearchOrder:=xlByRows)
If Not rZelle Is Nothing Then
If Not Worksheets("Tabelle2").Cells(rZelle.Row, 20) = "" Then
Worksheets("Tabelle1").checkbox1.Value = True
Else
Worksheets("Tabelle1").checkbox1.Value = False
End If
Interessant ist noch das der Code vom Worksheet_Change Event komplett durchläuft. Setze ich eine Haltemarke am ende bleibt es logischerweise stehen, da werden die Checkboxen ausgefüllt. Nur wenn er automatisch durchläuft nicht. Lasse ich mir nach jeder Zahl eine MSGBox anzeigen sehe ich wie keine Box ausgefüllt ist.
Ich hoffe ich habe es jetzt nicht zu kompliziert erklärt und ihr könnt mir irgendwie helfen.
Vielen Dank schon mal im voraus
Anzeige