Textbox verschieben

Forumthread: Textbox verschieben
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Textbox verschieben

Textbox verschieben

31.03.2025 19:27:16

schweizfan

Ich möchte in einem Tabellenblatt Zellen mittels einer Textbox abdecken. Habe aus dem OpenAI einen VBA Code, der mir aber immer wieder Fehler 400 anzeigt. Vielleicht kann mal jemand in meinem Dokument schauen, was ich falsch mache.
https://www.herber.de/bbs/user/176516.xls

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textbox verschieben

31.03.2025 19:53:39

cysu11
AW: Textbox verschieben

31.03.2025 20:55:25

schweizfan
AW: Textbox verschieben

31.03.2025 20:21:48

ralf_b
warum nicht per Format?

01.04.2025 00:13:23

Uduuh
AW: warum nicht per Format?

06.04.2025 19:39:40

schweizfan
AW: Textbox verschieben

31.03.2025 20:47:40

schweizfan

AW: Textbox verschieben

31.03.2025 19:53:39

cysu11

Hi,

was ist dein Absicht, was steckt dahinter? Vielleicht kann man das auch anders lösen...

LG, Alexandra

AW: Textbox verschieben

31.03.2025 20:55:25

schweizfan

Habe eine Tabelle mit Vokabeln und bekomme nach Zufallsprinzip diese in Zeile 1 und 2 angezeigt. Mir geht es hauptsächlich darum, dass die Aufmerksamkeit auf diesen beiden Zeile bleibt. Deshalb möchte ich den rest des Sichfeldes abgedeckt haben. Die Lösung von die ich jetzt bekommen habe erfüllt den Wunsch.
Trotzdem danke .

AW: Textbox verschieben

31.03.2025 20:21:48

ralf_b

versuchs mal damit.

Sub VerschiebeTextBoxVorZellen()

    With ActiveSheet.Shapes("TextBox1")

        .Top = ActiveSheet.Range("A3").Top

        .Left = ActiveSheet.Range("A3").Left

        .Width = ActiveSheet.Range("E20").Left + ActiveSheet.Range("E20").Width - .Left

        .Height = ActiveSheet.Range("A20").Top + ActiveSheet.Range("A20").Height - .Top

    End With

End Sub

warum nicht per Format?

01.04.2025 00:13:23

Uduuh

Hallo,
würde ich so lösen:

Sub verstecken()

  Range(Cells(3, 1), Cells(Rows.Count, 3).End(xlUp)).NumberFormat = ";;;"

End Sub

Sub anzeigen()

  Range(Cells(3, 1), Cells(Rows.Count, 3).End(xlUp)).NumberFormat = "general"

End Sub

Gruß aus'm Pott
Udo

AW: warum nicht per Format?

06.04.2025 19:39:40

schweizfan

Hallo Udo. Hatte nicht mehr reingeschaut, weil ich dachte die Lösung zu haben. Deine Version gefällt mir noch besser und vor allem erscheint es mir unkomplizierter.
Danke und entschuldige, dass ich erst jetzt antworte.

AW: Textbox verschieben

31.03.2025 20:47:40

schweizfan

Herzlichen Dank, funktioniert wie gewünscht. Hoffe mal, dass ich das Zurücksetzen auf Ausgangsposition auch hinbekomme. OpenAI muss wohl doch nicht das Nonplus ultra sein.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!