Suche in Spalten mit VBA

Forumthread: Suche in Spalten mit VBA

03.09.2003 10:21:47

Bernd

Hi,

Wie kann ich in Excel ein Makro schreiben, welches zum Beispiel in Spalte D nach einen Wert sucht und mir dann denn Wert aus der gleichen Zeile aber in Spalte A ausgibt. (Die Ausgabe soll zum Beispiel in Zelle F1 erfolgen). Vielen Dank schon mal im Vorraus.

Bernd

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suche in Spalten mit VBA

03.09.2003 10:35:44

Mac4
AW: Suche in Spalten mit VBA

03.09.2003 10:37:36

Nike
AW: Suche in Spalten mit VBA

03.09.2003 11:26:45

Bernd
AW: Suche in Spalten mit VBA

03.09.2003 11:59:37

Nike
AW: Suche in Spalten mit VBA

03.09.2003 13:15:52

Bernd
AW: Suche in Spalten mit VBA

03.09.2003 13:47:37

Nike

AW: Suche in Spalten mit VBA

03.09.2003 10:35:44

Mac4

Hallo Bernd,

so könnte es gehen:


Sub Test()
For i = 1 to Cells(Rows.Count,4).End(Xlup).Row
If Cells(i,4).Value = Suchwert Then
[F1].value = Cells(i,4).Offset(0,-3).Value
End If
Next
End Sub

Marc

AW: Suche in Spalten mit VBA

03.09.2003 10:37:36

Nike

Hi,
mal so was ausprobieren:


Sub SuchOffset()
Dim rngFind As Range
Dim strSuch As String ' Suchbegriff
strSuch = "Hallo"
Set rngFind = Worksheets(1).Columns(4).Find(strSuch) ' in D:D Suchen
If Not rngFind Is Nothing Then ' es wurdewas gefunden
Range("F1").value = rngFind.Offset(0, -3) 'Wert aus Spalte A in der gleichen Zeile ausgeben
End If
End Sub

Bye

Nike

AW: Suche in Spalten mit VBA

03.09.2003 11:26:45

Bernd

Danke für die Tipp. Es funktioniert. Wenn ich jetzt keinen fest definierten Wert habe nach dem ich suche, wie mache ich das dann. Zum Beispiel will ich nach dem Wert suchen der 37 am nächsten kommt.

Bernd

AW: Suche in Spalten mit VBA

03.09.2003 11:59:37

Nike

Hi,
eine Annäherung kannst du so nicht suchen.
Man müßte dann mit ner Schlaufe den Suchstring "aufbohren"
man mßte dann aber wissen, ob es sich um Ganzzahlen handelt
oder ob auch Bruchteile zu berücksichten sind.
Dann müßte man entsprechend den Suchbereich durchnudeln
und immer wieder suchen lassen...

Bye

Nike

AW: Suche in Spalten mit VBA

03.09.2003 13:15:52

Bernd

Hi,

es handelt sich um Bruchzahlen. Also könnte ich ja den Wert 37 von jedem Wert in der Spalte abziehen und mit dem Vorgänger vergleichen und dann denn Wert nehmen wo ein Umschlag von negativ nach positiv erfolgt.
Muss ich dann an der Stelle

Sub SuchOffset()
Dim rngFind As Range
Dim strSuch As Double ' Suchbegriff
strSuch = "Hallo"

nicht nach Hallo suchen, sondern

strSuch = i

If i-37>=0 Then

Aber weiter weis ich leider auch nicht oder ob man das überhaupt so machen kann.

AW: Suche in Spalten mit VBA

03.09.2003 13:47:37

Nike

Hi,
wohl eher so,
klimpert aber halt nur die erste Stelle ab...


Sub SuchOffset()
Dim i As Long
Dim rngFind As Range
Dim lngSuchNeg As Long
Dim lngSuchPos As Long
lngSuch = 31
For i = 0 To 0.9
lngSuchPos = lngSuchPos + i
Set rngFind = Worksheets(1).Columns(4).Find(lngSuchPos)  ' in C:C Suchen
If Not rngFind Is Nothing Then ' es wurdewas gefunden
MsgBox rngFind.Offset(0, -3) 'Wert aus Spalte A in der gleichen Zeile ausgeben
End If
lngSuchNeg = lngSuchNeg - i
Set rngFind = Worksheets(1).Columns(4).Find(lngSuchNeg)   ' in C:C Suchen
If Not rngFind Is Nothing Then ' es wurdewas gefunden
MsgBox rngFind.Offset(0, -3) 'Wert aus Spalte A in der gleichen Zeile ausgeben
End If
Next
End Sub

Bye

Nike

Beliebteste Forumthreads (12 Monate)

Forumthread: Suche in Spalten mit VBA

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread