Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Spalte auf "falschen Eintrag" überprüfen

Forumthread: Spalte auf "falschen Eintrag" überprüfen

Spalte auf "falschen Eintrag" überprüfen
mandy
Hi,
ich habe in meinen Daten eine Spalte (T) da steht in der Regel in jeder Zeile immer der gleiche Eintrag drin.
zB. "Bestand".
Nun könnte es mal vorkommen, dass es eine Zeile gibt, die einen anderen Eintrag hat, was ein Fehler wäre. Wie kann ich überprüfen, ob alle Einträge in der Spalte T gleich sind. Wenn ja, soll der erste gefundene Eintrag nach A1 geschrieben werden. (in meinem Beispiel A1 = "Bestand")
Falls ein Abweichler gefunden wird, soll in der Zell A1 zB "nicht identisch" stehen.
Wie kann ich denn eine Spalte so per Makro prüfen (bitte keine Formel)
Danke
Mandy
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Sorry: Nachtrag
03.11.2009 16:38:29
mandy
Bitte nicht die ersten 5 Zeilen mitprüfen, das sind Spaltenköpfe
Keine eine Idee , schade
04.11.2009 09:17:43
mandy
Vielleicht findet sich ja noch ein Retter ;-)
Gruss
Mandy
AW: Sorry: Nachtrag
04.11.2009 10:25:21
welga
Hallo,
versuche es mal so:
Sub spalte_prüfen()
Dim i As Integer
Dim err As Boolean
Dim lngLastRow As Long
With ActiveSheet
lngLastRow = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End With
For i = 6 To lngLastRow - 1
If Cells(i, 20).Value = Cells(i + 1, 20).Value Then
err = True
Else
err = False
GoTo schreiben
End If
Next i
schreiben:
If err = True Then
Cells(1, 1).Value = Cells(6, 20).Value
Else
Cells(1, 1).Value = "nicht identisch"
End If
End Sub

Vielleicht klappt es ja
Anzeige
Danke, Supi :-)
04.11.2009 13:39:11
mandy
AW: Spalte auf "falschen Eintrag" überprüfen
04.11.2009 10:08:41
David
Hallo Mandy,
reicht dir vielleicht schon der Autofilter? Einfach auf die ganze Tabelle legen, dann in Spalte T als 'Benutzerdefinierte Auswahl' eingeben: ungleich "Bestand" und schon hast du alle "falschen" Zeilen angezeigt.
Falls das nicht deine Lösung ist, wäre eine Beispieltabelle supertoll.
Gruß
David
Anzeige
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum