Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
556to560
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
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige