Mit SelectionChange div. Bereiche für div. Makros
17.06.2016 10:20:31
Nermin
ich brauche wieder einmal eure Hilfe:
ich möchte gerne folgenden Code:
If Intersect(Target, Range("n11:n52")) Is Nothing Then
Select Case Target.Value
Case "ASME B16.5", "ASME B16.47A", "ASME B16.47B" '...
Werkstoff = "ASTM A105"
'case Weitere
'Werkstoff = "me"
Case Else
MsgBox Target & ": noch nicht zugeordnet"
End Select
Target.Offset(0, -1) = Werkstoff
In diesen Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Werkstoff$
If Intersect(Target, Range("d11:d52")) Is Nothing Then 'nur im fraglichen Bereich abfangen
Eingabe.Visible = False
Exit Sub '---> Ausstieg!
End If
If (Target.Rows.Count > 1) Or (Target.Columns.Count > 1) Then 'Mehr als eine Zelle markiert! _
Eingabe.Visible = False
Exit Sub '---> Ausstieg!
End If
Eingabe.Visible = True
Call eingabelisteFill(Eingabe)
Eingabe.Left = Target.Left - 5
Eingabe.Top = Target.Top - 2
Eingabe.Width = Target.Width + 15
Eingabe.Height = Target.Height + 4
Eingabe.Text = Target.Text
Eingabe.Activate
End Sub
Was deutlich wird: es sind verschiedene Makros die bei Veränderung der jeweils definierten Bereiche ausgeführt werden sollen. Ich habe viele Foren durchforstet nur ich finde irgendwie keine Lösung die bei mir funktioniert.
Ich erwarte nicht dass der Code komplett von euch umschrieben wird. Ein Paradebeispiel würde reichen :)
Freundliche Grüße,
Nermin
Anzeige