Fehler durch MsgBox in VBA abfangen

Markus · 2006-03-06T17:46:53+00:00

Hallo, ich habe folgenden Code: If intEmpfänger Then intSpalteLAYOUT = 2 intSpalteVARCOL = 4 Do intSpalteVAR = 4 Do If shVar.Cells(7, intSpalteVAR) = shLayout _ .Cells(intEmpfänger + 1, intSpalteLAYOUT) Then Sheets("VARCOL").Activate For i = 7 To 78 shVar.Cells(i, intSpalteVAR).Copy With shVarcol .Cells(i, intSpalteVARCOL).Select .Paste .Paste Link:=True End With Next i intSpalteVARCOL = intSpalteVARCOL + 1 Exit Do End If intSpalteVAR = intSpalteVAR + 1 Loop Selection.Find What:=intSpalteVAR intSpalteLAYOUT = intSpalteLAYOUT + 1 Loop Until _ shLayout.Cells(intEmpfänger + 1, intSpalteLAYOUT) = "" End If Nun möchte ich einen Fehler abfangen, wenn die Abfrage aus: If shVar.Cells(7, intSpalteVAR) = shLayout.Cells(intEmpfänger + 1, intSpalteLAYOUT) Then Sheets("VARCOL").Activate negativ verläuft. Ich dachte an eine MsgBox die mir die Meldung gibt"falsche Spalte" wenn shVar.Cells(7, intSpalteVAR) shLayout.Cells(intEmpfänger + 1, intSpalteLAYOUT)oder so. Wo muss ich den Fehler im eingangs abgebildeten Code wie abfangen, damit das Programm keinen Laufzeitfehler meldet, falls die Spalte von shVar in shLayout nicht gefunden wird und stattdessen eine Fehlermeldung ausgibt die darauf hinweist, dass die Spalte nicht gefunden werden konnte? gruss Markus

Hallo Markus,
ich hab das mal in ein lesbares Bild gebracht und gleich Dein Anliegen eingebaut.
Das Ganze ist ungetestet. Die innere Do- Loop- Schleife ist aber nun, da die If- Then- Bdingung immer in einem Schleifenabbruch landet, nicht mehr notwendig. Aber da ich nicht weiß, was Du anstelle des Exit Sub einbauen willst, lass ich das mal so drin stehen.

If intEmpfänger Then
    intSpalteLAYOUT = 2
    intSpalteVARCOL = 4
    Do
        intSpalteVAR = 4
        Do '(nicht notwendig)
            If shVar.Cells(7, intSpalteVAR) = shLayout _
                                            .Cells(intEmpfänger + 1, intSpalteLAYOUT) Then
                Sheets("VARCOL").Activate
                For i = 7 To 78
                    shVar.Cells(i, intSpalteVAR).Copy
                    With shVarcol
                        .Cells(i, intSpalteVARCOL).Select
                        .Paste
                        .Paste Link:=True
                    End With
                Next i
                intSpalteVARCOL = intSpalteVARCOL + 1
                Exit Do
            Else '<----------------
                MsgBox "eine Fehlermeldung die darauf hinweist, dass die Spalte nicht gefunden werden konnte", vbCritical, "Fehler"
                Exit Sub 'oder was auch immer
            End If '<---------------
            intSpalteVAR = intSpalteVAR + 1 '(nicht notwendig)
        Loop '(nicht notwendig)
        Selection.Find What:=intSpalteVAR
        intSpalteLAYOUT = intSpalteLAYOUT + 1
    Loop Until shLayout.Cells(intEmpfänger + 1, intSpalteLAYOUT) = ""
End If

Gruß- Micha
PS: Rückmeldung wäre nett.

Hi Micha,
super. Das funktioniert jetzt genau so, wie ich es mir vorgestellt habe und woran tagelang erfolglos herumgedoktert habe.
Die Befehlszeile Selection.Find What:=intSpalteVAR stammte noch aus einem Versuch die Spalten zu suchen. Allerdings hatte ich vergessen, diesen aus dem Code zu löschen. Von daher war diese ohne Bedeutung und ich habe ihn nun aus dem Programmtext entfernt.
Jetzt habe ich aber noch eine weitere Frage, bei der du mir hoffentlich auch helfen kannst.
Und zwar würde ich gerne noch Abweichungen zwischen den einzelnen Jahren errechnen können. Dabei möchte ich jedoch nicht die Abweichungen fest in der Tabelle VAR berechnen, sondern diese zur Laufzeit erzeugen und auch diese in VARCOL einfügen. Dazu würde ich gerne ebenfalls im LAYOUT-Blatt einen Befehl definieren können, der diese Berechnung veranlasst.
Hast du eine Idee wie ich das anstellen könnte, dass wenn ich im Layout-Blatt in eine Zelle schreibe >, das Programm mir daraufhin eine Abweichung der beiden Jahre berechnet? dies soll erfolgen, indem 2005 durch 2002 geteilt und dann 1 abgezogen wird. also: (2005/2002)-1
Dabei soll das mittlerweile gelöste Problem in dem Maße gelöst werden, wie es nun geschafft ist (das geht doch hoffentlich, oder?
ich habe die Datei hier reingestellt.
https://www.herber.de/bbs/user/31734.xls
Dabei habe ich bei Benutzer Z beispielhaft schon so eine Berechnung formuliert. Nur wie ichs in VBA umsetzen soll, ist mir momentan noch schleierhaft.
Wäre echt super Micha, wenn du mir auch da nochmal aus der Patsche helfen könntest.
Im Voraus schonmal vielen lieben Dank.
Herzliche Grüße
Markus

Fehler durch MsgBox in VBA abfangen

Forumthread: Fehler durch MsgBox in VBA abfangen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial