Die folgend Do While Schleife geht in Fehler wenn sie auf einen Konto Wert trifft, der nicht in der Vergleichsliste Worksheets("Kostenstelle").Range("A:B") steht.
Ist es möglich die Schleife so zu programmieren, dass sie an Stelle der Fehlermeldung den unbekannten Konten Wert in der Vergleichsliste in die nächste leere Zelle A schreibt, dann in das Eingabefenster "suchen ersetzen" geht mit der Anzeige des Betrieb Wertes aus dem Sheets("neue_Daten_BME")Range("C" & i).Select, im Feld "suchen nach" und dort verweilt bis man im Feld "ersetzen durch" die korrekte Eingabe getätigt hat und den Button "ersetzen" betätigt hat. um dann mit der Schleife fort zu fahren bis zum nächsten unbekannten Wert.
Sub BetriebEintragen_test_15112018_2()
Dim i As Integer
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
i = 2
Sheets("neue_Daten_BME").Select
Do While Range("B" & i) ""
Range("C" & i).Select
ActiveCell = Application.WorksheetFunction.VLookup(Range("B" & i), Worksheets(" _
Kostenstelle").Range("A1:B74"), 2, False)
Range("I" & i).Select
ActiveCell = Application.WorksheetFunction.VLookup(Range("H" & i), Worksheets(" _
Energieart").Range("A1:B75"), 2, False)
' Range("O" & i) = Application.WorksheetFunction.VLookup(Range("H" & i), Worksheets(" _
Energiart").Range("A1:B49"), 2, False)
' Range("N" & i) = Range("C" & i) & Range("M" & i) & Range("L" & i) & Range("O" & i)
Range("Q" & i) = Range("C" & i) & Range("M" & i) & Range("N" & i)
' Range("Q" & i) = Range("C" & i) & Range("O" & i)
' Range("R" & i) = Range("M" & i) & Range("O" & i)
i = i + 1
Loop
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
Range("A2").Select
End Sub
Könnte da wirklich Hilfe gebrauchenGruß Michael