Laufzeitfehler 1004

Hallo Leute,
ein Frage zu einem nicht verständlichen Vorgang.
innerhalb eines Sub's wird folgende Befehlsfolge ausgeführt.
With Range("C11").Offset(0, iMax)
'Spalte B kopieren
Range("C11:C44").Copy .Cells(1)
'Firmennummer eintragen
.Value = iMax + 1
'Hyperlink anpassen
.Hyperlinks.Add Anchor:=.Cells(1), Address:="",
SubAddress:="'Firma " & iMax + 1 & "'!A1"
'in den kopierten Formeln "Firma 1" durch "Firma imax+1" ersetzen
With Application.Intersect(Range"D12:D16,D18:D22,D25:D38, D40:D44").EntireRow, .EntireColumn)
.Replace What:="Firma 1", Replacement:="Firma " & iMax + 1, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Wenn ich dieses Sub ausführe laufe ich bei With Applicatin.Intersect(Range....)
auf den Laufzeitfehler 1004 -Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen. Gehe ich dann im Debugger im Einzelschritt weiter wird die Funktion ordnungsgemäß abgeschlossen.
Wer kann sich das erklären.
Gruß Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
ja, das Geschreibsel war nicht ganz in Ordnung u. geht kürzer.
Aber das Hyperlink-Einfügen passt so nicht in diese Prozedur dazu.
Frage mich nicht weshalb.


Dim imax As Long
Sub aaa()
imax = 2
With Range("C11").Offset(0, imax)
' kopieren
Range("C11:C44").Copy .Cells(1)
'Firmennummer eintragen
.Value = imax + 1
End With
'in den kopierten Formeln "Firma 1" durch "Firma imax+1" ersetzen
With Range("C12:C16,C18:C22,C25:C38,C40:C44").Offset(0, imax).Cells
.Replace What:="Firma 1", Replacement:="Firma " & imax + 1, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End With
Call bbb
End Sub

Sub bbb()
'Hyperlink einfügen
With Range("C11").Offset(0, imax)
.Hyperlinks.Add Anchor:=.Cells, Address:="", SubAddress:="'Firma " & imax + 1 & "'!A1"
End With
End Sub

Gruß Gerd

Sub aaa() Dim imax As Long Dim c As Range imax = 2 Set c = Cells(11, 3 + imax) Range("C11:C44").Copy c c = imax + 1 Range("C12:C16,C18:C22,C25:C38,C40:C44").Offset(0, imax) _ .Replace What:="Firma 1", Replacement:="Firma " & imax + 1, _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False c.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'Firma " & imax + 1 & "'!A1" End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread