mein Problem an diesem Morgen ist mal wieder folgendes:
Ich habe ein Excel-Blatt, indem ich automatisch per einfügen von Werten in Zellen, meine Spalten und Zeilen automatisch erweitern lassen!
Zellen / Spalten allein ist kein Problem, aber leider geht es nicht, wenn ich die beiden Makros zusammen in eins schreibe! Vielleicht kann mir jemand helfen, wie ich die beiden Makros miteinander verknüpfen könnte!
MAKRO FÜR ZEILENEINSCHUB:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
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
ende:
End Sub
MAKRO FÜR SPALTENEINSCHUB:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row = 37 And Target.Column > 10 Then
If Target.Value <> "" Then
Columns(Target.Column + 1).Insert
ElseIf Target.Column > 9 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
ende1:
End Sub
Wäre klasse, wenn mir jemand behilflich sein könnte!
Vielen Dank im Voraus!
Chris