Hallo ihr Lieben,
ich hab ein kleines Problem bei der VBA-Programmierung. Ich habe die Datei gleich
mal mit angehängt: Copy_Paste_VBA_xlsm
Im Blatt "Übersicht" will ich in der Spalte A in jeder Zeile eine Checkbox haben
(von Zeile 4-157 jeweils eine Checkbox)
Ich habe mal zwei Checkboxen exemplarisch eingefügt und ihre Funktion programmiert
(Checkboxen in A4 und A5)
1.)Wie kann ich mir die restlichen Checkboxen für (A6-A157) per VBA kreieren (,am besten in die Zellen eingebettet)?
2.)Mein zweites Problem ist, dass ich mit der jeweiligen Checkbox in Spalte A, einen
bestimmten Zeilenausschnitt (B-Z) markieren will:
Checkbox in A4 soll nach Aktivierung (Häkchen gesetzt) die Zellen B4-Z4 rot einfärben und markieren,
Checkbox in A5 soll nach Aktivierung die Zellen B5-Z5 rot einfärben und
markieren,usw.
bis Checkbox in A157 soll nach Aktivierung die Zellen B157-Z157 rot einfärben und
markieren.
Mein Problem dabei ist, dass ich mehrere Checkboxen in Spalte A auswählen will, aber
sobald ich eine zweite Checkbox anwähle, geht die alte Markierung verloren und nur
die letzte Markierung ist aktiv. Und somit sind nicht beide Zellenbereiche markiert,
sondern nur rot eingefärbt.
Bsp.:
Ich wähle in Spalte A die 3 Checkboxen in A4, A8 und A11 aus. Jetzt sollen die
Zellen B4-Z4, B8-Z8 und B11-Z11 rot eingefärbt und markiert sein.
Mit dem Klick auf den Button: "Diagramm Kriterienübersicht erstellen" sollen die rot
eingefärbten bzw. markierten Zellen ins Blatt "Kriteriendiagramm" untereinander
kopiert werden, um daraus dann ein Diagramm zu erstellen.
Ihr könnt das Tool gerne mal testen, es funktioniert eigentlich alles, wenn ich die
Zellen händisch mit der STRG Taste markiere, aber das soll ja über die Checkboxen
geschehen, was bisher nicht funktioniert.
Meine Idee war eben zunächst über Checkboxen Zellenbereiche zu markieren um diese dann zu kopieren abzufragen,
was ich aber nicht hinbekomme:
Sheets("Übersicht").Select
Selection.SpecialCells(xlCellTypeVisible).Copy ' Makierte, eingeblendete Zellen kopieren
Sheets("Kriteriendiagramm").Select
ActiveSheet.Range("A51:B51").Select
ActiveSheet.Paste
Das mit dem rot einfärben Zellen war meine alternative Idee, weil die rote
MarkierungEinfärbung der Zellen, im Gegensatz zur Markierung, nicht verloren geht wenn ich mehrere Checkboxen auswähle,
allerdings weiß ich hier nicht wie ich abfragen kann welche Zellen rot sind, um
diese dann zu kopieren. Der Befehl müsste ja "sinngemäß" irgendwie so lauten: RedCells(255).SpecialCells(xlCellTypeVisible).Copy
Ich hoffe ihr könnt mir schnell weiterhelfen.
Schönen Freitag ;)
Gruß Katharina
|