Office: Userform

Hallo zusammen,

ich habe mir eine Userform mit mehreren CommandButtons erstellt, welche beim Klick auf den Button ihre Farbe ändern. (Beispiel 1 Button)

Code:

Private Sub CommandButton1_Click()

Dim variable As String
variable = "CommandButton1"



If Me.Controls(variable).BackColor = &H8000000F Then

Me.Controls(variable).BackColor = vbRed

Else

If Me.Controls(variable).BackColor = vbRed Then

Me.Controls(variable).BackColor = RGB(162, 0, 0)

Else

If Me.Controls(variable).BackColor = RGB(162, 0, 0) Then

Me.Controls(variable).BackColor = vbGreen

Else

If Me.Controls(variable).BackColor = vbGreen Then

Me.Controls(variable).BackColor = vbYellow

Else

Me.Controls(variable).BackColor = &H8000000F

End If

End If

End If
End If

End Sub

Das Speichern der Farbe habe ich aktuell über folgenden Code realisiert: (Beispiel 1 Button)

Private Function ExistCDP(PropName As String) As Boolean

Dim oDP As DocumentProperty
For Each oDP In ThisWorkbook.CustomDocumentProperties
If oDP.Name = PropName Then
ExistCDP = True
Exit For
End If
Next oDP
End Function

Private Sub Cmd_schliessen_Click_Click()
With ThisWorkbook.CustomDocumentProperties
If ExistCDP("Farbe1") Then
.Item("Farbe1").Value = CStr(CommandButton1.BackColor)

Else
ThisWorkbook.CustomDocumentProperties.Add "Farbe1", False, 4, CStr(CommandButton1.BackColor)


End If
End With
End Sub

Private Sub UserForm_Initialize()
If ExistCDP("Farbe1") Then
CommandButton1.BackColor = ThisWorkbook.CustomDocumentProperties.Item("Farbe1")
End If
End Sub


Der Code Funktioniert soweit eiwandfrei, einziges Problem ist, dass ich meine Userform mehrmals benötige. Wenn ich diese nun, durch ziehen in eine 2te lehre Excel Datei mit Umbenennung dupliziere, habe ich das Problem dass die duplizierte Userform die selben Informationen speichert wie die erste Userfom und umgekehrt.

Habe nun Versucht das ganze durch eine Ini-Datei zu programmieren, da ich leider aber kompletter Neuling bin, hat das bisher nicht funktioniert.
Gibt es hier eventuell noch eine 3te bessere/einfachere Lösung oder könnte mir einer auf die Sprünge helfen?

Vielen Dank für eure Zeit!

Viele Grüße Torben

:)

 

Hallo Torben,

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/...d.php?t=322895
änderrn.

Das ist nur meine Meinung zu dem Thema.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo Torben,
Hajo schreibt "Das ist nur meine Meinung zu dem Thema." - Nein, das ist auch meine Meinung. Bitte mach es den Leuten die Dir helfen wollen nicht so schwer. Kompilier den Kode mit Option explicit, schreib etwas Kommentar und lad die Datei hoch, dann wird Dir sicher geholfen.
Gruss, Wilhelm

 

Hallo zusammen,

tut mir leid, dass das alles so unkoordiniert ist.
Ist mein erster Beitrag im Forum darum bitte ich um Entschuldigung.

Im Anhang befindet sich nun meine Datei mit dem Code wie er für eine Userform funktioniert, aber leider nicht für die Zweite, da dort die Farben sich der ersten Userform anpassen.

Vielen Dank für euer Verständnis und ich hoffe, dass ihr nun mit der Datei etwas anfangen könnt.

Viele Grüße Torben

 

Hallo,

ich habe überhaupt keine Ahnung, was das werden soll ... ist aber auch egal.

Es reicht doch, wenn du einen UDEnum erstellst ...

Public Enum Farbe
vbWhite = 1
vbYellow = 2
vbRed = 3
vbGreen = 4
vbBlue = 5
End Enum

Dann kannst du über eine Schleife ein einfaches String-Array erstellen.

Code:

Da kannst ganz einfach den Wert für jeden Button auslesen und dem Userform.Name zuordnen.

Um die Farben zu wechseln, übergibst du die Farben des Button, an dessen Tag-Eigenschaft. dann brauchst du nur .Tag = .Tag + 1 zu schreiben und weißt über die Farben-Aufzählung sofort, welche Farbe gemeint ist.

Sabina

 

Hört sich ja relativ "simple" an, da ich mich leider nicht so gut mit dem erstellen von String-Arrays auskenne muss ich mir dort zunächst ein Einführungsvideo anschauen.

Ich melde mich wieder falls ich es nicht hinbekommen sollte.

Danke

Viele Grüße Torben

 

Da kannst ganz einfach den Wert für jeden Button auslesen und dem Userform.Name zuordnen.

Um die Farben zu wechseln, übergibst du die Farben des Button, an dessen Tag-Eigenschaft. dann brauchst du nur .Tag = .Tag + 1 zu schreiben und weißt über die Farben-Aufzählung sofort, welche Farbe gemeint ist.

Sabina

Hallo Sabina,

bei mir will das irgendwie nicht so richtig klappen.
Kannst du mir auf die Sprünge helfen was es mit dem Enum und der .Tag Eigenschaft genau auf sich hat?

Viele Grüße Torben