Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.10.2025 16:19:53
Explodierende ActiveX-Steuerelemente
02.10.2025 15:16:56
Tabelle mit mehrere Worksheet_Change(ByVal Target As Range)
02.10.2025 10:43:57
fortlaufende Werte
02.10.2025 10:42:49
mehrere Tabellenblätter vergleichen + Gemeinsamkeiten finden
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
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen in Spalte

Forumthread: Suchen in Spalte

Suchen in Spalte
Andre´
Hallo alle zusammen,
ich benutze folgendes Makro, um bei Übereinstimmung des aktuellen Tag/ Monat mir den Zellwert
aus der Spalte A anzuzeigen. Sub suchen() Dim c, FirstAddress Dim W W = Format(Now, "DD.MM") With Worksheets("Geburtstage").Range("C:C") Set c = .Find(W) If Not c Is Nothing Then FirstAddress = c.Address Do If Left(c.Value, 5) = W Then MsgBox c.Offset(0, -2) & (" hat heute Geburtstag") End If Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address FirstAddress End If End With Set c = Nothing End Sub Geburtstage

 ABC
1Namegeboren im Jahr amHilfsspalte
2Max03.06.196603.06
3Peter13.06.196413.06
4Werner05.07.195705.07
5Reiner18.07.194818.07
6Bernd10.12.195510.12


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
In dem Bsp. müsste Bernd angezeigt werden.
Gibt es eine Möglichkeit, das ohne die Hilfsspalte zu realisieren, sodass
gleich in der Spalte B gesucht wird.
Vielen Dank im Voraus
MFG Andre
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
versuch es mal so.. Gruß
10.12.2010 19:53:42
zu 

Sub suchen()
Dim c, FirstAddress
Dim W
W = Date
With Sheets(1).Range("B:B")
Set c = .Find(W)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
If c.Value = W Then
MsgBox c.Offset(0, -1) & (" hat heute Geburtstag")
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  FirstAddress
End If
End With
Set c = Nothing
End Sub

Anzeige
AW: versuch es mal so.. Gruß
10.12.2010 20:48:05
Andre´
Hallo,
funktioniert nicht, durch Date wird nach dem 10.12.2010 gesucht.
Es muss aber nur nach dem Tag und Monat in der Spalte B gesucht werden.
Mit
W = Left(Date, 5)
funktioniert es auch nicht.
MFG Andre
warum ist das Jahr störend?
11.12.2010 08:58:15
zu
AW: Suchen in Spalte
10.12.2010 20:50:19
Christian
Hallo André
bei Datum ist das nicht ganz einfach, da ein Excel-Datum eine Zahl ist (Tage seit 1.1.1900).
Als Ansatz ohne Find: 
Option Explicit
Sub Suchen()
Dim lngLR As Long
Dim rng As Range
With ThisWorkbook.Sheets("Geburtstage")
lngLR = .Cells(.Rows.Count, 2).End(xlUp).Row
For Each rng In .Cells(2, 2).Resize(lngLR - 1)
If IsDate(rng.Value) Then
If Month(rng.Value) = Month(Date) _
And Day(rng.Value) = Day(Date) Then
MsgBox rng.Offset(0, -1).Text
End If
End If
Next
End With
End Sub

Gruß
Christian
Anzeige
get auch mit Find...
10.12.2010 21:02:01
Christian
man muss das Format richtig setzen.
Gruß
Christian 
Option Explicit
Sub Suchen2()
Dim c As Range, FirstAddress$, W$
W = Format(Now, "MM\/DD")
With Worksheets("Geburtstage").Range("B:B")
Set c = .Find(W, LookIn:=xlValues, lookAt:=xlPart)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
MsgBox c.Offset(0, -1).Text
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  FirstAddress
End If
End With
Set c = Nothing
End Sub

Anzeige
AW: get auch mit Find...
10.12.2010 21:26:04
Andre´
Hallo Christian,
vielen Dank für beide Lösungen, funktioniert prima :-)
Ich werde es über find realisieren.
MFG Andre
;

Forumthreads zu verwandten 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
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 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
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 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
Anzeige
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
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
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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