Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
312to316
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
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und makieren von Zeilen!

Suchen und makieren von Zeilen!
26.09.2003 16:02:27
Markus F.
Hallo Leute,
ich habe da mal ein Problem. Also ich habe eine Tabelle in dieser in der Z Spalte verschiedene Datumswerte stehen z.B. (12.02.2003 17:55:22 13.03.2003 12:30:33 usw.) ich habe dann in der Zelle A1 und A2, zwei Datumswerte stehen nach denen ich suchen möchte und zwar soll nach dem Wert von A1 gesucht werden, dann soll in der Spalte Z nach unten gesucht werden bis die Zelle gefunden wird die mit dem Wert von A2 übereinstimmt. Es sollen alle Zeilen zwischen dem ersten Wert A1 und dem zweiten Wert A2 makiert werden, die möchte ich dann kopieren.

ich hoffe ihr könnt mir weiterhelfen

danke schon mal

gruß markus

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und makieren von Zeilen!
26.09.2003 20:32:55
Matthias G
Hallo Markus,
folgender Code:

Sub Suche_und_Markiere()
Dim z, zlast As Long
Dim z1, z2 As Long
Dim found1, found2 As Boolean
Dim Meldung As String
If Range("A1").Value > Range("A2").Value Then
MsgBox "Startwert ist größer als Endwert!", vbCritical, "Fehler"
Exit Sub
End If
found1 = False
found2 = False
zlast = Range("z:z").SpecialCells(xlCellTypeLastCell).Row
For z = 1 To zlast
If Cells(z, 26).Value = Range("A1").Value Then
found1 = True
z1 = z
Exit For
End If
Next z
If found1 = False Then z1 = 1
For z = z1 To zlast
If Cells(z, 26).Value = Range("A2").Value Then
found2 = True
z2 = z
Exit For
End If
Next z
If found1 = False Then Meldung = "Wert in A1 nicht gefunden!" + Chr(10)
If found2 = False Then Meldung = Meldung + "Wert in A2 nicht gefunden!" + Chr(10)
If found1 And found2 Then
Range(Cells(z1, 26), Cells(z2, 26)).Select
Else
MsgBox Meldung, vbCritical, "Fehler"
End If
End Sub

Du kannst die Fehler natürlich auch anders behandeln, z.B. wenn 1.Wert nicht gefunden wird, von Anfang an markieren bzw. wenn 2. Wert nicht gefunden wird, bis zum Ende markieren.

Viel Spaß damit,
Matthias
Anzeige
hier eine passende Beispieldatei , ....
26.09.2003 22:22:00
udo
Viel Spass damit , ....

https://www.herber.de/bbs/user/1180.xls

( rechtsklick auf den Link, und Ziel speichern unter ... )

Gruß udo

PS das Forum lebt auch von Rückmeldungen
Bräuchte noch eine kleine Hilfe!!
28.09.2003 15:03:28
markus
Hallo erst mal,
und Matthias und Udo vielen Dank. So Matthias ich habe deinen Code eingefügt,funktioniert prima vielen Dank. Eine Sache hätte ich aber noch momentan makiere ich alle gefundenen Werte in der Spalte "Z" wenn ich jetzt aber auch noch die Spalte welche daneben liegt makieren möchte was muß ich denn da noch einfügen. Es ist so das in der Spalte daneben noch Daten stehen welche zu dem Datum gehören und die ich auch mit kopieren möchte. Wie kann ich die Codezeile Range(Cells(z1, 26), Cells(z2, 26)).Select auf eine oder mehrer Spalten ausweiden. Kann mir vieleicht auch einer erklären was die 26 in der Klammer bedeutet?

Danke schon mal

gruß Markus
Anzeige
AW: Bräuchte noch eine kleine Hilfe!!
28.09.2003 21:59:12
Matthias G
Hallo Markus,
folgender Code:

If found1 And found2 Then
Range(Cells(z1, 26), Cells(z2, 26)).Select
Else

bedeutet, dass Zeile z1/Spalte 26(=Spalte Z, 26. Buchstabe) bis Zeile z2/Spalte 26 markiert werden.
Wenn du das ausweiTen willst, gib als 2. Eckpunkt z.B. Spalte 27 (AA) an, also:

If found1 And found2 Then
Range(Cells(z1, 26), Cells(z2, 27)).Select
Else

Viel Erfolg!
Matthias
Vielen Dank
29.09.2003 06:44:24
Markus
Hallo Leute,
vielen Dank für Eure Hilfe hat echt prima funktioniert und in welch einer Rekord Zeit unglaublich.

Danke bis bestimmt bald wieder mal :-)

Wünsche allen eine schöne Woche es sind ja nur 4 Tage also haltet durch

Gruß Markus
Anzeige
Habe noch ein Problem!!
29.09.2003 09:14:46
Markus
Hallo und guten morgen,

ich habe noch mal ein Problem, die Suchroutine von Matthias funktioniert soweit gut. Es gibt nur folgendes Problem. Ich habe eine Datumsbereich von z.B. (Start 24.09.2003 12:20:33 Ende 24.09.2003 15:40:30) dazwischen habe ich verschiedene Datumswerte stehen von denen aber keiner genau den Wert von Start oder Ende hat. Mein erster Wert ist vielleicht z.B. (24.09.2003 12:23:00 und mein Ende Wert evtl. 24.09.2003 15:30:00) ich müsste also alle Datumswerte die zwischen dem Start und Ende wert liegen makieren und nicht direkt nach dem Start bzw. Ende Wert suchen also mehr ein Zeitbereich von bis. Ist das nöglich.

Danke schon mal

Gruß Markus
Anzeige
AW: Habe noch ein Problem!!
29.09.2003 18:58:59
udo
Hi Markus,

... das sollte eigentlich in dem Beispiel , welches ich dir auf den Server geladen hab schon gehn, du kannst dazu zum einen den Gültigkeitsbereich der Zellen A1 & A2 nutzen , oder direkt dort einen entsprechenden Wert eintippen, eben den , den du scheinbar suchst oder markiert haben willst . Es werden dann die Bereiche markiert.

Willst du das nur die Werte dazwischen markiert werden, so ändere die Formel in A3 abwärts ( das <= oder >= in nur > oder < ).

also aus

=WENN(UND(Z3>=$A$1;Z3<=$A$2);1;0)

einfach mal

=WENN(UND(Z3>$A$1;Z3<$A$2);1;0)

einsetzen , und nach unten kopieren, ....

Hoffe ich hab dich jetzt nicht völlig falsch verstanden.

Somit werden nur die Bereiche markiert, die zwischen den beiden Werten liegen, ohne das dabei Werte berücksichtigt werden , die genau den Ausgangswerten entsprechen.

Gruß udo
Anzeige
AW: Habe noch ein Problem!!
29.09.2003 19:04:44
udo
wenn du willst kannst mir auch mal ein Beispiel schicken, oder besser noch lad es hoch, und erkläre deinen Wunsch / Problem nochmals anhand des Beispiel, dann haben Alle was davon.

udo-d@web.de

Gruß udo

306 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
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
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
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
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge

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
8
5
4
2
4
4
2
5
20
7
3
10
3
1
4
6
6
12
11
2
3
6
4
5
4