Forums Neueste Beiträge
 

Wert in benanntem Bereich finden

26/02/2009 - 16:22 von Patrick Pohlmann | Report spam
Hallo Zusammen,

die Frage resultiert zwar aus meinem Treed vorhin, aber da es eine ganz neue
Frage ist, erlaube mich mir, einen neuen Treed zu beginnen.

Ich habe einen bestimmten Wert (z.B. "Bratwurst") und diesen möchte ich in
einem benannten Bereich meiner Arbeitsmappe (z.B. "Würste") suchen.

Als Ergebnis sollte dann der Zellname (z.B: "$A$12") herauskommen. Bzw.
eigentlich möchte ich nur wissen wie diese Zelle formatiert ist, also
Füllfarbe und Schriftfarbe.

Leider bin ich in Excel VBA noch völliger Neuling und blicke da nicht so
recht durch.

Viele Dank für Eure Hilfe.

Grüße

Patrick!
 

Lesen sie die antworten

#1 Patrick Pohlmann
26/02/2009 - 16:59 | Warnen spam
Okay, ich habs dann doch alleine hinbekommen:

'Wert im Auswahlbereich suchen

With ActiveWorkbook.Worksheets("Daten").Range("Mitgliedsstatus")
Set c = .Find(strNeuerWert, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Else
Exit Sub
End If

End With

'Format des Wertes im Auswahlbereich auslesen

With ActiveWorkbook.Worksheets("Daten").Range(firstAddress)

StrFüllung = .Interior.ColorIndex
strSchriftfarbe = .Font.ColorIndex
End With

'Format an geànderte Zelle weitergeben

With ActiveWorkbook.Worksheets("Pràsenzen").Range(strGeàndertesFeld)

.Interior.ColorIndex = StrFüllung
.Font.ColorIndex = strSchriftfarbe
End With

Viele Grüße

Patrick!

"Patrick Pohlmann" schrieb im Newsbeitrag
news:%
Hallo Zusammen,

die Frage resultiert zwar aus meinem Treed vorhin, aber da es eine ganz
neue Frage ist, erlaube mich mir, einen neuen Treed zu beginnen.

Ich habe einen bestimmten Wert (z.B. "Bratwurst") und diesen möchte ich in
einem benannten Bereich meiner Arbeitsmappe (z.B. "Würste") suchen.

Als Ergebnis sollte dann der Zellname (z.B: "$A$12") herauskommen. Bzw.
eigentlich möchte ich nur wissen wie diese Zelle formatiert ist, also
Füllfarbe und Schriftfarbe.

Leider bin ich in Excel VBA noch völliger Neuling und blicke da nicht so
recht durch.

Viele Dank für Eure Hilfe.

Grüße

Patrick!

Ähnliche fragen