Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile auf Knopfdruck durchstreichen

Zeile auf Knopfdruck durchstreichen
11.02.2004 09:17:12
Stefan K.
Hallo Excel-Freunde,
könnt Ihr mir bitte mit einer einfachen Lösung helfen.
Ich möchte in jeder Zeile ein Steuerelement haben, welches bei Aktivierung (Klick) den Inhalt der jeweiligen Zeile durchstreicht.
Vielen Dank im Voraus
Stefan K.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile auf Knopfdruck durchstreichen
11.02.2004 09:22:12
AndreasS
Morgen,
Sub Durchstreichen()
Selection.Font.Strikethrough = True
End Sub


Private Sub CommandButton1_Click()
Call Durchstreichen
End Sub

Gruß Andreas
AW: Zeile auf Knopfdruck durchstreichen
11.02.2004 11:35:07
Stefan K.
Hallo Andreas,
danke für die schnelle Antwort.
Nur leider bin ich in der VBA-Programmierung nicht so bewandert.
Kannst Du mir etwas genauer sagen, wo ich Deine Daten hinschreiben muss.
Und welches Symbol muß ich einfügen bzw. worauf klicken.
Herzlichen Dank und Gruß
Stefan
AW: Zeile auf Knopfdruck durchstreichen
11.02.2004 13:29:16
AndreasS
Hallo,
Alt+F11 -> VBEditor.
Dann Einfügen -> Modul. Jetzt:
Sub Durchstreichen()
Selection.Font.Strikethrough = True
End Sub

reinkopieren.
Dann Einfügen -> Userform. Darauf zwei Buttons erstellen.
Doppelklick auf einen: Codefenster -> müßte jetzt so aussehen (ohne Call Durchstreichen):

Private Sub CommandButton1_Click()
Call Durchstreichen
End Sub

2. Button: Mit "Schließen" beschriften (nicht unbedingt nötig) dann Doppelklick auf Button:

Private Sub CommandButton2_Click()
Unload me 'Die Userform verschwindet
End Sub

Danach könntest du noch auf "DieseArbeitsmappe" einen Doppelklick machen und das reinkopieren:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Hide
End Sub



Private Sub Workbook_Open()
UserForm1.Show
End Sub

Das bedeutet, dass deine Userform beim Öffnen angezeigt wird und beim Schließen verschwindet.
Wenn du noch Fragen hast, melde dich nochmal.
Gruß Andreas
Anzeige
AW: Zeile auf Knopfdruck durchstreichen
11.02.2004 13:31:22
AndreasS
Hallo,
eine weitere Mgl.:
Symbolleisten->Anpassen->Neu->Button erstellen-> Rechtsklick -> Makro zuweisen ->
Das mußt du dann aber auch in ein Modul kopieren (Beschreibung s.o.):

Sub Durchstreichen()
Selection.Font.Strikethrough = True
End Sub

Gruß Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige