Hallo und Frage: Makro für Kontrollkästchen, beim aktivieren Zellen und Inhalte aus Tabelle einfügt und beim deaktvieren herausnimmt?
Hallo Forum!
Ich möchte eine Tabelle mit verschiedenen Kontrollkästchen machen.
Die Kontrollkästchen, sollen beim aktivieren Inhalte aus anderen Tabellen kopieren.
Wenn das gleich Kontrollkästchen deaktiviert wird, sollen die Inhalte entfernt werden.
Ich schaffe es nur, dass ein Makro entweder das eine oder das andere macht.
Wie kriege ich ein solches Makro hin....
Ich habe keine Ahnung von Programmierung vermute aber mit irgendeiner If then Programmierung...
Vielen Dank vorab
Antwort schreiben
Antwort 1 von Saarbauer vom 29.03.2020, 15:52 Options
Hallo,
da du keine Angaben zu deinem Programm machst, kann man nur sagen, dass deine Idee mit
If "Kontrollkästchen" = "Aktiv " Then
-Programm Daten Reinkopieren
Else
-Programm Daten löschen
Endif
Gruß
Helmut
Antwort 2 von thomas64 vom 29.03.2020, 20:11 Options
Hallo Helmut
und vielen Dank für die Antwort.
ich habe erst später bemerkt, dass ich keine Angaben über die Software gemacht habe.
Ich wende Excel2003 an und bin blutiger Anfänger im programmieren von VBA Anwendungen.
Bislang habe ich das von mir aufgezeichnete Makro in der Anwendung des Kontrollkästchens über Makro zuweisen verknüpft.
Wenn ich mir das Makro dann ansehe, finde ich keine Referenz auf das Kontrollkästchen, so dass ich davon ausgehe, ein Makro zu brauchen, dass Makro auslöst, wenn ich das Kontrollkästchen aktivieren, dann meine Daten einfügt und bei deaktivieren, die Daten wieder entfernt.
Es wäre schön, wenn die Info kommt, wie ich auch das Kontrollkästchen ansteuere.
Sofern jemand antwortet, werde ich erst Montag dazu kommen, daran weiter zuarbeiten..
Viele Grüße und vielen Dank im voraus
Thomas
Antwort 3 von fedjo vom 30.03.2020, 17:30 Options
Hallo Thomas64,
du solltest vielleicht eine CheckBox verwenden.
Option Explicit
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
'Dein Makro
Range("A2") = 10
Else
Dein Makro
Range("A2") = ""
End If
End Sub
Antwort 4 von fedjo vom 30.03.2020, 17:34 Options
Hallo Thomas64,
ein kleiner Fehler!
Option Explicit
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
'Dein Makro
Range("A2") = 10
Else
'Dein Makro
Range("A2") = ""
End If
End Sub
Gruß
fedjo
Antwort 5 von thomas64 vom 31.03.2020, 11:56 Options
Hallo Fedjo,
ich habe das probiert und es klappt.
1000 dank für die Hilfe.
Viele Grüße
Thomas