ich habe folgendes Problemchen:
So weit bin ich: Ich habe eine Spalte in der in jeder Zeile ein Dropdown menü steht.
wenn man (Bsp) in A10 etwas Auswählt, wird ein Makro gestartet welches aus hinterlegten Inhalten die Dazugehörigen Daten in die Benachbarten Zellen Schreibt (Einheiten und Werte zur Berechnung)
Dies habe ich auch mit einer Variablen versehen, damit ich nur die Abfrage der einer Zelle ändern muss (und nicht die 540 Einzeladressen pro Blatt).
Bei der ersten funktionier das auch,
ABER
sobald ich die weiteren hinzu fügen will habe ich entweder das Problem des - Mehrdeutigen Namen - bzw das es wenn ich etwas dazu scheibe wie hier im Beispiel die 1 , das es nicht funktioniert/überlesen wird.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("$A$10")) Is Nothing Then Exit Sub
Dim x As Long
x = 10
Call Test1(x)
End Sub
Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("$A$11")) Is Nothing Then Exit Sub
Dim x As Long
x = 11
Call Test1(x)
End Sub
Private Sub Test1(x As Long)
If (Range("A" & x)) = "NSK m. TB" Then Range("B" & x).Value = Range("I2")
If (Range("A" & x)) = "NSK m. TB" Then Range("D" & x).Value = Range("K2")
End Sub
und so geht es dann noch ein ganz paar zeilen weiter...Aber wie gesagt, Hauptproblem ist die "Worksheet_Change1 Sache" ich muss noch mehrere Zuweisungen machen... Kann man die in einem Verbinden?
Oder wie muss ich die benennen, das die erkannt werden?
Ich hoffe ich hab mich da nicht zu sehr verrannt...