Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabelle aktualisieren

Forumthread: 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
Anzeige

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
Anzeige
AW: Tabelle aktualisieren
20.08.2020 15:51:20
Daniel
Hallo Uwe,
der Code läuft super durch! Vielen dank dafür.
Gruß
Daniel
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige