Office: Fehlerbehandlung wenn Wert nicht vorhanden

Guten Tag in die Runde,

mit dem unten abgebildeten Code kopiere ich 2 Spalten an das Ende der selbigen Tabelle und kürze dann den vorhandenen String.

Leider funktioniert das nicht richtig, wenn eine Spalte davon nicht vorhanden ist.

Wenn eine Spalte nicht vorhanden ist, soll wenigstens die eine vorhandene kopiert werden und ans Ende gestellt werden. Wenn keine vorhanden dann nichts tun.

Wie muss das denn umgeschrieben werden, dass es richtig klappt.

Vielen Dank.

Viele Grüße
Uwe

Code:

:)

 

Hi Uwe,

definiere die Variablen as range, "Sette" den Range über Find (ohne Colum oder Row am Ende), und prüfe dann, ob der Range nicht nothing ist. Wenn nicht, Aktion ausführen.

Bsp.:
Dim rng as range
set rng = Rows(1).Find("BN Item Reference Number1")

if not rng is nothing then
kopieren..... von rng.column
endif

 

Ergänzend:
Ich habe mir den Kommentar in deinem anderen Thema hierzu verkniffen (weil ich es leid bin, es papageienartig wiederholen zu müssen) , aber: Die Find-Methode sollte man nie ohne Angabe der relevanten Suchparameter nutzen. Nur den Begriff zu suchen reicht oft nicht aus, wenn andere Einstellungen einen Treffer verhindern. Das Thema ist ausreichend gut in der Onlinehilfe beschrieben, dort solltest du nachlesen. Dort hättest du dir auch Beispiele anschauen können, die dir beim Verstehen und Nichtaufdienasefallen helfen.

Fragen ist gut. Lesen und selber verstehen ist besser.

Und ja, ich sehe es ein: Der nächste, der mit unsachgemäß angewendeter Find-Methode um die Ecke gelatscht kommt, bekommt wieder sofort die volle Litanei der Belehrungen...

 

Hallo in die Runde,

@ RJ

vielen Dank für den Ansatz. Und ich dachte mit Find komme ich gut zurecht. Dann lass ich das mit dem Find weg.

@EarlFred

schade, dass Du Dir den Kommentar verkniffen hast. Ich nehme mir Kritik ja auch zu Herzen und versuche diese bei nächsten Projekten nicht noch einmal zu machen.

Ich meld mich noch einmal.

Vielen Dank bis hierher.

Viele Grüße

Uwe

 

löblich!

das mag sein. Aber nach gefühlt 539-facher Wiederholung hatte ich einfach mal keine Lust *wink.gif*
Ich gelobte ja bereits Besserung.

 

\@RJ
das war ja mal ein richtig dankenswerter Ansatz. Der hat mich auf die richtige Fährte gebracht.


@ EarlFred

dafür gibt es doch kopieren und einfügen. da kann man ganze Absätze ruck zuck den Leuten vor den Latz knallen. *wink.gif*

Zurück zum Thema.

Ich habe den Code jetzt mal umgebaut. Und er funktioniert. Gehört da noch etwas geändert, kann etwas vereinfacht werden, gehört sich etwas überhaupt nicht oder kann man den so stehen lassen und sich erfreuen.

Vielen Dank.

Viele Grüße

Uwe

Code:

 

du verwechselst mich mit jemand anderem...

Code:

Meinen Hinweis zur Find-Methode sehe ich grad nicht umgesetzt, könnte aber durch meine Sehschwäche bedingt sein. Soviel zur 539. Wiederholung und deinen guten Vorsätzen... *frown.gif*

Code:

wenn man hinterher überschreibt, muss man das nicht. "Ordentlicher" ist es aber.

Code:

siehe vor. man könnte rng auch noch einmal verwenden. Muss man aber nicht.

Ansonsten: Rück den Code mal ein. Alles, was innerhalb eines Blocks liegt, sollte einen zusätzlich Tab spendiert bekommen.

 

Habe ich das jetzt richtig aus der Hilfe herausgearbeitet?

Code:

rng werde ich versuchen noch einmal zu verwenden.

einrücken mache ich dann, wenn der Code zur vollsten Zufriedenheit abgenommen wurde. :-)

 

angefangen ja. Weitermachen! *wink.gif*

Fehlende Einrückungen sind ein erheblicher Mangel, so dass die Abnahme verweigert wird. Wir drehen uns im Kreis.

Genug für dieses Thema, ich überlasse dich deinem Schicksal. Viel Erfolg noch.

 

vielen Dank für Deine Hilfe und Deine Geduld

 

You made my day...*grins *grins *grins