21.10.2021, 11:25
Anbei mein Quellcode.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rFind As Range
On Error GoTo Fehler
If InStr(Target.Address, ":") Then Exit Sub
If Target.Column <> 4 Then Exit Sub
If Target.Value <> Empty Then
Set rFind = Columns(4).Find(what:=Target, After:=[d3], LookIn:=xlFormulas, _
lookat:=xlWhole, SearchDirection:=xlNext, MatchCase:=False)
If Not rFind Is Nothing Then
If rFind.Address <> Target.Address Then
rFind.Offset(0, -1) = rFind.Offset(0, -1) + 1
Target.Select: Target.Value = ""
Exit Sub
End If
End If
End If
If Target.Value = Empty Then
Target.Offset(0, -1) = ""
Target.Select
ElseIf Target.Offset(0, -1) = "" Then
Target.Offset(0, -1) = 1
Target.Offset(1, 0).Select
End If
With ActiveSheet
.PageSetup.PrintArea = Range(Range("AA1").Text).Address
End With
Exit Sub
Fehler: MsgBox "Position gelöscht"
End Sub
Es geht um den Fett markierten Teil, der meinen Dynamischen Druckbereich festlegen soll.
Wenn ich diesen Teil in ein Sub setze gehts einwandfrei, aber da ich ja bereits den privat sub habe müsste ich diesen hier integrieren.
Das wiederrum führt aber nicht zum gewünschten Ergebnis.
Kann mir da jemand helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rFind As Range
On Error GoTo Fehler
If InStr(Target.Address, ":") Then Exit Sub
If Target.Column <> 4 Then Exit Sub
If Target.Value <> Empty Then
Set rFind = Columns(4).Find(what:=Target, After:=[d3], LookIn:=xlFormulas, _
lookat:=xlWhole, SearchDirection:=xlNext, MatchCase:=False)
If Not rFind Is Nothing Then
If rFind.Address <> Target.Address Then
rFind.Offset(0, -1) = rFind.Offset(0, -1) + 1
Target.Select: Target.Value = ""
Exit Sub
End If
End If
End If
If Target.Value = Empty Then
Target.Offset(0, -1) = ""
Target.Select
ElseIf Target.Offset(0, -1) = "" Then
Target.Offset(0, -1) = 1
Target.Offset(1, 0).Select
End If
With ActiveSheet
.PageSetup.PrintArea = Range(Range("AA1").Text).Address
End With
Exit Sub
Fehler: MsgBox "Position gelöscht"
End Sub
Es geht um den Fett markierten Teil, der meinen Dynamischen Druckbereich festlegen soll.
Wenn ich diesen Teil in ein Sub setze gehts einwandfrei, aber da ich ja bereits den privat sub habe müsste ich diesen hier integrieren.
Das wiederrum führt aber nicht zum gewünschten Ergebnis.
Kann mir da jemand helfen?