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