Office: Bestimmte Zellen überprüfen und kopieren in andere Tabelle

Hallo erst mal....*Smilie

nach 2 Tagen stöber Zeit hier im Forum wegen meinem Problem, habe ich leider immer noch nicht das passende gefunden, oder ich war zu blöd zum suchen....

Ich habe folgendes Problem zu bewältigen.
In der Tabelle1 muss ein Feld(B2) abgefragt werden ob die Eingabe >0 ist.
Ist der Wert z.B. 1, dann müssen die Zellen A2,B2,C2 kopiert werden, und in der Tabelle2 in C5,D5,E5 eingefügt werden.

Das ganze müßte in einer Schleife laufen, da es sich um insgesamt 25 Zellen (B2,B4,B6,B8... handelt, die jeweils überprüft werden sollen.

z.B.

B2 = 1 , dann kopiere A2,B2,C2 und füge diese in Tabelle2 in C5,D5,E5 ein
B4 = 0 keine Aktion
B6 = 1 , dann kopiere A6,B6,C6 und füge diese in Tabelle2 in C9,D9,E9 ein
usw...

Das ganze soll erst ausgeführt werden, wenn eine Checkbox den Wert True zurück gibt.

Mir fehlt hier absolut der Ansatz. Hatte hier schon einiges mit Range versucht, leider hatter er da alles kopiert. In den Zwischenzellen B3,B5,B7 usw... stehen Informationen, die nicht kopiert werden dürfen.

Da ich in Sachen VBA ein absoluter Newbie bin, bin ich über jede Hilfe dankbar.
Ich bin nicht der Typ, der wegen jeder Kleinigkeit im Forum schreibt, das sieht man an meinen Postings.

Aber hier bin ich mit meinem Motto " Learning by doing" leider am Ende.
Also jetzt schon mal Danke für eventuelle Antworten.

Bye Doje

:)

 

Hallo doje,

aus deiner Frage habe ich folgende Aufgabenstellung entnommen:

Durch das Aktivieren eines Kontrollkästchens (CheckBox) soll, beginnend in der 2-ten Zeile und in Abständen von 2 Zeilen (nächste Zeile = 4 usw.) kontrolliert werden, ob in der Spalte 2 der Zeile der Wert 1 steht. Im Ja-Fall sollen die ersten 3 Zellen der Zeile in das Tabellenblatt 2 kopiert werden, wobei gelten soll: Die drei Zellen sollen versetzt um 2 Spalten und 3 Zeilen in das Tabellenblatt2 kopiert werden, also A2:C2 nach C5:E5, A4:C4 nach C7:E7 usw.

Vorgaben bei mir (die musst du leider noch für deine Vorgaben ausbessern):
Das Kontrollkästchen ist aus der Formular-Symbolleiste erstellt und hat einen Zellbezug auf G2 (WAHR/FALSCH).

Lösung:

• Kontrollkästchen rechts anklicken und Makro zuweisen auswählen.
• Neu auswählen (VBA-Editor mit Sub Kontrollkästchen1_Click()... End Sub)
• Folgenden Code einstellen Code:
  
• Spalte B bearbeiten (Einsen setzen)
• Kontrollkästchen aktivieren

Noch Fragen? *biggrin.gif*

 

Danke Geronimo2002 für die schnelle Antwort.
Ich werde es gleich mal versuchen....

 

Super...Vielen Dank schon mal hierfür...
Es funktioniert fast so wie es sein soll.

Habe die Bedingung geändert, das es vorkommen kann, dass anstatt 1 auch ein anderer Wert in der Zelle steht. Und es wird noch eine bestimmte Zelle kopiert.

Code:

Eine Frage hätte ich noch. Wie kann man die kopierten Felder wieder löschen, wenn die CheckBox FALSE liefert?
Mit der kopierten Zelle habe ich es hinbekommen, aber wie verhält sich das mit der Schleife?


P.S.
Habe zum testen, und zum verstehen mal mit der Zellenversetzung gespielt. Deshalb
Code:

nur auf 1.

 

Servus Doje,

hier der Code mit dem Zusatz, der bei ausgeschaltetem Kontrollkästchen und Spalte2-Wert = 0 die Werte in Tabellenblatt 2 wieder löscht. Mit den Kommentaren habe ich versucht, den Ablauf ein wenig zu erläutern. Die kannst du nach dem Lesen zur besseren Übersicht wieder löschen.
Code:

Wie du sehen kannst, habe ich die Spezial-Kommandos (SendKeys usw.) jetzt außerhalb der Verarbeitung eingefügt, um den Code übersichtlicher zu gestalten.

Falls unabhängig vom Zustand des Kontrollkästchens bei 0 gelöscht und bei > 0 kopiert werden soll, dann habe ich diese Alternative für dich. Mit diesen Codezeilen ersetzt du einfach die anderen
Code:

 

Vielen Dank Geronimo2002

funktioniert jetzt einwandfrei.