das hättest du auch selbst finden können :P
Sub FormatiereAlleWorksheetsAlsText()
Dim WS_zählen As Integer
Dim I As Integer
'Für schnellere Durchführung des Makros würde ich bei vielen Tabellenblättern die Bildschirmaktualisierung ausschalten
Application.displayalerts = False
' Setze ES_zählen mit der Anzahl der Tabellenblätter gleich WS_zählen = ActiveWorkbook.Worksheets.Count ' alle Sheets durchlaufen von 1 bis zum letzten For I = 1 To WS_zählen
Worksheets("Sheetname").Activate
Worksheets("SheetName").Range("A:A").Select 'oder Worksheets("SheetName").Columns(1).Select 'für einzelne Spalten
'Ausgewählten Bereich als TEXT formatieren
Selection.NumberFormat = "@"
'mit dem nächsten Tabellenblatt weitermachen Next I 'Bildschirmaktualisierung einschalten Application.displayalerts = True End Sub
Habe ich nur spontan geschrieben, hoffe dass da nun kein blöder Fehler drin ist ^^
LG Horsti
|