Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Überprüfung von Daten

Forumthread: Überprüfung von Daten

Überprüfung von Daten
Daten
Hallo
Ich habe (noch) ein kleines Problem.
Ich habe versucht aus einer Menge Daten die fehlerhaften Messungen herauszusuchen.
Mit meinem Code wollte ich bezwecken dass alle Zeilen in denen -1 vorkommt durch die vorangehende Zeile überschrieben werden + sollte in Spalte "A" der Vermerk "Fehler" eingetragen werden
Mein Versuch: 

Dim F As Long
Dim j As Integer
j = Cells.SpecialCells(xlCellTypeLastCell).Column
For F = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.CountIf(Cells(F, 1).Resize(, j), "*-1*")

Anzeige

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

Betreff
Benutzer
Anzeige
AW: Überprüfung von Daten
02.03.2012 09:42:44
Daten
Hallo Chris,
warum CountIf?
For F = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If instr(Cells(F, 1).Text,"-1") > 0 Then Cells(F,1) = Cells(F-1,1)
Gruß
Harald
....Row To 2 Step -1                   o.w.T.
02.03.2012 09:56:14
Reinhard

AW: ....Row To 2 Step -1                   o.w.T.
02.03.2012 15:21:01
teest
Danke euch beiden, es scheint nun zu funktionieren!
Wie muss ich es anstellen das nun noch in der Spalte "A" der jeweiligen Zeile der Eintrag "Fehler" gemacht wird?
Hier nochmals der code: 

Sub SearchValue()
Dim F As Long
Dim j As Integer
With Sheets("data")
j = Cells.SpecialCells(xlCellTypeLastCell).Column
For F = Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
If InStr(Cells(F, 1).Text, "-1") > 0 Then Cells(F, 1) = Cells(F - 1, 1)
Next
End With
End Sub

Anzeige
AW: ....Row To 2 Step -1                   o.w.T.
02.03.2012 21:02:29
Reinhard
Hallo Teest, 
Sub SearchValue()
Dim Zei As Long, Spa As Long
Application.ScreenUpdating = False
With Sheets("data")
For Zei = .Cells.SpecialCezeils(xlCellTypeLastCell).Row To 2 Step -1
For Spa = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column
If InStr(.Cells(Zei, Spa).Text, "-1") > 0 Then
.Rows(Zei - 1).Copy .Cells(Zei, 1)
.Cells(Zei, 1) = "Fehler"
Exit For
End If
Next Spa
Next Zei
End With
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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