wenn ich diese beiden identischen Makros nacheinander laufen lasse,
erhalte ich die Fehlermeldung im Betreff. Werde daraus aber auch nicht
schlau.
Irgendjemand eine Idee ?
Besten Dank
R.Schmitt
Sub weiter()
For Each zelle In Range("E209:E260,G209:G260,I209:I260,K209:K260,M209:M260,O209:O260,Q209:Q260, _
S209:S260,U209:U260,W209:W260,Y209:Y260,AA209:AA260,AC209:AC260,AE209:AE260,AG209:AG260,AI209:AI260").Cells
zelle.Select
If zelle.Value > 0 And zelle.Offset(0, -1).Value "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=zelle.Offset(0, -1).Text, TextToDisplay:= _
zelle.Text
End If
Next
weiter2
End Sub
Sub weiter2()
For Each zelle In Range("E209:E260,G209:G260,I209:I260,K209:K260,M209:M260,O209:O260,Q209:Q260, _
S209:S260,U209:U260,W209:W260,Y209:Y260,AA209:AA260,AC209:AC260,AE209:AE260,AG209:AG260,AI209:AI260").Cells
zelle.Select
If zelle.Value > 0 And zelle.Offset(0, -1).Value "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=zelle.Offset(0, -1).Text, TextToDisplay:= _
zelle.Text
End If
Next
End Sub