Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA-Zugriff auf Textfeldgruppierung möglich?

Forumthread: VBA-Zugriff auf Textfeldgruppierung möglich?

VBA-Zugriff auf Textfeldgruppierung möglich?
29.01.2005 16:39:01
Gast
Hallo zusammen,
ich habe mir eine Gruppierung von 3 Textfeldern erstellt.
Bestehend Textfeld 1, Tex... 2 und Tex.....3 (diese gruppiert)
In der Tabbelle kann ich da ohne Probleme auf die einzelnen Textfelder zugreifen (trotz Gruppierung)und die Texte anpassen.
Wollte dann mit dem Recorder aufzeichnen und konnte nicht mehr auf die einzelnen Textfelder zugreifen. )Versuch gescheitert(
Habt ihr einen Weg, dass ich trotz Gruppierung mit VBA zugreifen kann?
Gruß / Gast
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Zugriff auf Textfeldgruppierung möglich?
29.01.2005 18:16:22
andre
Hallo Gast,
schaue mal auf meinen code hier:
https://www.herber.de/forum/archiv/552to556/t553495.htm
Für 2000 geht der untere codeteil (else ...) , der obere wird mal für xp.
Wenn's nicht reich, melde Dich noch mal.
Anzeige
AW: VBA-Zugriff auf Textfeldgruppierung möglich?
29.01.2005 22:58:06
Gast
Hallo Andre,
komme nicht wirklich weiter :-((((
Gruß / Gast
PS; Bin eben ein Amateur :-)))

Sub test()
Set myDocument = Worksheets(1)
With myDocument.Shapes
.AddShape(msoShapeIsoscelesTriangle, _
10, 10, 100, 100).Name = "shpOne"
.AddShape(msoShapeIsoscelesTriangle, _
150, 10, 100, 100).Name = "shpTwo"
.AddShape(msoShapeIsoscelesTriangle, _
300, 10, 100, 100).Name = "shpThree"
With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
.Fill.PresetTextured msoTextureBlueTissuePaper
.GroupItems(2).Fill.PresetTextured msoTextureGreenMarble
End With
End With
End Sub




Sub LogoTest()
Set myDocument = Worksheets("Menue")
With myDocument.Shapes
With myDocument.Shapes.Range(Array("LG", "GM", "KB", "LS")).Group
'.Shapes("LS").TextFrame.Characters.Text = "Hallo"  '.Fill.PresetTextured msoTextureBlueTissuePaper
.GroupItems(4).TextFrame.Characters.Text = "Hallo "
End With
Anzeige
AW: VBA-Zugriff auf Textfeldgruppierung möglich?
30.01.2005 09:17:37
andre
Hallo Gast,
Wenn Du in einer Gruppierung Text ändern willst musst Du diese vorher aufheben und danach wieder gruppieren. Oder Du setzt den Text vorher richtig.

Sub LogoTest()
Dim myDocument As Worksheet
Set myDocument = Worksheets("Tabelle1")
myDocument.Shapes("LS").DrawingObject.Text = "Hallo "
With myDocument.Shapes
.Range(Array("LG", "GM", "KB", "LS")).Group.Select
Selection.Name = "LogoTestGruppe"
End With
Set myDocument = Nothing
End Sub



Sub LogoTestÄndern()
Dim myDocument As Worksheet
Set myDocument = Worksheets("Tabelle1")
myDocument.Shapes("LogoTestGruppe").Select
Selection.ShapeRange.Ungroup.Select
myDocument.Shapes("LS").DrawingObject.Text = "Hallo Du"
'mit regroup
Selection.ShapeRange.Regroup
Selection.Name = "LogoTestGruppe"
' oder wie vorher
'With myDocument.Shapes
' .Range(Array("LG", "GM", "KB", "LS")).Group.Select
' Selection.Name = "LogoTestGruppe"
'End With
Set myDocument = Nothing
End Sub

Anzeige
Danke Andre....
30.01.2005 11:26:29
Gast
Danke Andre,
ich hätte wieder Stunden damit verbracht.
Einfach nur weil jedes einzelne Textfeld ohne VBA ja ohne jedes Prob geändert werden kann. Denke immer was ohne VBA geht muß auch mit VBA gehen.
Grüße aus Mainz / Gast

Forumthreads zu verwandten Themen

Anzahl mit mehreren Bedingungen ohne Doppelte
Matthias

Hallo zusammen,
ich habe mal wieder ein Problem, welches ich leider selber nicht im Stande bin zu lösen.
Ich habe eine Liste mit mehreren tausend Einträgen. Die Liste ist in etwa wie folgt aufgebaut:
        A     &nbs...
22.07.2016 13:42:30
Thread-ID: 1505742
8 Beiträge
Anzeige
Mehrere Bedingungen
Endine

Hallo Zusammen
Ich habe mehrere Bedingen teilweise aus derselben Spalte welche abgefragt werden müssen um eine Kontonummer zuzuweisen.
Ich muss immer aus mehreren Einträgen das entsprechende heraus filtern.
In der Spalte C muss ich nach Stationär suchen.
In der Spalte D muss ic...
15.05.2019 17:39:54
Thread-ID: 1692811
1 Beitrag
Mehrere Bedingungen
Endine

Hallo Zusammen
Ich habe mehrere Bedingen teilweise aus derselben Spalte welche abgefragt werden müssen um eine Kontonummer zuzuweisen.
Ich muss immer aus mehreren Einträgen das entsprechende heraus filtern.
In der Spalte C muss ich nach Stationär suchen.
In der Spalte D muss ic...
15.05.2019 17:39:55
Thread-ID: 1692812
1 Beitrag
Mehrere Bedingungen
Endine

Hallo Zusammen
Ich habe mehrere Bedingen teilweise aus derselben Spalte welche abgefragt werden müssen um eine Kontonummer zuzuweisen.
Ich muss immer aus mehreren Einträgen das entsprechende heraus filtern.
In der Spalte C muss ich nach Stationär suchen.
In der Spalte D muss ic...
15.05.2019 17:39:56
Thread-ID: 1692813
7 Beiträge
Anzeige
Liste mittels Formeln per Suchvorgaben ausgeben
Joerschi

Hallo liebes Forum,
ich benötige Hilfe bei folgendem Problem (Grafiken und Beispieldatei ganz am Ende).
Eine Datei hat eine Kartei mit allerlei Datensätzen ("Datentabelle").
In einer weiteren Kartei ""Ausgabe" soll per vorgegeben Suchbegriffen (Zeile 1) eine Art Filterung der Datens...
23.08.2017 14:00:27
Thread-ID: 1576009
11 Beiträge
Teilsummen-Assistent
Martin

Hallo !ich übernehme aus einer dbase-Datenbank eine Tabelle in Excel.
Aus dieser Tabelle erstelle ich aus der "Preis"-Spalte mehrere Teilsummen mit mehreren Bedingungen.
Das Problem:
In einer dieser Spalten erkennt die Formel offenbar nicht den Wert. Bei der Definition der Bedingungen...
12.03.2003 10:23:08
Thread-ID: 230794
3 Beiträge
VBA Makro mit mehreren Bedingungen
Philip

Hallo liebes Hilfe-Team,
ich bin ein absoluter Excel Laie und brauche Eure Hilfe bei folgendem Makro (Versuch :-)): Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells(1).Address = "$Y$2" Then Rows("28:302").Hidden = Target.Value = "Wert1" Else Rows("8:27").Hidden = Target....
14.10.2019 13:36:06
Thread-ID: 1717445
2 Beiträge
Formeln kombinieren
Andreas Tilgner
Hallo Excel-Experten,

da ich hier schon oft die Lösung gefunden habe, hoffe ich auch diesmal, daß Ihr mir helfen könnt.

Ich habe 2 VBA-Codes die ich gerne miteinander kombinieren möchte, sodaß am Ende folgendes in der Zelle steht:

2023_11_30_K_

Ich dachte ich könn...
30.11.2023 20:46:26
Thread-ID: 1956106
3 Beiträge
Passwort für x Dateien in Unterordnern ändern
Viktoria

Hallo zusammen,
ich hab mal wieder ein VBA-Problem und komme nicht weiter.
Ziel soll sein, dass in einem Ordner mit verschiedenen Unterordnern in allen Excel-Dateien, die dort abliegen ein bestehendes Passwort zum Öffnen in ein neues geändert wird. Ich dachte ich könnte hierfür einfach...
20.01.2016 17:50:29
Thread-ID: 1470067
4 Beiträge
VBA - Werte aus best. Bereich kopieren
Dominic

Hi zusammen,
aus einem vorherigen Thread hier in diesem Forum habe ich folgendes VBA Script erhalten:
Dim Ze As Long
For Ze = 36 To 1164 Step 6
Rows(Ze + 1).EntireRow.Hidden = False
Next
ElseIf [B6] = 3 And [B2] = 1 Then
For Ze = 36 To 1014 Step 6
Rows(Ze + 1).En...
28.01.2013 16:51:16
Thread-ID: 1296354
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum