Thema Datum  Von Nutzer Rating
Antwort
12.04.2021 16:05:17 Markus
NotSolved
12.04.2021 18:57:54 Gast60590
NotSolved
12.04.2021 19:01:48 Gast82626
NotSolved
12.04.2021 19:07:17 Markus
NotSolved
Rot Check
 13.04.2021 18:33:20 Nobody
NotSolved
13.04.2021 18:56:40 Gast75512
NotSolved

Ansicht des Beitrags:
Von:
Nobody		 Datum:
13.04.2021 18:33:20		 Views:
502		 Rating:
     
Antwort:
  Ja
Thema:
Check

Hallo

ich helfe dir NUR bedingt weiter und  sage waurm:  dein Code ist durch die ganzen GoTo und uinnötigen Variablen Deklarationen mit Rrue und False so kompliziert und unübersichlich aufgebaut das ich mich da nicht durchwühle. Das gibt nur Kopfweh! Den Code beenden sollte bitte wie unten gehen!

mfg Nobody

Private Sub CommandButton1_Click()
    Dim lloRow As Long, lboExist As Boolean, lloLast As Long

    If Range("G8").Value = "" Then Exit Sub
            
    With Sheets("TagListe")
         lloLast = .Cells(Rows.Count, 1).End(xlUp).Row
         For lloRow = 2 To lloLast
             If LCase(Range("G8").Value) = LCase(.Range("B" & lloRow).Value) Then
                MsgBox "Diesen Eintrag gibt es schon.", vbExclamation, "Hinweis"
                Exit Sub   'statt mit Goto wild herumspringen mit Exit Sub beenden!!
             End If
         Next
    End With
                      
'was hier kopiert werden soll ist bitte DEIN Bier
 

 

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
12.04.2021 16:05:17 Markus
NotSolved
12.04.2021 18:57:54 Gast60590
NotSolved
12.04.2021 19:01:48 Gast82626
NotSolved
12.04.2021 19:07:17 Markus
NotSolved
Rot Check
 13.04.2021 18:33:20 Nobody
NotSolved
13.04.2021 18:56:40 Gast75512
NotSolved