Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle suchen und Tabellenblatt umbenennen

Zelle suchen und Tabellenblatt umbenennen
17.06.2005 14:47:05
Andreas
Habe die Ehre, die Madln, servus, die Buam!
Frage:
Ich habe mir unter extremsten Anstrengungen
und Eurer Hilfe ein Makro zusammengebaut.
Jetzt komm ich aber nicht mehr weiter.
Nämlich sollte folgendes ausgeführt werden:
Makro läuft
Makro läuft
Makro läuft
Jedes Tabellenblatt der Mappe soll durchsucht werden
ob es die Zelle mit dem Inhalt "Andreas" enthält.
Die Tabellenblätter,die keine Zelle mit "Andreas"
enthalten sollen umbenannt werden. Und zwar sollen
sie den aktuellen Namen behalten, lediglich es soll
ein "kein" angefügt werden.
Alle anderen Tabellenblätter die eine Zelle mit
"Andreas" enthalten sollen gleich bleiben.
Danach soll das Makro fortgesetzt werden.
Makro läuft weiter
Makro läuft weiter
Makro läuft weiter
Grüße und Dank
Andreas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle suchen und Tabellenblatt umbenennen
17.06.2005 15:11:06
EffHa
Makro läuft
Makro läuft
Makro läuft
call SearchAndy
Makro läuft weiter
Makro läuft weiter
Makro läuft weiter

Sub SearchAndy()
Dim LetzteZeile&, LetzteSpalte&, I&, J&, X&
Dim IsAndreas As Boolean
For X = 1 To Worksheets.Count
IsAndreas = False
LetzteZeile = Worksheets(X).Cells.SpecialCells(xlCellTypeLastCell).Row
LetzteSpalte = Worksheets(X).Cells.SpecialCells(xlCellTypeLastCell).Column
For I = 1 To LetzteZeile
For J = 1 To LetzteSpalte
If Cells(I, J) = "Andreas" Then
IsAndreas = True
Exit For
End If
Next
If IsAndreas Then Exit For
Next
If IsAndreas = False Then Worksheets(X).Name = "NoAndreas" & X
Next
End Sub

Anzeige
AW: Zelle suchen und Tabellenblatt umbenennen
17.06.2005 15:13:34
Galenzo
mein Vorschlag:
Dim wks As Worksheet
Dim c As Range
For Each wks In Worksheets
On Error Resume Next
Set c = wks.UsedRange.Find(What:="Andreas", LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
If c Is Nothing Then wks.Name = wks.Name & " kein"
Next
Viel Erfolg!
1000dank
17.06.2005 15:47:46
Andreas
Danke vielmals werds probieren.
Grüße
A.

29 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige