Das Archiv des Excel-Forums

Werte aus einer Spalte finden

Bild

Betrifft: Werte aus einer Spalte finden
von: Alex

Geschrieben am: 30.09.2003 11:03:07

Hallo allerseits,

Ich habe ein kleines Problem, ich habe 2 Spalten (nennen wir Sie A und B). Ich moechte nun, dass in der Spalte A nach dem Wert gesucht werden soll, der in der Zelle B1 steht, falls es gefunden wird, dann soll halt die Zahl 1 in der Zelle C1 erscheinen und so weiter. Dass der Wert in der Zelle B2 in der gesamten Spalte A gesucht werden soll... Die Loesung liegt mir auf den Fingern, aber der heutige morgen hat mich irgendwie erwischt :)

Vielen Dank im Vorraus,
Alex
Bild


Betrifft: AW: Werte aus einer Spalte finden
von: WernerB.
Geschrieben am: 30.09.2003 12:02:33

Hallo Alex,

wie gefällt Dir das:


Option Explicit

Sub Alex()
Dim c As Range
Dim s As String
Dim laRA As Long, laRB As Long, i As Long
Application.ScreenUpdating = False
laRA = Cells(Rows.Count, 1).End(xlUp).Row
laRB = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To laRB
s = Cells(i, 2).Value
For Each c In Range("A1:A" & laRA)
If c.Value = s Then
Cells(i, 3).Value = 1
Exit For
End If
Next c
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: Werte aus einer Spalte finden
von: Alex
Geschrieben am: 30.09.2003 12:13:03

Hallo Werner

Bin wohl irgendwie ganz der doofe, ich schaffe es nicht, dass der Makro die Werte aus den Zellen D1, D2, D3...usw. nimmt und diese in der Spalte C sucht, um dann denn wert 1 (wenn gefunden) oder 0 (wenn nicht gefunden) rechts von dem Suchbegriff in der Spalte E eintraegt. Hilfeee :))

Danke im Vorraus fuer deine Hilfe,
Alex


Bild


Betrifft: AW: Werte aus einer Spalte finden
von: WernerB.
Geschrieben am: 30.09.2003 12:28:56

Hallo Alex,

beim nächsten Mal bitte die Aufgabe bitte genau beschreiben und nicht so "vereinfacht", dass Du aus der Antwort Deine Lösung nicht ableiten kannst; das spart für beide Seiten einiges an Aufwand.


Option Explicit

Sub Alex()
Dim c As Range
Dim s As String
Dim laRC As Long, laRD As Long, i As Long
Dim Erg As Byte
Application.ScreenUpdating = False
laRC = Cells(Rows.Count, 3).End(xlUp).Row
laRD = Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To laRD
s = Cells(i, 4).Value
Erg = 0
For Each c In Range("C1:C" & laRC)
If c.Value = s Then
Erg = 1
Exit For
End If
Next c
Cells(i, 5).Value = Erg
Next i
Application.ScreenUpdating = True
End Sub

Gruß WernerB.


Bild


Betrifft: AW: Werte aus einer Spalte finden
von: Alex
Geschrieben am: 30.09.2003 12:39:03

Hat wunderbar funktioniert, ich danke vielmals :))

Viele Gruesse,
Alex


 Bild

Excel-Beispiele zum Thema " Werte aus einer Spalte finden"

Vorkommen von Zahlenreihen in Spalten download Funktion ANZAHL2 ohne ausgeblendete Spalten download
Spaltenbreite anpassen download Spalten einer Mehrbereichsauswahl ausblenden. download
Spaltennamen bestimmen download Spalten/Zeilen aus- und einblenden download
Zeilen und Spalten über ein Drehfeld ein- und ausblenden download In einem Dialog ausgewählte Spalten drucken download
Spalten bedingt summieren und Zellen formatieren download Abfrage der markierten Spalten download
Wert aus Spalte C, wenn Spalten A und B Bedingungen erfüllen download Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download
Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download Schmale Spalten nebeneinander drucken download
Werte in mehreren Spalten sortieren download Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen download
Spalten A und B vergleichen und Doppel in C listen download Nach Verlassen von Spalte B Spalte C markieren download
Alle leeren Spalten ausblenden download Leere Zeilen und Spalten in ausgewähltem Bereich löschen download
Formel bis zur letzten Zeile der Nebenspalte kopieren download Alle leeren Zeilen und Spalten entfernen download
Wert aus 2. UserForm-ComboBox-Spalte berechnen download Jede zweite Spalte drucken download
Inhalt einer Zelle in Minutenabstand in einer Spalte auflisten download Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen download
Daten in jeweils einer Spalte zweier Tabellen vergleichen download Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe download
Spalte A mehrer Mappen in UserForm und aktives Blatt download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Bis zur 12. Zeile Cursor nach unten, dann nächste Spalte ansetzen download Werte in Spalte A in Abhängigkeit des Werte in Spalte B eintragen download
Tabellenblattinhalt unter Weglassung einer Spalte als Textdatei download Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download
Bei Eingaben in Spalte B in Spalte A den Maximalwert anzeigen download Überschriften aus Spalte C in Spalte D in den relevanten Bereich download
Bei Eintrag in Spalte A aktuelle Zeile kopieren download Wertereihe nach dem Zufallsprinzip auf 4 Spalten verteilen download
Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen download Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download
Werte aus Spalte A mit Werten aus Spalte B multiplizieren download Einlesen von Spaltenköpfen in UserForm-ListBox download
Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe download Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen download
Aktuellen Bereich in den Spalten A:F als Druckbereich download Alle Werte mit Punkt aus Spalte A in Spalte B download
Zellauswahl in Abhängigkeit des Spaltenkopfes download UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download
Doppelte Einträge finden und löschen download Schaltflächen-Id-Nummer finden und Schaltfläche einfügen download
Datensätze wechselseitig bei Nichtauffinden markieren download Alle Zellen mit Formeln finden download