Office: (Office 2019) Zelle aus Userform aktivieren

Hallo,

möchte aus einer Combobox nach Auswahl eine Zelle aktivieren um dann mit einem makro auf diese Zelle zugreifen. Dafür muß aber die Zelle aktiviert sein.

Bisher habe ich

Private Sub CommandButton1_Click()
Dim rng As Range, R As String
R = ComboBox1.Column(2)
Debug.Print R
'Set rng = Range(R)
'rng.Select
Zellinfo
Unload Me
End Sub

R ist zwar richtig mit Farben!R104

aber bekomme die Zelle nicht aktiviert

Gruß Frodo

 

in VBA muss keine Zelle aktiviert werden. Es sei den du möchtest am Ende eine besimmte ZUelle aktivieren.
Steht in der Combobox eine Zelladresse?
Ich baue keine Datei nach, die hat schon jemand erstellt.

 

Hallo,
hatte ich doch oben schon geschrieben, die Zelladresse ist Tabelle Farben, Zelle R104 ( als Beispiel)
Diese Zelle muss ich aktivieren, weil das Makro Zellinfo nur auf die aktive Zelle zugreift.

Gruß Frodo

 

Hallo Frodo,

mein VBA kennt den Befehl Zellinfo nicht.
Falls das ein Makro?
Ich kann Dir nicht helfen, da ich nicht auf fremde Rechner schaue.

Gruß Hajo

 

Hallo,

du musst keine Zelle selektieren oder aktivieren. Du lädst die Zelle als Range-Obkjekt in eine Objektvariable. Dann kannst aus dieser Objektvariable auslesen weas für dich von Interesse ist. Das unsinnige rumselektieren oder aktivieren im Tabellenblatt produziert nut Lantenz.

Dim rng as Range
Sub ZelleEinlesen
Set rng = Tabelle1.Range("A1")
....weitere Verarbeitung
End Sub

Gruß Uwe

 

Hallo,
das habe ich doch

Private Sub CommandButton1_Click()
Dim rng As Range, R As String
R = ComboBox1.Column(2)
Debug.Print R
Set rng = Sheets("Farben").Range(R)
'rng.Activate
Zellinfo
Unload Me
End Sub

aber ich muß die Zelle aktivieren damit das Makro Zellinfo darauf zugreifen kann. Das Makro ist allgemein und reagiert auf ActiveCell. Das Makro hat keinen Parameter für die Zelle, außerdem müsste wenn der Parameter Leer ist, die Aktive Zelle genommen werden. Das Makro ist auch nicht gerade klein, sodas den Code dann in einem Klickereignis zu verwenden, eher zweifelhaft ist.
Deshalb ist der einfachste Weg, die Zelle zu aktivieren. Die Frage ist nur wie?
Außerdem, wenn ich rng so setze, dann ist rng der Wert der Zelle und nicht die Adresse.


Gruß Frodo

 

Du möchtest also das Makro nich Posten,. weil Du es selber lösenn willst
Zellinfo r
Zellinfo(StZelle as String)

Gruß Hajo

 

Hallo,
das Makro Zellinfo sieht so aus

Sub Zellinfo()
Dim x As String, Y As String
Dim Rot As Long, Gruen As Long, Blau As Long, Wert As Long, Rot2 As Long, Gruen2 As Long, Blau2 As Long, Wert2 As Long, v As Variant, w As Variant, k As Variant, l As Variant, c As Variant, u As Long
Wert = ActiveCell.Interior.Color
v = ActiveCell.Interior.ThemeColor
w = ActiveCell.Interior.TintAndShade
k = ActiveCell.Interior.Color
u = ActiveCell.Font.Color
If Not IsNumeric(ActiveCell.Value) And ActiveCell.Value <> "" Then
c = ActiveCell.Value
End If
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert - Rot) / 256
Gruen = Wert Mod 256
Wert = (Wert - Gruen) / 256
Blau = Wert Mod 256
'Grundfarbe ermitteln
If w <> 0 Then
ActiveCell.Interior.TintAndShade = 0
l = ActiveCell.Interior.Color
Wert2 = ActiveCell.Interior.Color
Rot2 = Wert2 Mod 256
Wert2 = (Wert2 - Rot2) / 256
Gruen2 = Wert2 Mod 256
Wert2 = (Wert2 - Gruen2) / 256
Blau2 = Wert2 Mod 256
ActiveCell.Interior.TintAndShade = w
Y = "Farbindex " & Selection.Interior.ColorIndex & vbNewLine & "Farbnummer " & Selection.Interior.Color & vbNewLine & "RGB " & Rot & " " & Gruen & " " & Blau & vbCrLf & "Theme " & v & vbNewLine & "TintAndShade " & w & vbNewLine & "Grundfarbe" & vbNewLine & "Farbnummer " & l & vbNewLine & "RGB " & Rot2 & " " & Gruen2 & " " & Blau2 & vbCrLf & "Schriftfarbe " & u & vbNewLine & "Text " & c
Else
Y = "Farbindex " & Selection.Interior.ColorIndex & vbNewLine & "Farbnummer " & Selection.Interior.Color & vbNewLine & "RGB " & Rot & " " & Gruen & " " & Blau & vbCrLf & "Theme " & v & vbNewLine & "TintAndShade " & w & vbNewLine & "Schriftfarbe " & u & vbNewLine & "Text " & c
End If
'Y = "Farbindex " & Selection.Interior.ColorIndex & vbNewLine & "Farbnummer " & Selection.Interior.Color & vbNewLine & "RGB " & Rot & " " & Gruen & " " & Blau & vbCrLf & "Theme " & v & vbNewLine & "TintAndShade " & w & vbNewLine & "Schriftfarbe " & u & vbNewLine & "Value " & c
x = "Info Zelle " & ActiveCell.Address
'ZBox x, Y
MsgBox Y
End Sub

Gruß Frodo

 

ersetze ActiveCell durch Range(StZelle)
den Übergabwert
Wie schon geschrieben ich baue keine Datei nach.

Gruß Hajo

 

Hi,

um eine Zelle zu selektieren muss zuerst das Blatt aktiviert werden:

Set rng = Sheets("Farben").Range(R)
Sheetx("Farben").Activate
rng.Select

Aber mal ehrlich: Was hindert dich daran dein Makro umzuschreiben? Das wäre viel eleganter und effizienter als die Selektiererei.

Sub Zellinfo(optional Zelle as Range)
If Zelle Is Nothing Then set Zelle = ActiveCell
....
End Sub

Und dann überall ActiveCell durch Zelle ersetzen.

 

Moin!

Nö!

Code:

Sub Machs_mal()
Dim R As Range
Set R = Worksheets("Farben").Range("B42")
Application.Goto R, True
End Sub

Gruß Ralf

 

Doch!

Application.Goto-Methode (Excel)

 

Oje - das passiert, wenn man mit Handy versucht ins Forum zu schreiben. Aber nochmals zu dem rumgeselektiere: Es gibt kaum Gründe wie "der Nutzer soll dahin geführt werden" o.ä. dies zu nutzen.

Ich wundere mich über den TO, der mit Klassenprogrammierung arbeiten will und über solch eher simplen Sachen stolpert. Aber das muss der selber wissen.

Gruß Uwe

 

@Frodo

Code:

' rng.Activate
Zellinfo
Unload Me

Über diesen Codeausschnitt solltest du nochmal nachdenken. Das Selektieren ist wirklich keine gute Idee und es hindert dich doch keiner daran, das "Makro" Zellinfo entsprechend anszupassen, im einfachsten Fall um einem optionalen Parameter zu ergänzen, der dann ausgewertet wird.

Schlimmer finde ich jedoch die Zeile "Unload Me". Das Verwenden von Unload Me direkt innerhalb eines VBA-UserForm-Events gilt im Allgemeinen als schlechte Praxis (Bad Practice), weil hier eine "Verletzung der Objekt-Zuständigkeit" vorliegt. Ein Objekt (das Formular) sollte seinen eigenen Lebenszyklus nicht selbst verwalten, das ist die Aufgabe des Controllers bzw. der aufrufenden Routine.

Knobbi38

 

Hallo,
beide Varianten funktionieren, habe aber das Makro umgeschrieben. Nachteil ist jetzt aber das Makro kann nicht mehr direkt aufgerufen werden, ist in der Makroliste nicht mehr vorhanden. Ein Direktaufruf geht nur über ein zusätzliches Makro. Was das Unload Me angeht, hier zeigt sich der Unterschied zwischen Theorie und Praxis. Es kommt auf den Aufruf an, wird die Form direkt aufgerufen, geht das Entladen nur über die Userform. Jetzt noch einmal ein Makro aufrufen, das die Form dann schließt, ist fast schon Unsinn.

Gruß Frodo