4.5k Aufrufe
Gefragt in Tabellenkalkulation von ponscho Mitglied (323 Punkte)
Guten Morgen Community,

wie bekomme ich zwei Private Sub Worksheet_Change Makros zusammen?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$Q$1" Then Exit Sub
On Error Resume Next
ActiveSheet.Name = Range("Q1").Value
If Err <> 0 Then
MsgBox "Tabellenname bereits vorhanden!", vbCritical
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("E5,E33,E37,E41,T8,T9,T10,T11")) _
Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target = UCase(Target)
ERRORHANDLER:
Application.EnableEvents = True
End Sub


Habe es schon mit "Next" dazwischen versucht, will aber nicht recht.

Ich bedanke mich schonmal für das lesen und das sich annehmen meines Problemes!

Internette Grüsse
Mick

12 Antworten

0 Punkte
Beantwortet von
Hallo Nighty,

danke für deine Antwort, leider ist das noch nicht ganz das was ich benötige.

Sobald ich eine Checkbox auswähle soll das Prog. je nach Auswahl die Werte in Zelle A4 (10:10)oder B4 (11:11) oder C4(12:12) schreiben. Für die nächsten 3 Checkboxen in Zelle A5 oder B5 oder C5,... usw. bis A13,B13,C13

Danach soll diese Auswahl der jeweiligen Checkbox in J4, J5,... bis J13  stehen, falls keine Auswahl getroffen wurde einfach leer belassen.

Danke dir schon mal im Vorraus für deine Hilfe.
0 Punkte
Beantwortet von
Hallo Nighty,

hallo zusammen,

danke dir dafür, leider aber noch nicht ganz das was ich suche.

Checkbox 1-3, 4-6....bis 28- 30 haben jeweils die Werte checkbox1 = 10:10,checkbox2 = 11:11,checkbox3 = 12:12 sozusagen sind es 10 Gruppen á 3 Checkboxen.

Nun soll bei Aktivierung der Checkbox der entsprechende Wert in A4 (10:10) oder B4(11:11) oder C4(12:12) je nach Auswahl geschrieben werden und das für alle 10 Gruppen natürlich fortlaufend dann in die nächste untere Zelle schreiben bis A13,B13,C13.

Wenn keine Auswahl getroffen worden ist sollen die Zellen auch leer sein.

Ebenso sollte dieser Wert dann in z.B. Zelle J4 für Gruppe 1, in Zelle J5 für Gruppe 2 usw. bis J13  

Danke euch schon einmal im Vorraus.

LG Toto
...