Fehlermeldung: IF Block ohne End if
15.06.2005 17:02:50
Basch
ich habe mir diesen Code gebastelt und bekomme immer die Fehlermeldung "If Block ohne End If". Was ist in meiner Prozedur falsch? Wäre für Hilfe sehr dankbar.
Viele Grüße, Basch
Sub Verweis()
Dim sPath As String, sFile As String
Dim sWks As String, sRng As String
Dim P As Integer
'Zeile 7
If Tabelle1.Range("E5") = 0 Then GoTo EndeTabelle1
sFile = Tabelle1.Range("B5").Value 'Pfadbezeichnung in Blatt "Mittarbeiter"
P = InStrRev(sFile, "\") 'Aufteilung Pfad und Dateiname
sPath = Left$(sFile, P) 'Aufteilung Pfad und Dateiname
sFile = Mid$(sFile, P + 1) 'Aufteilung Pfad und Dateiname
sWks = Tabelle1.Range("C5").Value 'Blattname in Tabellenblatt "Tabelle1"
sRng = Tabelle1.Range("A1").Value 'Suchbereich von SVerweis
If Dir(sPath & sFile) = "" Then
Beep
MsgBox "Quelldatei " & sPath & sFile & _
" wurde nicht gefunden!"
Range("d7").Formula = _
"=VLOOKUP($A$5,'" & sPath & _
"[" & sFile & "]" & sWks & "'!" & _
sRng & ",D$1,0)"
EndeTabelle1:
'Zeile 8
If Tabelle1.Range("E6") = 0 Then GoTo EndeTabelle2
sFile = Tabelle1.Range("B6").Value 'Pfadbezeichnung in Blatt "Mittarbeiter"
P = InStrRev(sFile, "\") 'Aufteilung Pfad und Dateiname
sPath = Left$(sFile, P) 'Aufteilung Pfad und Dateiname
sFile = Mid$(sFile, P + 1) 'Aufteilung Pfad und Dateiname
sWks = Tabelle1.Range("C6").Value 'Blattname in Tabellenblatt "Tabelle1"
sRng = Tabelle1.Range("A1").Value 'Suchbereich von SVerweis
If Dir(sPath & sFile) = "" Then
Beep
MsgBox "Quelldatei " & sPath & sFile & _
" wurde nicht gefunden!"
Range("d8").Formula = _
"=VLOOKUP($A$5,'" & sPath & _
"[" & sFile & "]" & sWks & "'!" & _
sRng & ",D$1,0)"
EndeTabelle2:
Range("D7:d9").Select
Selection.Copy
Range("E7:AH11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub