Hallo Leute
Habe unteres Markro, das mir Werte aus einen anderen Sheet einlest.
Funkt.auch,Nur bei "strBla = strErgebnis ' Blattname muss identisch sein mit Eingabe"
Aber wenn der Blattname nicht identisch ist wird "Wert" eingetragen.
Könnte man hier nicht den Fehler durch eine Msg Box abfangen?
Z.B. "Blattname ist nicht gleich Eingabe" oder so ähnlich.
Also das "Wert" nicht eingetragen wird.
Könnte mir Bitte dabei jemand weiterhelfen.
Danke & Gruß Heinz
End If
strWW = "'"
strPfd = strPfad
strXX = "["
strDat = strDatei
strYY = "]"
strBla = strErgebnis ' Blattname muss identisch sein mit Eingabe
strZZ = "'!"
' für Zelle D8: D8 = R8C4 nach Spalte A"
strZe = "R8C4"
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
strSource = strWW & strPfd & strXX & strDat & strYY & strBla & strZZ & strZe
Range("A" & LetzteZeile).Value = xl4Value(strSource) 'zurückschreiben
' für Zelle D11: ' D11 = R11C4 nach Spalte B"
strZe = "R11C4"
LetzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
strSource = strWW & strPfd & strXX & strDat & strYY & strBla & strZZ & strZe
Range("B" & LetzteZeile).Value = xl4Value(strSource) 'zurückschreiben
' für Zelle L8 D6 = R8C12 nach Spalte C"
strZe = "R6C4"
LetzteZeile = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1
strSource = strWW & strPfd & strXX & strDat & strYY & strBla & strZZ & strZe
Range("C" & LetzteZeile).Value = xl4Value(strSource) 'zurückschreiben
'für Zelle L6 L6 = R6C12 nach Spalte E"
strZe = "R6C12"
LetzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row + 1
strSource = strWW & strPfd & strXX & strDat & strYY & strBla & strZZ & strZe
Range("E" & LetzteZeile).Value = xl4Value(strSource) 'zurückschreiben
' für Zelle L8 L8 = R8C12 nach Spalte F"
strZe = "R8C12"
LetzteZeile = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row + 1
strSource = strWW & strPfd & strXX & strDat & strYY & strBla & strZZ & strZe
Range("F" & LetzteZeile).Value = xl4Value(strSource) 'zurückschreiben
'Doppelte Datensätze Löschen
Dim I As Integer, iRows As Integer
iRows = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For I = iRows To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(I, 1)) > 1 Then
MsgBox " Diese SAP Nummer ist bereits vorhanden!"
Rows(I).Delete
Exit Sub