Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable übergeben

Variable übergeben
08.08.2014 12:47:18
Udo
Hallo Leute,
hab mal wieder eine Anfängerfrage:
Kann ich den Wert von einem Integrierten Dialogfeld in einer Variablen festhalten und wenn ja, wie muss ich die Variable deklarieren?
Beispiel: c= Application.Dialogs(xlDialogPatterns).Show
If spalte = 20 Then Cells(zeile, spalte).Interior.Color = c
(das funkt nicht)
Bin gespannt ob es geht.
Udo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable übergeben
08.08.2014 13:31:45
Daniel
Hi
nö, geht so nicht.
in c steht so nur WAHR, wenn der Anwender die Aktion ausgeführt hat und FALSCH, wenn er abgebrochen hat.
wenn du den Farbwert brauchst, kannst du ihn aus der aktiven Zelle auslesen, den wenn der Anwender diesen Dialog mit OK bestätigt, dann wird der selektierte Zellbereich so gefärbt.
oder du selektierst den Zellbereich, der gefärbt werden soll bevor du den Dialog startest 
If Spalte = 20 then
Cells(zeile, spalte).Select
Application.Dialogs(xlDialogPatterns).Show
End If
Gruß Daniel

AW: Variable übergeben
08.08.2014 13:38:09
Udo
Danke für Deine Antwort. Habe ich mir fast gedacht.

Anzeige
Dein Kommando ist ungeeignet, ...
08.08.2014 13:45:36
Luc:-?
…Udo,
denn idR geben solche .Show-Methoden zwar einen Wert zurück, der ist aber ein Wahrheitswert und sagt nur aus, ob etwas ausgewählt (True) oder der Vorgang abgebrochen wurde (False). Was ausgewählt wurde, bekommst du so nicht.
Mit dem folgd BspPgm erhältst du die ZellFarbe: 
Sub TestDial()
Dim c As Long
With Application.Dialogs(xlDialogPatterns)
If .Show Then c = ActiveWindow.RangeSelection.Interior.Color
End With
Debug.Print c
End Sub
Allerdings wird dadurch die ausgewählte Zelle auch schon gefärbt. Willst du die MusterFarbe habe, heißt es .PatternColor statt nur .Color!
Gruß, Luc :-?
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige