VBA Zellwert suchen und Bereich manipulieren

20/05/2009 - 09:32 von Gintenstorfer Wilfried | Report spam
Hallo an alle!

Ich hoffe meine Frage ist nicht allzu simple, aber ich tüftle schon seit
einiger Zeit an einem Problem das irgendwie nicht sauber funktioniert.

Ich möchte einfach in einem Tabellenblatt einen Wert suchen (Text) und ab
dieser Zelle die darunterliegenden drei Zeilen (inkl der mit dem gesuchten
Wert) als Druckbereich festlegen. Alle meine bisherigen versuche sind leider
gescheitert.

Danke für alle Infos im voraus.
Wilfried
 

Lesen sie die antworten

#1 Jaju
20/05/2009 - 11:35 | Warnen spam
Hallo Wilfried

wie wàre es damit - geht sicherlich eleganter:

Sub SuchDruck()
' Suchtext Drucken
Text = "Text"
Cells.Select
Set Gefunden = Selection.Find(What:=Text, After:=ActiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False)
If Not Gefunden Is Nothing Then
GefA = Gefunden.Address
GefR = Gefunden.Row
' GefC = Gefunden.Column
Range(Left(GefA, 2) & GefR & ":" & Left(GefA, 2) & GefR + 3).Select
Selection.PrintOut Copies:=1, Collate:=True
End If
End Sub

Mit freundlichen Grüßen
Klaus


"Gintenstorfer Wilfried" <wilfried[AT]ginti.at> schrieb im Newsbeitrag
news:
Hallo an alle!

Ich hoffe meine Frage ist nicht allzu simple, aber ich tüftle schon seit
einiger Zeit an einem Problem das irgendwie nicht sauber funktioniert.

Ich möchte einfach in einem Tabellenblatt einen Wert suchen (Text) und ab
dieser Zelle die darunterliegenden drei Zeilen (inkl der mit dem gesuchten
Wert) als Druckbereich festlegen. Alle meine bisherigen versuche sind
leider gescheitert.

Danke für alle Infos im voraus.
Wilfried

Ähnliche fragen