Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nach Zelleninhalt suchen und zurückgeben

Nach Zelleninhalt suchen und zurückgeben
23.10.2008 16:55:00
Hans
Hallo,
Benötige für ein Makro folgende Funktionen
Suche ab der aktiven Zelle nach oben, die Spalten von B bis E nach folgendem Zelleninhalt durch.
Gesucht werden sollen nur die Zelleninhalte "Mat 01"; "Mat 02" usw. bis "Mat 15".
Wird z.B. als erstes der Wert "Mat 06" gefunden, kopiere diesen und füge ihn in die aktive Zelle ein.
Gruß Hans
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Zelleninhalt suchen und zurückgeben
23.10.2008 17:16:00
Peter
Hallo Hans,
meinst du das so?
Option Explicit

Public Sub Suchen()
Dim sAntwort  As String
Dim lZeile    As Long
Dim iSpalte   As Integer
Dim bGefunden As Boolean
sAntwort = Selection.Address(0, 0)
For iSpalte = 2 To 5
For lZeile = Selection.Row To 1 Step -1
If Left(Cells(lZeile, iSpalte).Value, 4) = "Mat " Then
bGefunden = True
Exit For
End If
Next lZeile
If bGefunden = True Then
Range(sAntwort).Value = Cells(lZeile, iSpalte).Value
Exit For
End If
Next iSpalte
End Sub


Gruß Peter

Anzeige
AW: Nach Zelleninhalt suchen und zurückgeben
29.10.2008 21:20:00
Hans
Danke, funktioniert
Gruß Hans

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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