VBA Codefehler

[ditschi]

Hallo,


bin blutiger Anfänger in VBA und habe natürlich sofort ein Problem

Obwohl bei der manuellen eingabe alles läuft macht das Makro Probleme.

Bringt folgende Fehlermeldung

Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt<pre>Sub Makro1()
'
' Makro1 Makro
'

'
Range("C5").Select
ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'
End SubWer erbarmt sich?

Im voraus vielen Dank
Dieter

[hotte-7]

Hallo,

also nur mal so beim schnellen anschaun des Codes...
dein "End Sub" am Ende sehe ich ja, aber wo beginnt es mit "Sub....."???

zB ein "Sub Macro1()" oder ähnliches...