Supportnet / Forum / Tabellenkalkulation
wenn; dann - Makro ausführen
Frage
Hallo zusammen,
ich würde Euch gerne zu folgendem Problem um eine Lösung bitten.
Ich möchte 1. gerne ein Makro erstellen, welches den Text der jeweilige Zeile für die Spalten A:L als durchgestrichen markiert und 2. dieses Makro ausführen, wenn in der Spalte O der Werte in der Zelle = "o" ist.
Beispiel: Zelle O3 ist = "o" dann bitte die 3 Zeile von A:L als durchgestrichen markieren.
Ich bedanke mich vielmals vorab für Eure Unterstützung.
Gruß, meikel
Antwort 1 von coros
Hallo Meikel,
füge nachfolgenden Code in das VBA-Projekt des Tabellenblattes, in dem der Code wirksam werden soll ein.
Ich hoffe, Du hast das so gemeint. Bei Fragen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
füge nachfolgenden Code in das VBA-Projekt des Tabellenblattes, in dem der Code wirksam werden soll ein.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 15) = "o" And Target.Column = 15 Then
With Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Font
.Strikethrough = True
End With
Else
With Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Font
.Strikethrough = False
End With
End If
End SubIch hoffe, Du hast das so gemeint. Bei Fragen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Meikel
Hi Oliver,
vielen herzlichen Dank für die Hilfe, funktioniert prima!!
Einen schönen Tag,
Gruß meikel
vielen herzlichen Dank für die Hilfe, funktioniert prima!!
Einen schönen Tag,
Gruß meikel