Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1044to1048
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
Inhaltsverzeichnis

Tabellenblat von Funktion ausschliessen

Tabellenblat von Funktion ausschliessen
02.02.2009 21:12:00
Funktion
Hi,
was muss ich ändern wenn ich das Tabelenblatt "XYZ" von folgendem Code ausschliessen will. Über die andren soll der Code weiterhin alle laufen:
Dim wks As Worksheet
For Each wks In Worksheets
wks.Select
Columns("A:A").Copy
Columns("A:A").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1").Select 'Zwischenspeicher löschen
Next
Danke
Leon

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

Betreff
Datum
Anwender
Anzeige
if UCASE(wks.name)<>"XYZ" then
02.02.2009 21:20:00
NoNet
Hallo Leon,
so sollte es funktionieren :

Dim wks As Worksheet
For Each wks In Worksheets
If UCASE(wks.Name)"XYZ" then
wks.Select
Columns("A:A").Copy
Columns("A:A").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1").Select 'Zwischenspeicher löschen
EndIfNext


Das UCASE() dient dazu, den Namen in GROSSBUCHSTABEN umzuwandeln, da xyz nicht gleich XYZ ist ;-)
Gruß, NoNet

Danke oT
02.02.2009 21:40:19
Leon
AW: Warum Select ?
02.02.2009 22:04:55
Gerd
Hallo Leon,
"Select" macht die Sache langsam.

Sub test()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If UCase(wks.Name)  "XYZ" Then
With wks.Columns(1)
.Cells.Value = .Cells.Value
End With
End If
Next
End Sub


Gruß Gerd

Anzeige
Stimmt, hast recht, geht schneler , Danke oT
02.02.2009 22:33:46
Leon

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige