Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1220to1224
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
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Blätter mit "ABC" durchlaufen

Alle Blätter mit "ABC" durchlaufen
Kai
Hallo,
Ich möchte per VBA alle Tabellenblätter durchlaufen, die mit "BESTAND" beginnen.
Blätter können zB. heisen:
"Bestand Alt"
"Bestand Neu"
"Bestand Heute"
...
und dort einen Code ausführen. Ich weiss nicht, ob ich da jedes Tabellenblatt einzeln selektieren muss, code (aus Modul) ausführen, nächstes Blatt selektieren, Code ausführen usw.... oder ob es da eine elegantere Möglichkeit gibt.
Danke mal für alle Tipps.
Kai
AW: Alle Blätter mit "ABC" durchlaufen
08.07.2011 10:28:56
Rudi
Hallo,
ob ich da jedes Tabellenblatt einzeln selektieren muss
Selektieren muss man gar nichts. 
Dim wks as WorkSheet
For Each wks in Worksheets
If wks.Name like "Bestand*" Then
With wks
'Code
End With
End If
Next wks

Gruß
Rudi
AW: Alle Blätter mit "ABC" durchlaufen
08.07.2011 11:34:46
Kai
Hallo Rudi,
Danke. Ich möchte auf den verschiedenen Tabellenblätter jeweils die Textbox1 ansprechen.
Da kommt aber immer eine Fehlermeldung "Objekt erforderlich"
Dim wks as WorkSheet
For Each wks in Worksheets
If wks.Name like "Bestand*" Then
With wks
.TextBox1.ShapeRange.Left = .Range("B30").Left + 3
End With
End If
Next wks
Was mache ich denn falsch ?
Danke
Kai
Anzeige
ohne ShapeRange owT
08.07.2011 11:49:07
Rudi
AW: ohne ShapeRange owT
08.07.2011 12:01:11
Kai
Hallo Rudi,
das scheint keine Rolle zu spielen, die Textbox1 wird trotzdem nicht gefunden (ist aber definitiv da)
- auf keinem einzigen Tabellenblatt
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Name Like "Bestand*" Then
With wks
.TextBox1.Left = .Range("B30").Left + 3
.TextBox1.Width = 735
.TextBox1.Value = .Range("B30").Value
End With
End If
Next wks
End Sub
Die Textbox sitzt auf jedem Tabellenblatt.
Gruß
Kai
With Worksheets(wks.Name) owT
08.07.2011 12:08:31
Matthias
Quatsch mwT
08.07.2011 12:30:41
Rudi
Hallo,
wozu erst den Namen eines Objekts ermitteln, um dann das Objekt damit anzusprechen?
Man kann auch direkt mit dem Objekt (wks) arbeiten.
Gruß
Rudi
Anzeige
wenn Du meinst
08.07.2011 12:49:21
Matthias
Hallo
Dann hast Du eben eine bessere Excelversion
Den Betreff kann man aber auch etwas Stilvoller gestalten :(
Ich hätte es nicht vorgeschlagen, wenn ich es nicht getestet hätte.
Getestet unter XL2000 und XL2007.
Userbild
Ich wollte nur helfen, sorry!
MfG Matthias
AW: wenn Du meinst
08.07.2011 13:02:44
Rudi
Hallo,
nimm's nicht persönlich.
Dann hast Du eben eine bessere Excelversion
Nein. XP
Ich hätte es nicht vorgeschlagen, wenn ich es nicht getestet hätte.
Ich hab ja gar nicht gesagt, dass es nicht funktioniert. Es ist nur ein Schritt zu viel.
Den Betreff kann man aber auch etwas Stilvoller gestalten
Bin halt oft ein bisschen grob.
Ich wollte nur helfen, sorry!
Wirft dir auch keiner vor.
Dass es mit With wks nicht funktioniert, kann ich mir nicht vorstellen, da wks das Worksheet repräsentiert und somit identisch ist mit Worksheets(wks.Name)
Forumsteilnehmer(Matthias.Name) ist ja auch Matthias.
Gruß
Rudi
Anzeige
Ok Rudi ... hier die Datei
08.07.2011 13:12:23
Matthias
Hallo Rudi
Ich war eben gerade nur etwas mürrisch.
Vergeht aber auch schnell wieder :o)
Probiers bitte aus mit beiden Varianten
Textbox ist aus Steuerelemente
https://www.herber.de/bbs/user/75637.xls
Mich würde interessieren ob es bei Dir klappt.
Gruß Matthias
sehr kurios
08.07.2011 13:32:20
Rudi
Hallo,
das zerstört mein Weltbild.
Da meckert ja schon der Debugger.
So geht das aber auch: 
Sub test()
Dim wks As Worksheet, shp As Shape
For Each wks In Worksheets
If wks.Name Like "Bestand*" Then
MsgBox wks Is Worksheets(wks.Name)  'immer WAHR
With wks
Set shp = .Shapes("Textbox1")
shp.Left = .Range("B30").Left + 3
shp.Width = 200
shp.DrawingObject.Object.Value = "und klappts ?"
End With
End If
Next wks
End Sub

