Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenumbruch wenn wert=1

Zeilenumbruch wenn wert=1
18.02.2004 20:10:37
Yogi
Hallo,
in der Spalte A möchte ich bei dem Wert/Zahl 1 einen automatischen Zeilenumbruch generieren (in dieser Spalte sind sonst keine witeren Werte/Zahlen eingetragen).
D.H. 1=Zeilenumbruch.
Wie stelle ich es an (Formel, Marcro), daß Excel hier mir den Zeilenumbruch setzt?
Bin blond und würde mich über Hilfe freuen.
Gruß / Joerg

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch wenn wert=1
18.02.2004 20:58:00
yogi
meinte mit Zeilenumbruch natürlich Seitenumbruch....Trottel ich.
AW: Zeilenumbruch wenn wert=1
18.02.2004 21:38:19
y
hi blonder Joerg, ;-)
probier mal
die 1en stehen in tabelle1 in spalte A

Sub seitenumbruch()
With Worksheets(1)
Set c = .Range("a1:a500").Find(1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
.HPageBreaks.Add Before:=c
Set c = .Range("a1:a500").FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

cu Micha
AW: Zeilenumbruch wenn wert=1
18.02.2004 22:38:46
Yogi
Bombastisch Micha,
habe nur noch ("a1:a500") auf 9999 angepaßt (Datei ist halt recht lang) und
es läuft wie sonstwas!!!
Tausend Dank!
Gruß / Joerg
Anzeige
danke für die rückantwort :-) o.t.
19.02.2004 07:22:46
y
...

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige