Alles groß



Excel-Version: 9.0 (Office 2000)

Betrifft: Alles groß
von: TF
Geschrieben am: 12.06.2002 - 10:12:31

Hi,

wie kann ich in der Spalte B alles groß schreiben lassen - per VBA?? Ich habe eine Datei mit 4500 Zeilen - da wäre Handarbeit nicht so toll :-)

Bin für jeden Hinweis dankbar.
Gruß

TF

  

Re: Alles groß
von: Hajo
Geschrieben am: 12.06.2002 - 10:35:19

Hallo TF

das sin zwei unterschiedliche Probleme
Nachträglich lasse folgendes Makro laufen


Sub Gross()
    Dim As Long
    Dim Letzte As Long
    If [B65536] = "" Then
        Letzte = [B65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    For I = 1 To Letzte
        Cells(I, 2) = UCase(Cells(I, 2))
    Next I
End Sub


und nur Großbuchstaben bei Neueingabe in VBA in die Tabelle
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    Application.EnableEvents = False
    Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
End Sub

Gruß Hajo


  

Super-vielen Dank Hajo (oT)
von: TF
Geschrieben am: 12.06.2002 - 10:58:40