Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ermittelte Wert in Variablen speichern

Forumthread: Ermittelte Wert in Variablen speichern

Ermittelte Wert in Variablen speichern
15.08.2019 20:27:42
Burghard
Hallo,
das nachfolgende Makro ermittelt die waagrechten Seitenumbrüche. Ich möchte die ermittelten Werte aber nicht nur anzeigen lassen, sondern diese gerne in Variablen abspeichern, die ich nachher dann verwenden kann.
Sub Zeilenumbrüche()
For i = 1 To ActiveSheet.HPageBreaks.Count - 1
MsgBox "Zeilenumbruch in Zeile " & ActiveSheet.HPageBreaks(i).Location.Row
Next i
End Sub
Hilfe wäre nett.
Grüße
Burghard
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ermittelte Wert in Variablen speichern
15.08.2019 21:40:31
Regina
Hi,
könnte man in einem Array speichern, z.B. so: 
Sub Zeilenumbrüche()
Dim lng_umbruch_zeile() As Long
Dim i As Long
For i = 1 To ActiveSheet.HPageBreaks.Count
ReDim Preserve lng_umbruch_zeile(i)
lng_umbruch_zeile(i - 1) = ActiveSheet.HPageBreaks(i).Location.Row
'MsgBox "Zeilenumbruch in Zeile " & ActiveSheet.HPageBreaks(i).Location.Row
Next i
' Umbrüche ausgeben
For i = 0 To UBound(lng_umbruch_zeile) - 1
MsgBox lng_umbruch_zeile(i)
Next
End Sub
Gruß
Regina
Anzeige
AW: Ermittelte Wert in Variablen speichern
16.08.2019 14:26:21
Burghard
Hallo Regina,
vielen Dank für Deine Lösung. Leider funktioniert sie in meiner alten Excel-Version (Excel 2000)nicht (Fehlermeldung). Die MsgBox brauche ich eigentlich nicht. Die einzelnen Seitenumbrüche sollen beim Durchlauf in einer Variablen dauerhaft landen.
Ich hatte mir die Lösung in etwa so vorgestellt:
Sub Zeilenumbrüche()
DIM umbruch1 As long
DIM umbruch2 As long
DIM umbruch3 As long
DIM umbruch4 As long
DIM umbruch5 As long
DIM umbruch6 As long
DIM umbruch7 As long
For i = 1 To ActiveSheet.HPageBreaks.Count - 1
MsgBox "Zeilenumbruch in Zeile " & ActiveSheet.HPageBreaks(i).Location.Row
Next i
umbruch1 =  hier Zahl (Zeile) für ersten ermittelten Seitenumbruch
umbruch2 =  hier Zahl (Zeile) für zweiten ermittelten Seitenumbruch
umbruch3 =  hier Zahl (Zeile) für dritten ermittelten Seitenumbruch
umbruch4 =  hier Zahl (Zeile) für vierten ermittelten Seitenumbruch
umbruch5 =  hier Zahl (Zeile) für fünften ermittelten Seitenumbruch
umbruch6 =  hier Zahl (Zeile) für sechsten ermittelten Seitenumbruch
umbruch7 =  hier Zahl (Zeile) für siebenten ermittelten Seitenumbruch
End Sub
Wahrscheinlich habe ich mich nicht richtig ausgedrückt.
Grüße
Burghard
Anzeige
AW: Ermittelte Wert in Variablen speichern
16.08.2019 19:53:42
Regina
Hi,
die untere Schleife sollte nur verdeutlichen, wie Du die Zeilen mit den Seitenumbrüchen wieder auslesen kannst. Die Zeilennummern werden in dem Array lng_umbruch_zeile gespeichert. Von dort kannst Du sie mit:
lng_umbruch_zeile(0)
lng_umbruch_zeile(1)
usw. auslesen
Da Du ja nie wissen kannst, wie viele Umbrüche Du hast, macht es auch keinen Sinn dafür x Variablen anzulegen. daher die Lösung mit dem Array, dies ist eine "mehrwertige" Variable, die sich an der Anzahl der zeilenumbrüche orientiert.
Gruß
Regina
Anzeige
AW: Ermittelte Wert in Variablen speichern
17.08.2019 15:40:33
Burghard
Hallo Regina,
vielen Dank für Deinen Hinweis. Er hat mir auf die Sprünge geholfen. :-)
Grüße
Burghard
AW: Ermittelte Wert in Variablen speichern
15.08.2019 22:00:45
Werner
Hallo Burghard,
da ich jetzt auch schon was geschrieben habe (gleicher Weg wie Regina, aber ohne das Redim Preserve) auch noch meine Version. 
Sub Zeilenumbrüche()
Dim Umbruch() As Long, i As Long
ReDim Umbruch(ActiveSheet.HPageBreaks.Count - 2)
For i = 1 To ActiveSheet.HPageBreaks.Count - 1
Umbruch(i - 1) = ActiveSheet.HPageBreaks(i).Location.Row
MsgBox "Zeilenumbruch in Zeile " & ActiveSheet.HPageBreaks(i).Location.Row
Next i
For i = LBound(Umbruch) To UBound(Umbruch)
MsgBox Umbruch(i)
Next i
End Sub
Gruß Werner
Anzeige
AW: Ermittelte Wert in Variablen speichern
16.08.2019 14:27:38
Burghard
Hallo Werner,
vielen Dank für Deine Lösung. Leider funktioniert sie in meiner alten Excel-Version (Excel 2000)nicht (Fehlermeldung). Die MsgBox brauche ich eigentlich nicht. Die einzelnen Seitenumbrüche sollen beim Durchlauf in einer Variablen dauerhaft landen.
Ich hatte mir die Lösung in etwa so vorgestellt:
Sub Zeilenumbrüche()
DIM umbruch1 As long
DIM umbruch2 As long
DIM umbruch3 As long
DIM umbruch4 As long
DIM umbruch5 As long
DIM umbruch6 As long
DIM umbruch7 As long
For i = 1 To ActiveSheet.HPageBreaks.Count - 1
MsgBox "Zeilenumbruch in Zeile " & ActiveSheet.HPageBreaks(i).Location.Row
Next i
umbruch1 =  hier Zahl (Zeile) für ersten ermittelten Seitenumbruch
umbruch2 =  hier Zahl (Zeile) für zweiten ermittelten Seitenumbruch
umbruch3 =  hier Zahl (Zeile) für dritten ermittelten Seitenumbruch
umbruch4 =  hier Zahl (Zeile) für vierten ermittelten Seitenumbruch
umbruch5 =  hier Zahl (Zeile) für fünften ermittelten Seitenumbruch
umbruch6 =  hier Zahl (Zeile) für sechsten ermittelten Seitenumbruch
umbruch7 =  hier Zahl (Zeile) für siebenten ermittelten Seitenumbruch
End Sub
Wahrscheinlich habe ich mich nicht richtig ausgedrückt.
Grüße
Burghard
Anzeige
;

