Makro für Formatierung ändern

[gitmichi]

Hallo,

kann mir jemand helfen.

Ich möchte ein Makro erstellen, dass in einem angeklickten Bereich oder auch einer Zelle alle Zellen in Inhalte löschen und ohne Füllung umwandelt.

Wenn ich dieses Makro aufzeichne, dann löscht dies immer nur die Zellen die bei der Aufzeichnung akriviert waren.

Ich möchte dem Makro einen Inhalt zufügen, dass es möglich macht jede gerade frei gewählte Zelle mit der Funktion zu ändern.

Gut wäre wenn dieses Makro für alle Tabellenblätter gilt, das könnte ich aber auch händisch machen..

Geht das

Hier der Code des Makros, D13 müsste sicher durch etwas ersetzt werden

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("D13").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents
End Sub

Danke und Gruß Gitmichi

[Fennek]

Hallo,

versuche es mit

Code:

with activecell

mfg

[gitmichi]

Hi und Danke, erst beim Test hat es funktioniert und jetzt beim 2. Test komme Laufzeitfehler 4 Methode Range für das objekt ist fehlgeschlagen.

Warum ist das so??

ich probier es noch mal

---

Hi

hier mal der Code, der immer nur eine Zelle löscht egal wo man anklickt. Es soll aber so sein das man eine oder auch mehrere Zellen markiert und diese dann formatiert werden sollen.



Sub Makro8()
'
' Makro8 Makro
'

'
    ActiveCell.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Select
    Selection.ClearContents
End Sub

[Crazy Tom]

moin,

was meinst du was passiert wenn man die aktive Zelle selektiert?

versuch es mal so

Code:

Sub Makro8()
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents
End Sub

mfg Tom

[Gast 123]

Hallo

die Lösung liegt in deinem eigenen Code, du siehst sie nur nicht!  Ich helfe dir auf die Sprünge.
Was bitte ist der Unterschied zwischen -ActiveCell- und Selection??  Selection können mehrere Zellen sein.
Wenn du VORHER aber von -Selection- auf ActiveCell.Select umschaltest, was muss Excel befolgen???

VBA Wissen:  Computer können -NICHT denken-, sie befolgen sturheil -deine Befehle-, ohne zu fragen was du damit erreichen willst!  Das schöne an VBA ist, das es völlig logisch aufgebaut ist.  Man beachte immer die Reihenfolge!

mfg Gast 123

Code:

    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents

[gitmichi]

Hallo,

ich hätte gern noch eine kleine Erweiterung für den Code.

Es funtioniert ja jetzt wunderbar, man klickt ingendwo hin und das format wird verändert.

Jetzt möchte ich gern noch einen anderen Code.

Wenn ich in eine beliebige Zelle klicke, dann soll der Text der drin steht bearbeitet werden, indem die ersten 10 Buchstaben fett gemacht werden und die Zelle rot eingefärbt wird, wenn man das Makro ausführt

Ich hab das Makro aufgezeichnet nur steht dann immer wieder der Text in der Zelle, den ich beim Makro als Beispiel verwedent habe?! Ich will nur den Text bearbeiten, egal was auch immer drin steht.

geht das zu machen?

Lieben Gruß
gitmichi

[Crazy Tom]

moin,

wie kommt der Text in die Zelle?
wird der Text geschrieben oder erscheint der Text durch eine Formel?

mfg Tom

[gitmichi]

der text steht schon in der leeren  Zelle ohne Füllung...

[Crazy Tom]

das könnte dann so aussehen

Code:

    With ActiveCell.Characters(Start:=1, Length:=10).Font
        .FontStyle = "Fett"
    End With
    ActiveCell.Interior.Color = 255

mfg Tom

[gitmichi]

Perfekt, DAaanke

eine Frage noch, was müsste bei Color im code stehen wenn ich die Farbe der Zelle, wie bei Farben / Beutzerdefiniert selbst einstellen will?? Also nicht nur color 255 sondern auch Grün und Blau dazu mischen möchte???