Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler 400

Fehler 400
15.08.2018 10:39:17
Ines
Hallo zusammen,
folgender Code schmeisst mir den Fehler 400 raus:
Sub Aufschlag()
Dim A As Object
Dim rowNr As Long
Dim rng As Range
Set rng = Range("F!:N!").Select
Set A = Range("S8").Select
For rowNr = 2 To ActiveSheet.rng.End(xlUp).Row
If ActiveCell.rng.value = "X" Then
If ActiveCell.rng.value  "X" Then
Set ActiveCell.FormulaR1C1 = "=RC[-6]+ A"
End If
End If
Next rowNr
End Sub

Der Code soll in einem vor gefilterten Bereich, alle Zellen die im Range kein "X" enthalten, berechnen : Zelle Spalte E aus der jeweiligen Zeile + immer Zelle S8 und den Wert in die leere Zelle ausgeben.
Wo ist der Fehler?
Vielen lieben Dank
Ines

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bei welcher Codezeile? (owT)
15.08.2018 10:43:17
EtoPHG

Der Code ist totaler Nonsens! o.T.
15.08.2018 10:48:29
Sepp
 ABCDEF
1Gruß Sepp
2
3

Anzeige
Stimmt z.B. Range("F!:N!") (owT)
15.08.2018 10:54:33
EtoPHG

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige