MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.07.2018, 07:35   #1
Adel1105
MOF User
MOF User
Down VBA - Color Farbe (RBG Nummer) vorher eingeben

Guten Morgen,
habe folgendes Makro für Colorfarbe eingeben...

Sub Farbe_einfügen()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 9357141
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Wie muss ich das Makro ändern, damit sich ein Fenster öffnet und ich die Zahl jedes Mal für die Farbe neu bestimmen könnte (9357141) RBG Farbe

Bedanke mich schon jetzt im Voraus!
Adel1105 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 07:49   #2
Klaus-Dieter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

das kannst du mit einer Inputbox machen.

__________________


Viele Grüße Klaus-Dieter

Klaus-Dieter's Excel und VBA Seite
Klaus-Dieter ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 08:32   #3
Adel1105
Threadstarter Threadstarter
MOF User
MOF User
Ärger Eben ein Anfänger

Dankeschön Klaus Dieter Hary hat die Lösung zwischenzeitlich als Makro eingetragen... mit dieser Box...

Geändert von Adel1105 (11.07.2018 um 08:37 Uhr).
Adel1105 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 07:50   #4
hary
MOF Guru
MOF Guru
Standard

Moin
Meinst du so?
Code:

Sub Farbe_einfügen()
Dim Farbe As Long
Farbe = Application.InputBox("RGB Farbe eintragen", "Neue Farbe", Type:=1)
  If Farbe = 0 Then Exit Sub
    With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = Farbe
      .TintAndShade = 0
      .PatternTintAndShade = 0
    End With
End Sub
gruss hary
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 08:41   #5
Adel1105
Threadstarter Threadstarter
MOF User
MOF User
Strahlen Dankeschön

Hallo Hary,
genauso wollte ich das Makro... funktioniert 100%ig
Dankeschön!!!
Grüße aus Oberfranken
Adel1105
Adel1105 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 08:40   #6
Beverly
MOF Guru
MOF Guru
Standard

Hi,

weshalb willst du denn die Farbe als Zahl vorgeben? Du kannst sie doch auch direkt auswählen:

Code:

Sub Farbe()
    Application.Dialogs(xlDialogPatterns).Show
End Sub

GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 08:50   #7
Adel1105
Threadstarter Threadstarter
MOF User
MOF User
Down Auslesen und Einlesen ?

#Beverly
da ich spezielle Farben habe... lese ich diese aus...

Sub Farbe_auslesen()
Dim Farbwert As Long
Dim Rot
Dim Grün
Dim Blau
Farbwert = ActiveCell.Interior.Color
'Farbwert = ActiveWorkbook.Colors(48)
On Error Resume Next
Rot = Farbwert Mod 256
Farbwert = (Farbwert - Rot) / 256
Grün = Farbwert Mod 256
Farbwert = (Farbwert - Grün) / 256
Blau = Farbwert Mod 256
MsgBox "RGB " & Rot & ", " & Grün & ", " & Blau & Chr(13) & "RGBLong " & ActiveCell. _
Interior.Color & Chr(13) & "Index " & ActiveCell.Interior.ColorIndex
End Sub

Dann füge ich diese mit dem anderen Makro ein...
oder ginge das auch zusammen !!?????
Adel1105 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 09:38   #8
Beverly
MOF Guru
MOF Guru
Standard

Hi,

du brauchst doch nicht die Zahl in einer MsgBox anzeigen zu lassen und sie bei der nächsten Zelle in eine InputBox eintragen - definiere einfach eine Variable außerhalb der Makros, lies zuerst die Farbe der aktiven Zelle (aus der die Farbe übernommen wird) und übergib den Wert an das nächste Makro zum formatieren der Zielzelle:

Code:

Option Explicit
Dim lngFarbe As Long

Sub Startfarbe()
    lngFarbe = ActiveCell.Interior.Color
End Sub

Sub Ziel()
    ActiveCell.Interior.Color = lngFarbe
End Sub

GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.07.2018, 09:32   #9
Adel1105
Threadstarter Threadstarter
MOF User
MOF User
Standard Farbe auslesen und einfügen...

Hi, dieses funktioniert auch
Danke nochmal!
Adel1105 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 08:59   #10
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Hilft nicht bereits Kopieren, Einfügen, Formate?
So ganz ohne Makro?
Gut, es werden alle Formate wie Schriftart, Rahmen, etc. übertragen, aber es könnte ja unerheblich sein?

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 09:17   #11
Adel1105
Threadstarter Threadstarter
MOF User
MOF User
Standard Kopieren, viel zu aufwendig... Makro schneller und einfacher

#RPP63neu
Ja das geht schon aber viel, viel aufwendiger... deshalb so...
Format, Formeln, usw. ändern sich in diesen Bereichen sehr oft...
einfach markieren.... Makro aufrufen... und fertig...
Gruß Adel1105

Geändert von Adel1105 (11.07.2018 um 09:20 Uhr).
Adel1105 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:13 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.