Text suchen und eintragen?

11/08/2008 - 11:32 von Peter Schürer | Report spam
Hallo Zusammen,

XL2002

Ich habe schon gegoogelt, finde aber leider nichts passendes :-(
In der Tabelle "Urdaten" stehen in C2:C6000 Beschreibungen von Bauteilen.
Die Beschreibungen sind: "E-BODEN WEIß GLATT" oder
"ZWISCHENBODEN WEIß GLATT"...
In der Tabelle2 von A2:A10 habe ich die Bauteile allgemein aufgelistet:
SEITE
BODEN
RÜCKWAND
RUECKWAENDE
PFOSTEN
TRAVERSE
FRONT
TÜR
SCHUBKASTEN
Jetzt benötige ich in "Urdaten"J2 eine Formel die folgendes macht.
Der Text in "Urdaten $C2" soll nach der Liste in "Tabelle2!$A$2:A10"
durchsucht werden. Wird in C2 ein Begriff aus der Liste gefunden, soll er in
"Urdaten J2" eingetragen werden.
Das Ganze für den Bereich "Urdaten C2:C6000".
Da es eine Menge Holz ist gerne auch mit VBA, was bestimmt schneller geht
;-)

Danke und Gruß
Peter
 

Lesen sie die antworten

#1 stefan onken
11/08/2008 - 15:48 | Warnen spam
On 11 Aug., 11:32, "Peter Schürer" wrote:
Hallo Zusammen,

XL2002

Ich habe schon gegoogelt, finde aber leider nichts passendes :-(
In der Tabelle "Urdaten" stehen in C2:C6000 Beschreibungen von Bauteilen.
Die Beschreibungen sind: "E-BODEN             WEIß GLATT" oder
"ZWISCHENBODEN       WEIß GLATT"...
In der Tabelle2 von A2:A10 habe ich die Bauteile allgemein aufgelistet:
SEITE
BODEN
RÜCKWAND
RUECKWAENDE
PFOSTEN
TRAVERSE
FRONT
TÜR
SCHUBKASTEN
Jetzt benötige ich in "Urdaten"J2 eine Formel die folgendes macht.
Der Text in "Urdaten $C2" soll nach der Liste in "Tabelle2!$A$2:A10"
durchsucht werden. Wird in C2 ein Begriff aus der Liste gefunden, soll er in
"Urdaten J2" eingetragen werden.
Das Ganze für den Bereich "Urdaten C2:C6000".
Da es eine Menge Holz ist gerne auch mit VBA, was bestimmt schneller geht
;-)

Danke und Gruß
Peter



hallo Peter,
eine Formel habe ich nicht (da wird sich doch bestimmt noch einer der
Formelmeister hier melden), aber VBA:

Sub Suchen()
Set rngSuche = Sheets("Urdaten").Range("C:C")
With Sheets("Tabelle2")
For i = 1 To 10
Set suche = rngSuche.Find(.Range("A" & i), _
lookat:=xlPart)
If Not suche Is Nothing Then
erstertreffer = suche.Address
Do
Range("J" & suche.Row) = .Range("A" & i)
Set suche = rngSuche.FindNext(suche)
Loop While Not suche Is Nothing _
And suche.Address <> erstertreffer
End If
Next
End With
End Sub

Gruß
stefan

Ähnliche fragen