Textfeld aus Shapes auslesen und in Tabelle ausgeben

Computer: Software & Programmierung Visual Basic
#1

Hallo.

Wie könnte ich aus einer Form (Rechteck) den eingefügten Text auslesen und in das aktive Blatt unter A1 ausgeben?

Vielen Dank im voraus.

Danny.

#2

Hallo Danny,

Range("A1") = ActiveSheet.Shapes("Textfeld 1").TextFrame2.TextRange.Text

Gruß, Andeas

#3

Vielen Dank. Das hat jetzt schon mal sehr weiter geholfen.
Nun stehe ich vor einen neuen Problem und würde mich sehr über ihre Hilfe freuen.

Und zwar soll jetzt ein Sheet über Button angezeigt (visible=true) werden, das aus dem Namen vom Shape besteht und einen zusätzlichen Text. Leider öffnet mir Excel dieses Sheet nicht. Nenne ich das Arbeitsblatt nur nach dem Shape und schreibe das Makro dementsprechend, geht es ohne Probleme. Code wäre:

Sheets(ActiveSheet.Shapes.Range(Array(„Rounded Rectangle 42“)).TextFrame2.TextRange.Text & „“ & „Langroller“).Visible = True

Angezeigt werden soll folgendes Arbeitsblatt: „Reserve 1 Langroller“

Macht er aber nicht.

Lass ich & „“ & „Langroller“ im Code weg und nenne das Arbeitsblatt nur Reserve 1 (Name vom Shape), geht es ohne Probleme.

#4

Hi Danny,

Dein Code:

... TextRange.Text & "" & "Langroller").Visible = True

Ich glaube du hast zwischen den beiden Anführungszeichen das Leerzeichen vergessen.

Gruß, Andreas

#5

Nachtrag
oder verkürzt so:

... TextRange.Text & " Langroller").Visible = True

Gruß, Andreas