Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche in Spalten mit VBA

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
Anzeige
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
Anzeige
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.
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige