Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code in mehreren Tabellen gleichzeitig ausführen

Code in mehreren Tabellen gleichzeitig ausführen
21.07.2008 14:41:34
TomTom
Hi,
ich möchte folgenden Code auf allen Tabellenblätter ausführen, die mit "Vorgang" beginnen.
TextBox2.Top = TextBox1.Top + TextBox1.Height + 10
TextBox3.Top = TextBox2.Top + TextBox2.Height + 10
TextBox4.Top = TextBox3.Top + TextBox3.Height + 10
Auf allen Tabellenblätter, die mit "Vorgang" beginnen , sind Textboxen angeordnet und die sollen alle im gleichen Abstand (für jedes Blatt) angeortnet werden.
Wie mache ich die Abfrage auf alle meine Tabellenblätter (aber nur die beginnend mit "Vorgang")
danke
mal
Tom

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code in mehreren Tabellen gleichzeitig ausführen
21.07.2008 14:45:35
Worti
Hallo Tom,
mit dieser Schleife sollte es gehen:
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Mid(ws.Name, 1, 7) = "Vorgang" Then
'Deine Anweisungen
End If
Next ws
Gruß
Worti

AW: Code in mehreren Tabellen gleichzeitig ausführ
21.07.2008 19:11:19
TomTom
Hallo Worti,
habe mit Deinem Beispiel probleme , funktioniert leider nicht:
schau mal mein beispiel an:
https://www.herber.de/bbs/user/54035.xls
Gruss
Tom

AW: Code in mehreren Tabellen gleichzeitig ausführen
21.07.2008 14:48:49
Rudi
Hallo,
gleichzeitig geht nicht. Nacheinander.

Sub tt()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
If wks.Name Like "Vorgang*" Then
With wks
.TextBox2.Top = .TextBox1.Top + .TextBox1.Height + 10
.TextBox3.Top = .TextBox2.Top + .TextBox2.Height + 10
.TextBox4.Top = .TextBox3.Top + .TextBox3.Height + 10
End With
End If
Next wks
Application.ScreenUpdating = True
End Sub


Gruß
Rudi

Anzeige
AW: Code in mehreren Tabellen gleichzeitig ausführ
21.07.2008 19:05:53
TomTom
Hi rudi,
Danke mal, kannst Du an meinem Beispiel erkennen , warum das nicht richtig funzt. In "START" soll der Button gedrückt werden und dann der Code auf eden restlichen Tabellenblättern ausgeführt werden:
Geht leidet nicht.
https://www.herber.de/bbs/user/54033.xls
Gruss
Tom

AW: Code in mehreren Tabellen gleichzeitig ausführ
21.07.2008 22:22:04
Rudi
Hallo,
in der Mappe gibt es keine Sheets mit Namen Vorgang*, wie in deiner Frage beschrieben.
Passe meinen Code entsprechend deiner Mappe an.
Gruß
Rudi

AW: Code in mehreren Tabellen gleichzeitig ausführ
22.07.2008 10:02:00
TomTom
Hallo Rudi,
das ist klar, das hatte ich gemacht, war ja auch nur ein Beispiel. Wenn Du in meinem Beispiel das Makro anschaust, dann sollte es ja auch mit "Tabelle" funktionieren.
der Code funktioniert immer nur auf der aktuellen Seite, die Schleife scheint nicht durchzulaufen.
Gruss
Tom
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige