Excel --> Kleinschrift in Großschrift

Dieses Thema Excel --> Kleinschrift in Großschrift im Forum "Microsoft Office Suite" wurde erstellt von Mr_Tom, 13. Aug. 2005.

Thema: Excel --> Kleinschrift in Großschrift HI@ALL also ich habe ein kleines problem, ich muss im excel alles was kleinschrift hat in großschrift ändern. da...

  1. HI@ALL

    also ich habe ein kleines problem, ich muss im excel alles was kleinschrift hat
    in großschrift ändern. da ich annehme das so etwas nur mit einem makro funktioniert
    und ich davon keine ahnung habe bitte ich euch mir vielleicht ein wenig zu helfen.

    danke
     
  2. Hallo Mr_Tom,

    kannst Du mal etwas genauer beschreiben, was der Makro können soll.

    Soll er z.B. alle Zellen eines Blattes durchgehen und alle als Text formatierten Inhalte wandeln.

    Gruß Matjes :)
     
  3. Hallo Mr_Tom,

    ich hab dir mal ein Makro zusammengestellt, der in der aktuellen Arbeitsmappe Klein- in Großschreibung wandelt.
    (Einschränkungen sie Makro-Text)
    Code:
    Option Explicit
    
    Sub Excel_KleinBuchstabenInGrossbuchstaben()
     ->Wandelt auf allen Blättern einer Arbeitsmappe
     ->Kleinbuchstaben zu Großbuchstaben
     ->in Zellen, die Standard oder Text formatiert sind
     ->
     ->Einschränkungen:
     ->a) es werden nur Zelle-Inhalte von Zellen geändert,
     ->   die Standard oder Text formatiert sind
     ->b) Zellen mit Formel werden nicht behandelt
     ->c) Zellen mit Schutz werden nicht behandelt
     ->   Es erfolgt eine entsprechende Meldung
     ->d) Es werden nur Arbeitsblätter behandelt
      
    
      Dim Zelle As Range, ws As Worksheet, wb As Workbook
      Dim s_BlattMitGesperrtenZellen As String
      Dim b_BlattMitGesperrtenZellen As Boolean
      
      On Error Resume Next
      
      s_BlattMitGesperrtenZellen = 
      
      Set wb = ActiveWorkbook
      
      For Each ws In wb.Worksheets
        b_BlattMitGesperrtenZellen = False
       ->Blatt = Arbeitsblatt ?
        If ws.Type = xlWorksheet Then
         ->Für alle Zellen des benutzten Bereich
         ->auf dem aktiven Blatt
          For Each Zelle In ws.UsedRange
            With Zelle
             ->Zelle nicht leer ?
              If .Value <>  Then
               ->Zellformat Text oder Standard ?
                If .NumberFormat = @ Or .NumberFormat = General Then
                 ->Formel ?
                  If Left(.Formula, 1) <> = Then
                   ->Kleinbuchstaben -> Grossbuchstaben
                    .Value = UCase(.Value)
                   ->Zelle gesperrt ?
                    If Err <> 0 Then
                      Err.Clear
                      b_BlattMitGesperrtenZellen = True
                    End If
                  End If
                End If
              End If
            End With
          Next
        End If
       ->Waren auf dem Blatt Zellen, die nicht modifiziert werden konnten ?
        If b_BlattMitGesperrtenZellen Then
         ->Blattnamen für Meldung merken
          If s_BlattMitGesperrtenZellen <>  Then
            s_BlattMitGesperrtenZellen = s_BlattMitGesperrtenZellen & vbLf
          End If
          s_BlattMitGesperrtenZellen = s_BlattMitGesperrtenZellen & ws.Name
        End If
      Next
      
     ->Wenn Zellen nicht modifiziert werden konnten, entsprechenden Blattnamen ausgeben
      If s_BlattMitGesperrtenZellen <>  Then
        MsgBox ( _
        Auf den folgenden Blättern konnten geschützte Zellen nicht modifiziert werden: _
        & vbLf & vbLf & s_BlattMitGesperrtenZellen)
      End If
      
     ->Object-Variablen aufräumen
      Set Zelle = Nothing: Set ws = Nothing: Set wb = Nothing
    End Sub
    Und jetzt noch die beiden Anleitungen für Neu-Einsteiger  ;)
    Code:
    '==============================
    'Makro in Excel-Datei speichern
    '==============================
    'a) neue Excel-Datei anlegen
    'b) neue Excel-Datei speichern als z.B.
    '   Excel_KleinBuchstabenInGrossbuchstaben.xls
    'c) mit Alt+F11 VB-Editor öffnen
    'd) im Projekt-Fenster
    '   VBAProject(Excel_KleinBuchstabenInGrossbuchstaben.xls)
    '   mit rechter Maustaste selektieren -> Einfügen -> Modul
    'e) Das Makro in das Modul-Fenster
    '   Excel_KleinBuchstabenInGrossbuchstaben.xls -[Modul1(Code)]
    '   kopieren
    'f) mit Alt+S speichern
    'g) mit Alt+Q VB-Editor schliessen
    'h) Excel_KleinBuchstabenInGrossbuchstaben.xls schliessen
    
    '==============================
    'Makro anwenden
    '==============================
    'a) Excel_KleinBuchstabenInGrossbuchstaben.xls öffnen
    'b) zu bearbeitende Excel-Mappe öffnen
    '   (muß im Vordergrund stehen)
    'c) mit Alt+F8 Makros aufrufen
    'd) Excel_KleinBuchstabenInGrossbuchstaben selektieren -> ausführen
    '   (= Doppelklick auf Excel_KleinBuchstabenInGrossbuchstaben)
    'e) Ergebnis begutachten :-)
    Gruß Matjes :)
     
  4. HALLO MATJES

    vielen dank für die schnelle hilfe. hat mir sehr weitergeholfen.
     
  5. Ich wollte auch Danke für das Makro sagen. Hat mir super geholfen.
    Mike
     
  6. Hallo,

    sicherlich nicht ganz so komfortabel wie Matjes seine Lösung:

    in A1:

    klein


    in B1:

    =GROSS(A1) --> Ergebnis: KLEIN

    Ciao


    Fibo
     
  7. oder
    =GROSS2(A1) --> Ergebnis: Klein





    die armen Spatzen! ;D
     
Die Seite wird geladen...

Excel --> Kleinschrift in Großschrift - Ähnliche Themen

Forum Datum
Excel-Feature gesucht Microsoft Office Suite 11. Okt. 2016
Excel Tabelle Werte zu ordnen Microsoft Office Suite 23. Sep. 2016
Excel: Bereiche auf 'leer' Überprüfen Microsoft Office Suite 15. Sep. 2016
Import Datensatz inkl = und - Zeichen in Excel/Libre CALC Software: Empfehlungen, Gesuche & Problemlösungen 20. Mai 2016
Bestimmter User kann seine Excel Dateien nicht mehr direkt öffnen Software: Empfehlungen, Gesuche & Problemlösungen 16. Apr. 2016