danke erstmal fuer den code.
es gibt da allerdings noch ein problem mit dem withblock
hattest du den code mal getestet?
vielleicht kannst du mir nochmal weiterhelfen
Dank schon im Voraus
MfG Addi
Dank schon im Voraus
MfG Addi
vielleicht nochmal kurz mein problem
ich moechte nach einem wort suchen dass vielleicht in C3 steht und von dort aus an bis vielleicht C13 oder C14 ... die Zellen kopieren.
dann kommt eine Leerzeile sprich hier soll das kopieren zu Ende sein.
Kannst du mir weiterhelfen?
Besten Dank schon im Voraus
MfG Addi
das erste kann man z.b. mit der funktion cdbl umgehen (ist aber nicht dein problem), da muss man noch schauen, dass man einen text nicht in eine zahl umwandelt ;-)
das zweite kann man mit einer on error anweisung vermeiden,
z.b. am Anfang des Modules mit
sub ...
on error goto ende
...
und am ende des moduls vor end sub, mit einer kurzen meldung
...
exit sub
ende:
msgbox "Leider habe ich " & personlnr & " nicht gefunden."
end sub
zum Bereich hatte ich ja schon was geschrieben.
z.B. statt
Columns("A:A").Activate
Range("A1:AA99").Activate 'oder wo immer gesucht werden soll
gruss andre
ich wünsch dir einen Guten Rutsch und alles Gute
Danke nochmal recht herzlich
MfG Addi
gibt es da eine möglichkeit?
danke Addi
gruss andre
noch eine fehlerquelle ist drin:
- wenn gleich nach dem gesuchten text eine leere zelle ist, wird bis zum nächsten wort gesprungen. kriegen wir auch noch hin.
gruss andre