Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche 2 Zahlenuntereinander in Spalte

Suche 2 Zahlenuntereinander in Spalte
born
Guten Morgen,
ich habe viele Zahlen in einer Spalte und Suche danach, wann die Zahl 7 und in der nächsten
Zeile die Zahl 14 vorkommen. Statt 20000 Zeilen von Hand zur durchsuchen müßte das doch mit
der suchfunktion irgendwie zu machen sein, oder? 
Sub sucher()
Range("CD3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:="7", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
End Sub
Nur wie kriege ich die zweite Zahl da rein, wo after:= activecell steht?
Danke für Eure Hilfe,
Born

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

Betreff
Benutzer
Anzeige
AW: Suche 2 Zahlenuntereinander in Spalte
17.12.2009 10:27:05
Rudi
Hallo, 
Sub sucher()
Dim rFound As Range
With Range(Range("cd3"), Range("CD3").End(xlDown))
Set rFound = .Find _
(What:=7, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Do While rFound.Offset(1)  14
Set rFound = .FindNext(After:=rFound)
Loop
End With
If Not rFound Is Nothing Then rFound.Activate
End Sub

Gruß
Rudi
AW: Suche 2 Zahlenuntereinander in Spalte
17.12.2009 10:41:37
Tino
Hallo,
kannst ja mal testen.
Sub test()
Dim meAr()
Dim A As Long
Dim strInfo As String
Dim SuchBereich As Range
Dim SWert1 As Double, SWert2 As Double

'Suchwerte *** 
SWert1 = 7
SWert2 = 14

With ActiveSheet
    Set SuchBereich = _
    .Range("CD3", IIf(IsEmpty(.Cells(.Rows.Count, 82)), .Cells(.Rows.Count, 82).End(xlUp), .Cells(.Rows.Count, 82)))
    
    meAr() = SuchBereich.Value2
    
    For A = 1 To Ubound(meAr) - 1
        If meAr(A, 1) = SWert1 Then
           If meAr(A + 1, 1) = SWert2 Then
            strInfo = strInfo & _
            ActiveSheet.Range(SuchBereich.Cells(A, 1), SuchBereich.Cells(A + 1, 1)).Address(0, 0) & vbCr
           End If
        End If
    Next A
    
    If strInfo <> "" Then
        strInfo = Left$(strInfo, Len(strInfo) - 1)
        MsgBox "gefunden in:" & vbCr & strInfo
    Else
        MsgBox "nix gefunden"
    End If

End With

End Sub
Gruß Tino
Anzeige
AW: Suche 2 Zahlenuntereinander in Spalte
17.12.2009 11:54:16
born
Hi Tino,
danke für die Lösung. Und wieder hab ich was gelernt über die Verwendung von Datenfeldern.
Liebe Grüße und Dank,
Born
also zu o.w.T.
17.12.2009 11:57:18
Reinhard

345 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
Anzeige
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Spalte nach Schlüsselwörtern auswerten
Mumber

Hallo Experten,
brauche dringend Eure Unterstützung.
Ich würde gerne im Rahmen einer Auswertung eine bestimmte Spalte (Text) mittels VBA nach bestimmten Schlüsselwörtern durchsuchen lassen und bei Treffer eine dem Schlüsselwort entsprechende Kategoriebezeichnung in anderer Spalte (glei...
08.09.2008 11:31:00
Thread-ID: 1008091
5 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
8
4
3
7
4
2
4
2
2
4
20
4
5
4
2
6
4
6
1
3
2
1
6