Anzeige
Archiv - Navigation
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei leerer Matrixzelle letzten Wert angeben

Bei leerer Matrixzelle letzten Wert angeben
26.07.2002 09:16:06
Folker

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Bei leerer Matrixzelle letzten Wert angeben
26.07.2002 21:57:19
Mike E.
Hallo,

für einen solchen Fall schlage ich eine VB-Editor-Lösung vor.

VB-Editor öffnen, eine UserForm erstellen mit:

einem "TextFeld1"
einem "Label1"
einem CommandButton "cmdOK"
einem CommandButton "cmdEnde"

Dann in der entsprechenden Tabelle einen CommandButton mittels der Steuerelement-Toolbox implementieren und folgenden Code zuweisen.
Dieser Code bewirkt, dass inder Zeile des gesuchten Begriffs solange gesucht wird, bis eine leere Zelle gefunden wird. Sodann wird eine Spalte nach links gesprungen und der Wert im "Label eins auf der UserForm1 angezeigt.
Der CommandButton "cmdEnde" erhält übrigens den Code "Unload Me". Dieser bewirkt, das die Form nach anklicken des Buttons verschwindet.

Falls gewünscht, schicke ich eine Tabelle mit Ihren daten und meinem Code zu:

Private Sub cmdOK_Click()
Range("a1").Select
Cells.Find(What:=UserForm1!txtSuche, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate

ActiveCell(1, 2).Select
s = 2
While ActiveCell(1, s) <> ""
s = s + 1

Wend

s = s - 1
ActiveCell(1, s).Select
UserForm1.Label1 = Selection

End Sub

Mit freundliche Grüßen
Mike E.

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige