Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1776to1780
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

Tabelle aktualisieren

Tabelle aktualisieren
20.08.2020 15:38:53
Daniel
Hallo zusammen,
ich würde gerne per VBA eine Tabelle aktualisieren. Hierbei soll in Spalte B geschaut werden ob sich "NF" befindet, wenn dies Wahr ist so soll in Spalte K = Spalte J sein. Nun bekomme ich bei folgendem Code immer die Fehlermeldung Next Ohne For.
With Worksheets("Gesamtrechnung 2.0")
loletzte = .Cells(.Rows.Count, "A").End(xlUp).row
Set raBereich = .Range("B2:B" & loletzte).SpecialCells(xlCellTypeVisible)
For Each raZelle In raBereich
If raZelle "NF" Then
Next raZelle
Else: raZelle.Offset(0, 8) = raZelle.Offset(0, 9)
End If
End With
End Sub
Kann mir jemand hierbei weiterhelfen ?
Lieben Gruß und vielen Dank im voraus
Daniel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle aktualisieren
20.08.2020 15:43:52
UweD
Hi
ungetestet...
Reihenfolge falsch

With Worksheets("Gesamtrechnung 2.0")
loletzte = .Cells(.Rows.Count, "A").End(xlUp).Row
Set raBereich = .Range("B2:B" & loletzte).SpecialCells(xlCellTypeVisible)
For Each raZelle In raBereich
If raZelle  "NF" Then
Else: raZelle.Offset(0, 8) = raZelle.Offset(0, 9)
End If
Next raZelle
End With
LG UweD
AW: Tabelle aktualisieren
20.08.2020 15:51:20
Daniel
Hallo Uwe,
der Code läuft super durch! Vielen dank dafür.
Gruß
Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige