Re: Blattname kopieren
19.11.2002 16:10:20
Chris
Hallo DirkDa hab ich auch noch einen Vorschlag, jedoch scheinen die anderen Lösungen etwas effizienter zu sein :-)
Gruss
Chris
On Error GoTo errorhandler
' Blatt der Reihe nach auswählen
For x = 1 To Sheets.Count
Sheets(x).Select
' eruiert die maximale Anzahl Zeilen sämtlicher Spalten
a = 0
For i = 1 To 256
b = Cells(Rows.Count, i).End(xlUp).Row
If a < b Then a = b
Next i
' neue Spalte einfügen
Sheets(x).Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Sheets(x).Range("A1").Select
' falls Zeile nicht leer, Dateinamen in Spalte A eintragen
For ii = 1 To a
For iii = 1 To 256
If Sheets(x).Cells(ii, iii) <> "" Then
Sheets(x).Cells(ii, 1) = Sheets(x).Name
Exit For
End If
Next iii
Next ii
Next x
' nach Beendigung erstes Blatt auswählen und Meldung
Sheets(1).Select
MsgBox "Aktion durchgeführt"
Exit Sub
' Fehlerbehandlung
errorhandler:
MsgBox "unvorhergesehener Fehler"