habe mal wieder ein Problem und hoffe, dass man mir hier vielleicht helfen kann!
Ich habe 2 Makros: Das eine fügt mir eine Zeile hinzu und das
andere eine Spalte!
Mein Problem ist jetzt folgendes:
Ich möchte gerne beide Makros so zu schreiben, dass sich beide Makros nicht selbst behindern!
Vielleicht weiss ja jemand Bescheid!
LG Chris
Hier mein Makro:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
If Target.Column = 1 And Target.Row > 44 Then
If Target.Value <> "" Then
Rows(Target.Row + 1).Insert
ElseIf Target.Row > 45 Then
If Range("A48").Value = "Bemerkung:" Then
GoTo ende
End If
Rows(Target.Row).Delete
Application.ScreenUpdating = True
End If
End If
GoTo ende2 --> BEI DIESER EINSTELLUNG ÜBERSPRINGT ER MIR DAS
NÄCHSTE MAKRO! LEIDER!!!!
If Target.Row = 37 And Target.Column > 10 Then
If Target.Value <> "" Then
Columns(Target.Column + 1).Insert
ElseIf Target.Column > 11 Then
If Range("L36").Value = "Undichtheit über gesamte Prüfdauer [g]" Then
GoTo ende1
End If
Columns(Target.Column).Delete
Application.ScreenUpdating = True
End If
End If
ende:
ende1:
ende2:
End Sub