Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilenumbruch auslesen

Zeilenumbruch auslesen
18.05.2005 09:26:00
Markus
Hallo,
gibt es eine Möglichkeit, per VBA auszulesen, ob oberhalb der aktiven Zelle ein Seitenumbruch existiert?
Danke für die Hilfe!
Gruß
Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch auslesen
18.05.2005 10:12:44
MichaV
Hallo,
ja, gibt es.


      
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pbH As HPageBreak
Dim pbV As VPageBreak
'Umbruch oberhalb der Zelle
For Each pbH In ActiveSheet.HPageBreaks
  
If pbH.Location.Row = Target.Row Then
    MsgBox "H- Seitenwechsel " & IIf(pbH.Extent = xlPageBreakFull, "Bildschirm", "Drucker")
  
End If
Next pbH
'Umbruch rechts neben der Zelle
For Each pbV In ActiveSheet.VPageBreaks
If pbV.Location.Column = Target.Column Then
    MsgBox "V- Seitenwechsel " & IIf(pbV.Extent = xlPageBreakFull, "Bildschirm", "Drucker")
  
End If
Next pbV
End Sub 
Gruss- Micha
Anzeige
AW: Zeilenumbruch auslesen
18.05.2005 10:25:54
MichaV
Hi,
Umbruch liegt natürlich links neben der Zelle...
Und es funzt nur, wenn dahinter (also drunter oder rechts daneben) noch ein Wert steht, der Umbruch also innerhalb des UsedRange liegt.
Gruss- Micha
PS: Rückmeldung wäre nett

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige