Das Archiv des Excel-Forums
Werte aus einer Spalte finden
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
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).
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
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.
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
Excel-Beispiele zum Thema " Werte aus einer Spalte finden"