if schleife

https://www.herber.de/bbs/user/122279.xlsm
Hallo Experten,
Ich glaube mein soeben erstellter Beitrag ging nicht durch also nochmal
Ich bin mittlerweile recht durcheinander denn ich stecke mit meiner Schleife fest und es kommt nur noch kauderwelsch raus.
Ich hoffe Ihr könnt mir helfen. Ich habe meine Test Datei hochgeladen.
meine Schleife soll in die 4 Tabellen als "objeclist" formatiert folgendes prüfen:
in Spalte B soll wenn in Spalte D ein Datum steht dann trage dieses Datum ein und das Kommentar in Zeile 1 Spalte C und prüfe ob das Datum dem Heutigem Datum identisch oder abgelaufen ist und Färbe die Zelle rot wenn dies der Fall ist; wenn in Spalte C ein "done" steht dann gehe zu Spalte D und mache das gleiche. Die Schleife soll enden mit Spalte G auch hier zuerst prüfen ob ein Datum steht wenn ja diese eintragen und das Kommentar in Zeile 1 Spalte G einfügen, wenn das Datum dem heutigem Tag identisch oder abgelaufen ist dann auch hier rot einfärben wenn allerdings "done" steht dann trage "done" ein und färbe die Zelle Grün.
Die Tabellen sollen später mit ein Userformular ergänzt, aktualisiert oder Zeilen gelöscht werden. Ich habe mein ersten Test in meiner beigefügten Datei gelassen und habe alle meine versuche mehr oder weniger bereinigt nur wie der code jetzt gespeichert ist ergibt auch keinen Sinn.
Ich hoffe Ihr könnt mir helfen denn Ihr sieht ja was dabei mittlerweile rauskommt.
Vielen Dank im Voraus
Grüße
Gina

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: if schleife

24.06.2018 21:45:51

Barbaraa

AW: if schleife

25.06.2018 06:52:49

Gina

AW: if schleife

25.06.2018 21:49:38

Dieter

AW: if schleife

26.06.2018 06:45:42

fcs

Hallo Gina,
wenn ich dein Problem richtig verstanden habe, dann kannst du das mit dem folgenden Programm machen:

Option Explicit
Dim ws As Worksheet
Sub Neu()
Dim anfZelle As Range
Dim datSp As Long
Dim lo As ListObject
Dim lr As ListRow
Dim spalte As Long
Dim Zeile As Long
Dim zelle As Range
Set ws = ThisWorkbook.Worksheets("PreM")
For Each lo In ws.ListObjects
For Each lr In lo.ListRows
Zeile = lr.Range.Row
If Not ZeileIstLeer(Zeile) Then
Set anfZelle = ws.Cells(Zeile, "B")
datSp = DatumsSpalte(anfZelle)
If datSp = 0 Then
With ws.Cells(Zeile, "B")
.Value = "done"
' grün färben
.Interior.ThemeColor = xlThemeColorAccent3
.Interior.TintAndShade = 0.599993896298105
End With
Else
anfZelle = ws.Cells(Zeile, datSp)
If anfZelle  "done" Then
DatumsSpalte = i + 2
Exit Function
End If
Next i
End Function
Function ZeileIstLeer(Zeile As Long) As Boolean
' Prüft, ob in den Spalten B bis H leere Strings stehen
Dim spalte As Long
ZeileIstLeer = True
For spalte = 2 To 8
If ws.Cells(Zeile, spalte)  "" Then
ZeileIstLeer = False
Exit Function
End If
Next spalte
End Function

Falls ich dich falsch verstanden habe, dann wäre es hilfreich, wenn du ein Beispiel posten könntest, in dem Ausgangssituation und gewünschtes Ergebnis zu sehen sind.
Viele Grüße
Dieter
https://www.herber.de/bbs/user/122321.xlsm

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

if schleife

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread