Thema Datum  Von Nutzer Rating
Antwort
Rot Threaded Comment mehrfach Eintragung
18.11.2021 11:23:10 Bobby
NotSolved
18.11.2021 11:34:23 Gast79675
NotSolved
18.11.2021 11:50:17 Bobby
NotSolved
18.11.2021 13:27:01 Gast69706
NotSolved
18.11.2021 14:02:36 Bobby
NotSolved

Ansicht des Beitrags:
Von:
Bobby
Datum:
18.11.2021 11:23:10
Views:
48
Rating: Antwort:
  Ja
Thema:
Threaded Comment mehrfach Eintragung

Hallo zusammen,

folgender Code trägt in der Schleife den String "Zustellung lt. QSTATUS" leider in jede entsprechende Zelle mehrfach ein:

Sub EinfacheFinden()
Dim Zelle As Range
Static LastRow As Long
Dim letzteZeile As Long
Dim Bereich As Range
Dim SpalteA As Range
Dim letzteA As Long
Dim ZelleA As Range

    If LastRow = 0 Then LastRow = 1

    letzteZeile = ActiveSheet.Cells(Rows.Count, 13).End(xlUp).Row
    letzteA = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    Set Bereich = ActiveSheet.Range("M2:M" & letzteZeile)
    Set SpalteA = ActiveSheet.Range("A2:A" & letzteA)
    
    For Each ZelleA In SpalteA
    
        If ZelleA.Value <> "Nie gelaufen" Or ZelleA.Value <> "Verlust" _
            Or ZelleA.Value <> "Außer Kontrolle" Or ZelleA.Value <> "AbhNr*" Or ZelleA.Value <> "" Then

        For Each Zelle In Bereich

        
        
        If WorksheetFunction.CountIf(Bereich, Zelle.Value) = 1 Then
            With Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 16))
                    .Interior.Color = RGB(154, 205, 50)
                    LastRow = .Row
            End With
                
            With Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 1))
                    .Value = "Zugestellt"
                    LastRow = .Row
                    
            End With
            
            With Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 1))
               
                If .CommentThreaded Is Nothing Then
                    .AddCommentThreaded "Zugestellt lt. QSTATUS"
                Else
                    .CommentThreaded.AddReply "Zugestellt lt. QSTATUS"
                End If
            End With

        End If
    Next Zelle
        End If
    Next ZelleA
End Sub

Was habe ich hier falsch gemacht?

 

LG Bobby


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Threaded Comment mehrfach Eintragung
18.11.2021 11:23:10 Bobby
NotSolved
18.11.2021 11:34:23 Gast79675
NotSolved
18.11.2021 11:50:17 Bobby
NotSolved
18.11.2021 13:27:01 Gast69706
NotSolved
18.11.2021 14:02:36 Bobby
NotSolved