Typen unervträglich
Jochen
wenn ich den folgenden Code laufen lassen, so bleibt er immer bei: If Zelle.Value "#NV" then mit der Meldung: Typen unerträglich stehen.
Dim i As Long
Dim Zelle As Range
Dim Bereich As Range
Dim w
Set Bereich = Sheets(1).Range("X13:x107")
i = Sheets("Hochlastzeiten").Cells(Rows.Count, 23).End(xlUp).Row
Application.Calculation = xlCalculationManual
For Each Zelle In Bereich
If Zelle.Value "#NV" Then
w = Zelle.Offset(0, -8).Value
Sheets(2).Cells(i, 23).Offset(1, 0).Value = w
i = i + 1
End If
Next Zelle
Application.Calculation = xlCalculationAutomatic
Der Code soll in Tabelle1 in einer Spalte jede Zelle im Bereich X13:X107 durchsuchen. Steht nicht #NV drin, soll er den Wert aus Spalte 15 in dieser Zeile nehmen und in Tabelle2 eintragen. Alle Werte sollen dann untereinander stehen.
Wo ist denn nur mein Denkfehler?
Vielen Dank und Grüße
Jochen