Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Tabellenblätter markieren

Forumthread: Mehrere Tabellenblätter markieren

Mehrere Tabellenblätter markieren
18.05.2009 12:45:53
StefanS
Hallo zusammen,
wie bekomme ich es hin, dass mein Programm alle Tabellenblätter mit dem Namen Register_n erkennt und gruppiert? Möchte im Anschluß alle Tabellenblätter gelich formatieren.
Anbei mein Code:

Sub Test()
Dim finalsheet As Worksheet
For Each finalsheet In ThisWorkbook.Worksheets
If finalsheet.Name Like "Register_*" Then
finalsheet.Select
Exit For
End If
Next finalsheet
End Sub


Schon jetzt danke für Eure Hilfe, Stefan

Anzeige

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

Betreff
Datum
Anwender
Anzeige
finalsheet.Select False '_oT
18.05.2009 12:47:49
NoNet
_oT = "ohne Text" (die komplette Lösung steht schon in der Betreffzeile !)
das geht aber nur ...
18.05.2009 12:54:56
Rudi
... wenn der Code von einem Register_* gestartet wird. Sonst ist ein falsches Blatt (das Startblatt) in der Selection.
Gruß
Rudi
AW: Mehrere Tabellenblätter markieren
18.05.2009 12:52:41
Rudi
Hallo,

Sub Test()
Dim finalsheet As Worksheet, arrsheets(), n
ReDim arrsheets(1 To Worksheets.Count)
For Each finalsheet In ThisWorkbook.Worksheets
If finalsheet.Name Like "Register_*" Then
n = n + 1
arrsheets(n) = finalsheet.Name
End If
Next finalsheet
ReDim Preserve arrsheets(1 To n)
Worksheets(arrsheets).Select
End Sub


Gruß
Rudi

Anzeige
AW: Mehrere Tabellenblätter markieren
18.05.2009 13:15:23
StefanS
Vielen Dank - funktioniert!
Noch eine kleine Frage:
Was muss ich tun, um jedes Tabellenblatt nach der letzten beschriebenen Zeile zu durchsuchen und dann "Content" einzutragen?

Sub Test()
Dim finalsheet As Worksheet, arrsheets(), n
ReDim arrsheets(1 To Worksheets.Count)
For Each finalsheet In ThisWorkbook.Worksheets
If finalsheet.Name Like "Register_*" Then
n = n + 1
arrsheets(n) = finalsheet.Name
End If
Next finalsheet
ReDim Preserve arrsheets(1 To n)
Worksheets(arrsheets).Select
For Each finalsheet In ThisWorkbook.Worksheets
If finalsheet.Name Like "Register_*" Then
Range("A" & Range("A65536").End(xlUp).Row + 3).Select
Selection = "Content :"
End If
Next finalsheet
End Sub


Gruß, Stefan

Anzeige
AW: Mehrere Tabellenblätter markieren
18.05.2009 13:25:48
Rudi
Hallo,

For Each finalsheet In ThisWorkbook.Worksheets
If finalsheet.Name Like "Register_*" Then
With finalsheet
.Cells(.Rows.Count, 1).End(xlUp).Offset(3) = "Content :"
End With
End If
Next finalsheet


Mir verschließt sich der Sinn der vorhergehenden Selecterei.
Gruß
Rudi

Anzeige
AW: Mehrere Tabellenblätter markieren
18.05.2009 13:49:54
StefanS
Vielen Dank!
;

Forumthreads zu verwandten Themen

Mehrere Textfelder markieren
Captain

Moin @all,
ich erstelle mehrere Textfelder auf meiner Userform dynamisch.
Gibt es für die Userform eine Möglichkeit, mehrere Textfelder per Maus auf einmal zu markieren, so wie es in einem Sheet mit den Zellen möglich ist?
Im Anhang meine Beispieldatei:
https://www.herber.de/bb...
18.08.2008 11:11:00
Thread-ID: 1002529
9 Beiträge
Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Anzeige
Script um auf jeden Blatt eine Zelle zu markieren
Eddie

Hallo, ich habe eine eigentlich ganz einfache sache, aber irgendwie ruft wohl eher das WE in meinen Kopf :-)
Ich will eigentlich nur ein kleinen VBA Code ... der in jeden vorhandenen Tabellenblatt die Zelle A1 markiert
Vielleicht kann mir jemand da etwas sagen ?
gruß Eddie
22.08.2008 15:11:53
Thread-ID: 1003910
15 Beiträge
Anzeige
Leerzeilen in markieren Bereich einfügen
Ulrich

Hallo zusammen,
ich möchte gerne einen Bereich markieren und dann ein Makro starten, dass im markierten Bereich unter jeder Zeile eine Leerzeile einfügt und dann den gesamten Bereich (Zeilen+Leerzeilen) markiert.
Habe das versucht - geht nicht:
Dim bereich As Range
Set bereich...
26.08.2008 15:36:00
Thread-ID: 1004840
3 Beiträge
Markieren, formatieren und sortieren via VB-Skript
Wladimir

Hallo zusammen,
wie kann man in einer geschlossenen Excel-Datei via VB-Skript die Zellen markieren, formatieren und sortieren.
Danke im Voraus
Freundliche Grüße
Wladimir
01.09.2008 17:03:25
Thread-ID: 1006538
17 Beiträge
mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Zeilen markieren, dann sortieren... usw....?
Selma

Hallo Leute,
ich habe mir die Inhalte des Arbeitsblattes sortiert (mit drei Sortkriterien). Jetzt möchte ich noch eine Sortierung per VBA wie folgt durchführen....
Ab Zeile 4 sollen die Zeilen die gleichen Zelleninhalt in Spalte H haben, markiert und wie folgt sortiert werden:
Sele...
04.09.2008 19:05:06
Thread-ID: 1007484
3 Beiträge
Zeilen markieren (ohne Formeleinträge)
Selma

Hallo Leute,
ich habe versucht ab Zeile 2 bis letzte gefüllte Zelle der Spalte B (leere Formelergebnisse sollen nicht berücksichtigt werden) die Zeilen zu markieren, leider ohne Erfolg.
Rows("2:" & Range("B65536").End(xlUp).Row).Select
Was muss ich ändern?
Vielen Dank im Vor...
07.09.2008 18:35:00
Thread-ID: 1007992
5 Beiträge
Anzeige
Bestimmte Werte markieren
mehmet

Hallo Forum,
ich habe in Spalte G4:G92 beispielsweise folgende Codes stehen:
in Zelle G4
TAF EKAH 080440Z 081212 16010KT 9999 SCT020 TEMPO 1218 4000 SHRA BKN015CB TEMPO 1807 2500 SHRA BR BKN008 SCT015CB BECMG 1921 21006KT TEMPO 0712 -SHRA BKN012 SCT020CB=
in Zelle G5
TAF ESS...
08.09.2008 08:36:00
Thread-ID: 1008041
3 Beiträge
Summenformel Zellbezüge markieren
Christian

Hi Leute,
heute möchte ich eine Frage stellen die mich schon eine Zeit lang beschäftigt, für die ich aber leider selber noch keine Antwort gefunden habe.
Ich habe ein Registerblatt in dem einige "Summen-Formeln" stehen, die auf Zellbeüge in anderen Registerblättern (alle in der selben A...
08.09.2008 08:38:00
Thread-ID: 1008042
6 Beiträge
Zeichenfolgen vergleichen und markieren
mehmet

Hallo Forum,
in Spalte G4:G92 habe ich mehrere Codes, z.B.:
G4
METAR EKAH 080850Z 18007KT 130V220 9999 SCT012TCU BKN100 18/16 Q1010=
G5
METAR UAAA 080900Z 03003MPS 010V080 9999 SKC 25/05 Q1017 55CLRD65 NOSIG RMK QFE704/0938=
G6
METAR ESSA 080920Z 04006KT 9999 SCT010...
08.09.2008 11:47:07
Thread-ID: 1008096
3 Beiträge
Anzeige
Doppeleinträge markieren
bug

Hallo,
ich habe eine Frage zu doppelten werten in einer Tabellenspalte.
wie kann ich in einer separaten spalte ein neues merkmal "X" ausgeben, mit dem nur einer derdoppelten einträge markiert wird, oder umgekehrt alle doppelten bis auf einen.
dabei spielt keine rolle welcher eintra...
09.09.2008 18:18:32
Thread-ID: 1008560
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige