Office: Text in Zeile durchstreichen bei Wert

Cheppe · 20. Oktober 2010

Hallo,

habe folgendes Problem als Anfänger. Wenn in der Spalte F der Text "closed" steht, soll
der Text in der ganzen Zeile durchgestrichen werden. Habe leider nichts passendes gefunden.
Könnt Ihr mir da helfen, danke!

Gruß
Cheppe

:)

EarlFred · 21. Oktober 2010

Hallo Cheppe,

auch wenn Du angegeben hast, dass Du eine Lösung mit VBA suchst, würde ich doch eher eine Lösung über eine Bedingte Formatierung bevorzugen.

Markiere einfach alle Zellen einer Zeile (im Beispiel die Zeile 5) und wähle unter Format|Bedingte Formatierung... "Formel ist" und gib folgende ein:
=$F5="closed"

Als Format wählst Du unter "Schrift" die Option "durchgestrichen".

Diese Zeile dann kopieren und das Format über alle anderen Zeilen, für die dies gelten soll (kompletten Bereich markieren), mit Bearbeiten|Inhalte einfügen...|Formate übertragen.

[Ergänzung]
Wenn es unbedingt VBA sein muss:
Code gehört in das Klassenmodul der Tabelle:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Columns("F")) Is Nothing Then
For Each rng In Target
If Not Intersect(rng, Columns("F")) Is Nothing Then
If LCase(rng) = "closed" Then
rng.EntireRow.Font.Strikethrough = True
Else
rng.EntireRow.Font.Strikethrough = False
End If
End If
Next rng
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[/Ergänzung]

Grüße
EarlFred

symax · 21. Oktober 2010

Hier ein "möglicher" Quelltext.
Bei bedarf anpassen

(Streicht hier z.B. schräg durch)

In die Tabelle komplett einkopieren
dann eine Zeile wählen und "closed" einschreiben
durchsucht aber nicht, ob schon welche mit "closed" stehen, nur ob das eingeschrieben wird.

Code:

Option Explicit

Private Sub worksheet_change(ByVal F As Range)
'A line in "F" is changed
Dim officialname As String
officialname = ActiveSheet.name
Dim line As Double
line = ActiveCell.Row - 1 ' Hier anpassen. Wenn nach eingabe ENTER dann stimmts (rutscht dann eine Zeile tiefer)
ThisWorkbook.Sheets(officialname).Range("F" & line).Select
If ActiveCell.Value = "closed" Then
Rows(line & ":" & line).Select
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
ThisWorkbook.Sheets(officialname).Range("F" & line + 1).Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Cheppe · 21. Oktober 2010

Danke hat mit Bedingter Formatierung funktioniert. VBA probiere ich mal aus.

Office: Text in Zeile durchstreichen bei Wert

Text in Zeile durchstreichen bei Wert

Text in Zeile durchstreichen bei Wert

Text in Zeile durchstreichen bei Wert

Text in Zeile durchstreichen bei Wert - Similar Threads - Text Zeile durchstreichen

Per VBA Zeilen einfügen und danach in diese Texte kopieren

nach Absturz + Neustart in Excel Textzeilen verschwunden

Probleme mit Makro das jede Zeile in der ein "Text" steht löscht?!

Letzten Wert(Text!) einer Zeile ausgeben

Wert aus Zeile in Spalte suchen und bei Übereinstimmung Text aus andere Zeile anzeigen

Zeile bei Bedingung in anderen Reiter kopieren

Zeilen überspringen mit Textwiedergabe