Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
VBA: Sheet kopieren
28.10.2004 15:22:55
Fab
Hallo
Wenn das Sheet "67er" nicht im Workbook vorhanden ist, soll das Makro das Sheet in einem anderen Workbook holen
Windows("67_Elemente.xls").Activate
Sheets("67er").Select
Sheets("67er").Copy Before:=Workbooks("A_gesch.xls").Sheets(2)
Wenn 67er vorhanden ist, soll das Makro nichts machen.
Wer kann mir hier helfen?
Gruss
Fab

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Sheet kopieren
Ramses
Hallo
Das gleiche wie vorhin

Sub Import()
Dim i
dim chkWs as Boolean
Dim wsName as String
wsName = "67er"
chkWs = False
For i = 1 to worksheets.count
if Worksheets(i).Name = wsName Then
chkWs = True
Exit for
End If
Next i
If chkWs = True Then
Workbooks("67_Elemente.xls").WorkSheets("67er").Copy _
Before:=Workbooks("A_gesch.xls").Sheets(2)
End If
End Sub

Gruss Rainer
Danke dir! Gruss Fab o. T.
28.10.2004 15:50:31
Fab
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige