Hallo Henriele,
in ein Modul folgendes Makro
Option Explicit
Sub Groß2()
'**************************************************
'* H. Ziplies *
'* 17.02.2007 *
'* erstellt von ***@web.de *
'* http://Hajo-Excel.de/ *
'**************************************************
' alles in Großbuchstaben in Spalte A, in allen Tabellen
Dim WsTabelle As Worksheet
Dim RaZelle As Range
Dim LoLetzte As Long
Dim LoI As Long
Application.ScreenUpdating = False
For Each WsTabelle In Sheets
With WsTabelle
' unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(.Cells(Rows.Count, 1)),
.Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
For LoI = 1 To LoLetzte
.Cells(LoI, 1) = UCase(.Cells(LoI, 1))
Next LoI
End With
Next WsTabelle
Application.ScreenUpdating = True
End Sub
Starten über Extra, Makro.
Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista und Excel Version2007
http://Hajo-Excel.de/
Post by Henriette van de HaarPost by Hajo_ZiHallo Henriette,
http://hajo-excel.de/chCounter3/getfile.php?id=52
Hallo Hajo,
inwischen habe ich die Subroutine Private Sub Worksheet_Change(ByVal
Target As Excel.Range), die die Spalten C und D in Grossbuchstaben
verwandelt, richtig eingefügt. Es funktioniert! Ich danke Dir für den Code!
Aber nicht nachträglich.
- nachträglich wird eine ganze Spalte A in Grossbuchstaben umgewandelt
- und dies in einer Datei mit 26 Tabellen
Gruss,
Henriette
Post by Hajo_ZiGruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista und Excel Version2007
http://Hajo-Excel.de/
Post by Henriette van de HaarHallo alle,
weiss jemand, wie man den Text einer Spalte in Grossbuchstaben umwandelt?
Makrotechnisch scheint dies nur zu bewerkstelligen sein, indem ich die
Spalte kopiere (zum Beispiel nach B), und in jeder Zelle der Spalte, wo
die Grossbuchstaben erscheinen sollen (zum Beispiel in Spalte A) das
Makro "=Gross(b:b)" eintrage.
Wahrscheinlich ist eine Visual-Basic-Funktion sinnvoller?
Henriette van de Haar, Hamburg