Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Hallo und Frage: Makro für Kontrollkästchen, beim aktivieren Zellen und Inhalte aus Tabelle einfügt und beim deaktvieren herausnimmt?





Frage

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 1 von Saarbauer

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

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

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

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

Hallo Fedjo,
ich habe das probiert und es klappt.
1000 dank für die Hilfe.
Viele Grüße
Thomas

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: