Mein Code funktioniert noch nicht. Vielleicht kann mir ja jemand helfen.
Der Code soll eine Spalte der Tabelle entlang gehen. Wenn er in einer Zelle bestimmte Wörter findet, sollen diese dann komplett groß geschrieben werden.
Im Endeffekt werden es eine ganze Reihe an Wörtern, die eventuell groß geschrieben werden.(Ich weiß nicht ob sie in der Zelle stehen, oder an welcher Stelle) Daher geht es leider nicht direkt in Excel mit dem "WECHSELN"-Befehl. (Es werden ja nur bestimmte Anzahl an Verschachtelungen erlaubt, wenn ich mich nicht irre)
Mein bisheriger Code sieht wie folgt aus:
Option Explicit
Sub gross()
Dim Var As String
' t = Zeile
Dim t As Integer
' y = Zelle
Dim y As Integer
' z = Anzahl der gesamten Zeilen der Tabelle
Dim z As Integer
y = 5
'Anzahl der gesamten Zeilen der Tabelle
z = ThisWorkbook.Worksheets(1).UsedRange.Rows.Count
Do While t
Fehlermeldung lautet : Laufzeitfehler '1004': Anwendungs- oder objektdefinierter FehlerLG, Lona