PDA

Vollständige Version anzeigen : Gefundene Zeile kopieren


maikjoh
03.08.2001, 21:18
Hallo,
ich suche über ein Makro ein bestimmten Eintrag, das Makro findet auch den Eintrag in einem Feld. Ich möchte jetzt aber die komplette Zeile in einer msgbox anzeigen,mit alle Spalten in der Zeile.
Kann mir jemand helfen, wie ich die aktuelle Zeile komplett in die msgbox einfügen kann.

Danke im voraus

Klaus-Dieter
03.08.2001, 22:13
Hallo maikjoh,

mit diesem Makro sollte es gehen:

Sub msg_box()
MsgBox "Der Inhalt der Zeile lautet: " & Chr(10) & Cells(v, 1) & " " & Cells(v, 2) & " " & Cells(v, 3)
End Sub

v steht dabei für die gefundene Zeile. Das mußt du mit Deinem Makro passig machen.
Alternativ kann man auch erst die komplette Zeile in eine Variable einlesen und die dann an die msgbox übergeben.

For s = 1 To Spaltenanzahl
variable = variable & " " & Cells(v, s)
Next s

Mit chr(10) wird in der Msgbox ein Zeilenumbruch erzwungen.