Makro bei Änderung in bestimmten Bereich
22.07.2016 08:54:29
Nermin
mir wurde in dieser Hinsicht schon mal von euch geholfen und das funktioniert auch sehr gut! Nur muss ich den Code soweit abändern, dass die Makros erst bei Eingabe ab einer bestimmten Zeile ausgeführt werden. Im Moment ist es die ganze Spalte die davon betroffen ist!
Wie kann ich das ändern?
Mein Code sieht beispielsweise wie folgt aus:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Dim sp%, SPA%, SPAL%, SPALT%, SPALTE%, SPALTEE%, SPALTEEE%, Einheit$, Nennweite#, Werkstoff$, _
Norm$, TLB$, Gewicht$, Faktor$
Dim i As Variant, n As Integer, Pi As Double, Dichte As Single, Höhe As Single, o As Object, _
a, b, c, d, s&, z&
SPALTEEE = 3 ' Spalte C Menge
sp = 5 ' Spalte E Gegenstand
SPAL = 6 ' Spalte F Nennweite
SPALTEE = 8 ' Spalte H Class
SPALT = 14 ' Spalte N Werkstoff
SPA = 15 ' Spalte O Norm
SPALTE = 13 ' Spalte M Wandstärke
Pi = WorksheetFunction.Pi()
' Gegenstand Menge Position
If Not Intersect(Columns(sp), Target) Is Nothing And Target "" Then
If Target.Count = 1 Then
Select Case Target.Value
' usw
End Sub
Gruß,
Nermin