Forumthreads zu verwandten Themen

summe in variable
lotharP

Hallo,
ich versuche gerade eine Summe direkt in eine Variable zu lesen ohne dabei die Summenformel auf eine Zelle anzuwenden:
DIF = summe("l2:l6553")
Das geht so nicht.
Allerdings müsste es doch ähnlich gehen, oder?!
In der Hilfe bekomme ich nichts heraus,(SUM hatte ich vers...
10.02.2009 14:02:06
Thread-ID: 1049073
6 Beiträge
Die Liste einer ComboBox in Variable speichern?
toni6@gmx.at

Ich habe folgendes Problem, welches ich nicht ganz nachfolziehen kann.
Habe ein Makro, welches mir aus eine Exceldatei bei erfüllen eines Wertes eine bestimmte Zeile löschen soll (Soweit Sogut)
Nur das Problem, sobald das Makro bei
Selection.Delete Shift:=xl
angekommen ist, hüf...
05.03.2009 18:30:44
Thread-ID: 1056982
3 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
Druckbereich in variablen Bereich finden
Dieterlem

Hallo Excelfreunde,
in einem Sheet habe ich einen Bereich (C10:AK211) in dem ein Organigramm dargestellt wird. Da das Organigramm unterschiedliche Größen haben kann variert der Druckbereich.
Ich möchte nun die letzte genutzte Spalte und Zeile finden um damit ein Druckbereich zu definie...
13.05.2009 10:11:56
Thread-ID: 1074733
8 Beiträge
UF->TextBox -> Eingabewerte in Variablen speichern
Best4you

Hallo,
in einem UserForm gebe ich ein Angangsdatum und ein Enddatum in zwei verschiedene Textfelder ein.
Nun möchte ich, die Nettoarbeitstage ausrechnen und im selbigen UF anzeigen lassen.
Ich weiß nur nicht, wie ich die eingegebenen Werte der TextBoxen in Variablen speichere, dami...
17.05.2009 16:35:25
Thread-ID: 1075704
6 Beiträge
leere Zeile in variabler Range suchen
meixner

Hallo zusammen,
wenn eine leere Zelle in einem variablen Bereich gefunden wird, dann nehme den Wert aus der vorherigen Zelle und schreibe diesen Wert in die leere Zelle.
Mit unterem Makro komme ich nicht weiter, da der Bereich fix angegeben ist, während der Bereich eigentlich variabel i...
23.11.2009 20:38:33
Thread-ID: 1119561
3 Beiträge
Formel als Text in Variable schreiben
Frank

Hallo zusammen,
in Zelle A1 habe ich eine einfache Formelverknüpfung in eine andere Datei. Sie sieht so aus:
='\\dfs\es-groups\cor\uhh\blabla\01_Forecast\2009\12_09\[datei.xls]2009'!A1
besteht die Möglichkeit die gesamte Formel (nicht das Ergebnis der Formel) in eine Textvariable zu...
27.11.2009 14:51:54
Thread-ID: 1120544
11 Beiträge
Dateipfad in Variable
chrissey

Hallo Leute,
seid gegrüßt.
Folgende Frage:
Öffne in VBA über Application.Dialogs(xlDialogOpen).Show eine .xls Datei,
jetzt hätte ich gerne den Pfad der dadurch geöffneten Datei in einer Variablen
sagen wir DatPfad.
Ist das möglich?
Bitte um Hilfe.
Danke Euch scho...
08.12.2009 13:22:55
Thread-ID: 1122382
6 Beiträge
Markierter Texteil in Variable einlesen?
Michael

Hallo Zusammen.
Ist es möglich einen Textteil der innerhalb eines Textfeldes vom Anwender markiert wurde in eine Variable einzulesen ?
Hintergrund: in einem Textfeld einer Userform befinden sich manchmal eine, manchmal zwei, bzw. drei Email-Adressen durch Zeilenumbruch getrennt.
Der An...
11.04.2002 15:24:28
Thread-ID: 112498
5 Beiträge
Zellbereich.value A1 bis A30 in Variable
chrissey

Hallo Leut,
ist es sehr schwer eine Variable zu definieren die z.B. alle Werte der Zellen A1 bis A30
enthält.
Hintergrund ist der ich habe im Bereich A1 bis A30 Kundennummern hinterlegt und
hätte jetz gerne eine if schleife die diese prüft
Dim Bereich as ?
if worksheets(...
10.03.2010 14:48:39
Thread-ID: 1144874
4 Beiträge
Zwischenablage in Variable schreiben
marspoki

Hallo,
ich habe noch eine kleine Frage.
Ich möchte gerne einen Wert aus der Zwischenablage in eine Variable schreiben.
Wie kann ich das denn machen?
Vielen Dank schonmal
Beste Grüße
Sebastian
25.03.2010 18:17:45
Thread-ID: 1148552
2 Beiträge
Excel zellformat in Variable speichern
kiron

Hallo!
Ich habe ein kleines Makro geschrieben das folgendermassen funktioniert.
Ich klicke auf eine Schaltfläche in einer selbserstellten Symbolleiste
und die Aktive Zelle wird vergrössert dargestellt. Das heisst Schriftgrösse 20
Schriftart fett, Schriftfarbe Rot.
Jetzt kann...
21.05.2010 12:28:04
Thread-ID: 1158247
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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