Text im Formularsteuerelement

Question

Hallo guten Tag kann mir jemand helfen, ich möchte aus einer Excel “Tabelle1“ sobald ich in der Zelle (E11) den TEXT Kunde 1 eintrage der automatisch als Text im Formularsteuerelement erscheint.

Vielen Dank.  

Answer 1

Hallo M.O. Danke das funktioniert gut. Wie kann ich das machen dass nach dem

     If Target = Range("E11") Then
        .Shapes.Range(Array("Textfeld 11")).Select 

 (Die Zelle ("E11") angewählt wird)und nach 

     If Target = Range("E31") Then
        .Shapes.Range(Array("Textfeld 12")).Select
         Selection.Characters.Text = Range("E31").Value

 (Die Zelle ("E31") angewählt wird)
Das mit der Bedingten Formatierung farbe aus einer Zelle z.B. ("D11"), ("D12") usw. muss ich wohl vergessen. Danke

Answer 2

Hallo,

wenn du eine Zelle auswählen willst, kannst du das mit

Range("E11").Select

machen.

Also z.B. so:

 If Target = Range("E31") Then
        .Shapes.Range(Array("Textfeld 12")).Select
         Selection.Characters.Text = Range("E31").Value
        .Range("E31").Select
End If

Du kannst zwar die Farbe nicht aus der bedingten Formatierung heraus ermitteln, aber z.B. aufgrund der Bedingungen, die du bei der bedingten Formatierung hinterlegt hast, z.B. für den Button festlegen.

Gruß

M.O.

Answer 3

Hallo M.O. guten Tag, das mit dem .Range("E31").Select funktioniert nicht, wenn ich in Zelle ("E31") etwas hineinschreibe wird immer die Zelle ("E11") angesprungen. Ich habe mich gestern mit der Zelle vertan es sollte nicht die Zelle ("E31") sondern die Zelle ("F31") ausgewählt werden. Danke

Answer 4

Hallo,

schreibe einfach die Zelle, die du anspringen willst in die Range-Anweisung. Beachte, dass die Zelle in Hochkomma gesetzt werden muss. Beispiele

Range("F31")

Range("J5")

Gruß

M.O.

Answer 5

Hallo M.O. das passt SUPER. Vielen Dank