ich habe im Archiv eine Anwendung gefunden, welche zum Teil funktioniert.
Sub Hauptkonto_löschen_Test3()
Dim suchbegriff As String
Dim fc As Object
Dim i As String
Dim s, s1, s2, s3 As String
Dim s4 As String
Dim s5 As String
Dim r As Long
'Dim b1 As Range, b2 As Range, b3 As Range, myMultiAreaRange As Range
Dim b1 As Range
Dim b2 As Range
Dim b3 As Range
Dim myMultiAreaRange As Range
suchbegriff = "test16"
'suchbegriff = UserForm2_letztes_Konto_löschen.TextBox25
Set fc = Worksheets("Hilfstabelle").Columns("A").Rows("2:65000").Find(what:=suchbegriff)
fc.Select
s = Selection.Column
r = Selection.Row
s1 = (Selection.Column) + 3
s2 = (Selection.Column) + 13
s3 = (Selection.Column) + 15
s4 = (Selection.Column) + 21
s5 = (Selection.Column) + 17
'Debug.Print s1
'Debug.Print s2
'Debug.Print s3
'Debug.Print s4
Set b1 = ActiveCell
Set b2 = Range(Cells(r, s1), Cells(r, s2))
'Set b3 = Range(Cells(r, s3), Cells(r, s4))
'Set myMultiAreaRange = Union(b1, b2, b3)
Set myMultiAreaRange = Union(b1, b2)
myMultiAreaRange.Select
End Sub
Wenn ich "'Set b3 = Range(Cells(r, s3), Cells(r, s4))" und "'Set myMultiAreaRange = Union(b1, b2, b3)" aktiviere kommt Laufzeitfehler 1004.Was mache ich hier falsch? Könnt ihr mir Bitte helfen.
Gruss
Peter