Ist aber noch umständlicher.
Gruß
Rudi
Anzeige
@Rudi: Die Erde ist eben doch keine Scheibe ;-)_oT
08.07.2011 13:43:04
NoNet
_oT = "ohne Text"
Die Erde ist (k)eine Scheibe
AW: ohne ShapeRange owT
08.07.2011 12:27:19
Rudi
Hallo,
was sind das für Textboxen? Aus der Steuerelemente-Toolbox oder aus Formular?
Gruß
Rudi
warum schreibst Du nicht gleich was Du willst ?
08.07.2011 12:04:31
Matthias
Hallo
In jedem Blatt heit das Objekt Textbox1
Sub alleMitBestand()
Dim x&
For x = 1 To Worksheets.Count
With Worksheets(x)
If Left(.Name, 7) = "Bestand" Then
.TextBox1.Left = .Range("B30").Left + 3
.TextBox1.Text = "alles klaro?"
End If
End With
Next
End Sub
Gruß Matthias
Anzeige
Sorry, Danke, nun funktioniert es owT
08.07.2011 13:25:14
Kai
nicht getestet ...
08.07.2011 10:29:07
Matthias
Hallo
Sub alleMitBestand()
dim x&
For x = 1 To Worksheets.Count
If Left(Worksheets(x).Name, 7) = "Bestand" Then '... machwas
Next
End Sub
Gruß Matthias
Alle Blätter 'abklappern'
08.07.2011 10:30:13
NoNet
Hallo Kai,
dazu musst Du leider tatsächlich alle Blätter einzeln "abklappern" und mit dem gewünschten Namen vergleichen :
Sub SheetsAbklappern()
Dim ws As Worksheet
For Each ws In Worksheets
'Name hier in GROSSBUCHSTABEN überprüfen und angeben !
If UCase(ws.Name) Like "BESTAND *" Then MachWas ws
Next
End Sub
Sub MachWas(ws)
MsgBox "Blatt wird bearbeitet : " & vbLf & vbLf & ws.Name
End Sub
Gruß, NoNet
Anzeige
Textboxen aller Blätter modifizieren
08.07.2011 13:19:23
NoNet
Hallo Kai,
hier ein kleines Beispiel, das unter Excel 2003 funktioniert :
Sub AllesQuatsch_StreitetNicht()
Dim wks As Worksheet
For Each wks In Worksheets
If Ucase(wks.Name) Like "BESTAND *" Then
With wks.OLEObjects("TextBox1")
.Left = .Parent.Range("B30").Left + 3
.Width = 735
.Object.Text = "Bleibt friedlich - so funktioniert's !"
End With
End If
Next wks
End Sub
@Rudi + Matthias : Bleibt friedlich ;-) ! Grundsätzlich hat Rudi mit der Ojektreferenizierung Recht, aber leider funktioniert es in diesem Fall offenbar nicht.
Ich habe in meinem Code die Textbox1 nicht als eigenes Objekt referenziert, sondern als Aufzählungselement des OLEObjects !
Salut, NoNet
Anzeige
Großen Dank an alle, bei so viel Hilfe....
08.07.2011 13:27:04
Kai
..muss es ja mal gehn.
Gruß
Kai

304 Forumthreads zu ähnlichen Themen

Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Suche in Text mit mehreren Suchkriterien
Christian

Hallo Forum,
ich möchte prüfen, ob ein Text mindestens einen Text aus einer Liste enthält.
Bsp: enthält der Text
"das ist die Liste der gelieferten Früchte: Apfel, Birnen"
einen der Texte enthält:
"Banane", "Kirsche", "Birnen"
in dem Fall ja. Ich brauche keine Position...
14.01.2009 11:32:00
Thread-ID: 1039544
10 Beiträge
Anzeige
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 Beiträge
Summe aus einer Tabelle mit mehreren Kriterien
Erik

Hallo zusammen,
momentan verzweifel ich an einem Problem in Excel.
Die Tabelle hat das folgende Format
Europe: 1 = Ja und 0 = nein
Europe Type Size Price
1 x S 19
1 y L 145
0 x S 291<...
10.06.2009 13:50:10
Thread-ID: 1080478
4 Beiträge
Auswertung über mehrere Tabellenblätter
Stefan

Hallo zusammen,
ich hoffe ich finde bei Euch Hilfe. Ich habe nun schon einige Zeit das Forum durchsucht aber keine passende Lösung gefunden.
Ich habe eine Arbeitsmappe mit ca. 90 Tabellenblättern. Die Tabellenblätter sind so aufgebaut, das jeweils im Bereich
C6-E60 Daten stehen. In...
17.06.2009 10:51:48
Thread-ID: 1082164
6 Beiträge
Summen aus mehreren Dateien bilden
Rudolf

Hallo Excel-Freunde,
ich habe z.b. 50 Dateien, die sich alle in einem Ordner befinden und fortlaufend nummeriert sind (also 1.xls, 2.xls usw..
In allen Dateien befindet sich ein Arbeitsblatt mit dem gleichen Aufbau. Ich möchte nun in einer weiteren Datei mit dem gleichartig aufgebauten...
28.06.2009 19:07:21
Thread-ID: 1084895
3 Beiträge
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
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
2
9
15
2
8
3
5
2
4
3
6
2
6
3
1
12
3
3
13
2
7
2
4