Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellenformatierung

Zellenformatierung
23.06.2005 16:22:51
Lorenz
Hallo, schönen guten Tag!
Ich möchte nach mehrstündigen Fehlversuchen mit Doppelklick ein X(Kreuz aus der Palette - Rahmen)in einer Zelle setzen, wenn vorhanden dann bei Doppelklick entfernen.
Untenstehend einer der vielen nicht Funktionerenden Fehlversuche!
Bitte um Unterstützung(vielleicht sogar neuen Code)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Intersect(Target, Range("B25:C26")) Is Nothing Then Exit Sub
With Selection.Borders(xlDiagonalUp) And Selection.Borders(xlDiagonalDown)
If .LineStyle = xlAutomatic Then
.LineStyle = xlNone
Else
.LineStyle = xlAutomatic
End If
End With
End Sub

Grüsse Lorenz

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenformatierung
23.06.2005 16:32:01
Galenzo
With geht nur mit EINEM!
with target
With .Borders(xlDiagonalUp)
If .LineStyle = xlAutomatic Then
.LineStyle = xlNone
Else
.LineStyle = xlAutomatic
End If
end with
With .Borders(xlDiagonalDown)
If .LineStyle = xlAutomatic Then
.LineStyle = xlNone
Else
.LineStyle = xlAutomatic
End If
end with
end with
(Freihand geschrieben - ich hoffe, das klappt..)
Viel Erfolg!
AW: Zellenformatierung
23.06.2005 16:50:53
Lorenz
Hallo Galenzo!
Funzt nicht! Bleibt bei
Else
.LineStyle = xlAutomatic
stehen.
Trotzdem Dankeschön fürn Tipp.
Grüsse Lorenz

Anzeige
AW: Zellenformatierung
23.06.2005 16:33:13
Matthias
Hallo Lorenz,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("B25:C26")) Is Nothing Then
Cancel = True
If Selection.Borders(xlDiagonalUp).LineStyle = xlNone Then
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Else
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlNone
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlNone
End With
End If
End If
End Sub

Gruß Matthias
Anzeige
Zellenformatierung gelöst
23.06.2005 16:54:27
Lorenz
Hallo MMatthias!
Dankeschön vielmals!
habe
kopiert.....,
eingefügt.....,
ausprobiert.....,
Funktionert tadellos!
Grüsse Lorenz
AW: Zellenformatierung gelöst
23.06.2005 16:59:17
Matthias
Hallo Lorenz,
Danke für die Rückmeldung.
das nächste Mal kannst du ja auch mal den Makrorekorder bemühen ;-)
Das mit dem .LineStyle = xlAutomatic ist nämlich Schrott, das gibt's nicht.
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige