Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Eingabefenster

Forumthread: Eingabefenster

Eingabefenster
31.01.2005 13:18:27
MarryJo
Hallo zusammen,
ich habe eine Frage:
Mein Makro bezieht sich immer auf ganz bestimmte Spalten (diese werden erst gesucht und dann quasi markiert und gemerkt). Jetzt möchte ich es aber so haben, dass der Anwender sich quasi aussuchen kann auf welche Spalte er das Makro anwendet. Also irgendwie über eine User Form!? Hier ein Code-Schnipsel:
Set rgCell = rgHd.Find("Gross weight", LookIn:=xlValues, LookAt:=xlWhole)
If rgCell Is Nothing Then
MsgBox "Fehler, Spalte ""Gross weight"" fehlt"
Exit Sub
Else
iColNoGw = rgCell.Column
End If
In diesem Fall wird nach "Gross weight" gesucht. Dem Anwender soll sich also ein Eingabefenster öffnen, bei diesem er dann den Namen der beliebigen Spalte angeben kann. Auf diese Spalte wird dann das Makro angewendet. Der Spaltenname muss dann natürlich auch irgendwie automatisch im Makro hinterlegt werden.
Wie macht man das? Ich habe nämlich keine Ahnung!!
Vielen Dank vorab.
Gruss MarryJo
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
rghd=Application.InputBox(...,type:=1)
bernd
hallo marryjo
versuchs mal so:
(ist aber nicht getestet)
Dim rghd As Integer
rghd = Application.InputBox(prompt:="Welche Spalte ?", Type:=1)
Set rgCell = Columns(rghd).Find("Gross weight", LookIn:=xlValues, LookAt:=xlWhole)
If rgCell Is Nothing Then
MsgBox "Fehler, Spalte ""Gross weight"" fehlt"
Exit Sub
Else
iColNoGw = rgCell.Column
End If
bernd
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige