Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Schleife Einträge doppelt

For Schleife Einträge doppelt
williams
Hallo!
Ich habe ein misteriöses Problem. Mein Code ist Folgender:
With Worksheets(SheetToPrint)
LastEntry = .HPageBreaks.Count
Dim aktuelleZeile As Long
For I = 1 To LastEntry
aktuelleZeile = .HPageBreaks(I).Location.Row - 1
.Rows(aktuelleZeile).Insert 'Shift:=xlDown
.Cells(aktuelleZeile, 1).Value = "Übertrag"
Next I
End With
Ich möchte in die Leere Zeile das Wort Übertrag schreiben. Funktioniert auch. Doch Übertrag wird zweimal eingefügt. Einmal in die leere Zeile und einmal um dem Index unter der leeren Zeile.
Ich weiß echt nicht weiter. Vielleicht kann mir jemand helfen?
Vielen Dank im Voraus
Tony
AW: For Schleife Einträge doppelt
26.08.2009 14:52:23
fcs
Hallo Tony,
arbeite in der For-Next-Schleife vom letzten zum 1. Seitenwechsel.
Durch das Einfügen von Zeilen kommt es möglicherweise zu Verschiebungen zwischen den zu Beginn der Makro-Ausführung gemerkten Seitenwechseln und der durch das Einfügen der Zeilen tatsächlichen Zeile des Seitenwechsels. 
With Worksheets(SheetToPrint)
LastEntry = .HPageBreaks.Count
Dim aktuelleZeile As Long
For I = LastEntry To 1 Step -1
aktuelleZeile = .HPageBreaks(I).Location.Row - 1
.Rows(aktuelleZeile).Insert 'Shift:=xlDown
.Cells(aktuelleZeile, 1).Value = "Übertrag"
Next I
End With

Gruß
Franz
Anzeige
AW: For Schleife Einträge doppelt
26.08.2009 15:01:08
williams
Vielen Dank schon mal. Es werden allerdings immer noch zwei Einträge "Übertrag" angezegit. Dieses Mal direkt hintereinander
LG
Tony
AW: For Schleife Einträge doppelt
26.08.2009 15:05:07
williams
das Problem ist, ja dass schon zu früh der Übertrag da rein geschreieben wird und damit eine bestehende zeile überscrieben wird egal ob von vorne oder hinten die schleife durchlaufen wird.
Er scheint diesen Code folgendermaßen auszuführen:
Schleife:
Fügt text ein (überschreibt damit bestehenden content)
Schleife ist zu ende
Zeilen werden eingefügt
Text wird eingetragen in leere Zeile (so soll es ja sein)
Fragen
Wieso wird die Zeile nicht sofort eingefügt und wieso wird der Text einmal sofort und dann noch mal eingefügt...
Vielen Dank schon mal
LG
Tony
Anzeige
AW: For Schleife Einträge doppelt
26.08.2009 16:44:52
fcs
Hallo Tony,
entweder wird durch das Einfügen der Leerzeilen ein weiterer Seitenwechsel (Automatischer) erzeugt, was dann irgendwie die Zählung der Seitenwechsel durcheinander bringt oder in deiner Datei ist noch ein Worksheet_Change-Ereignismakro aktiv, das irgendwelche Aktionen ausführt.
Im letzteren Fall solltest du in der Prozedur zu Beginn ein
Application.DisableEvents =True
und
am Ende
Application.DisableEvents =False
einfügen.
Gruß
Franz
@fcs: Lapsus
26.08.2009 16:51:21
Rudi
Hallo Franz,
es muss
Application.EnableEvents =False
und
Application.EnableEvents =True
heißen.
Gruß
Rudi
Anzeige
AW: For Schleife Einträge doppelt
26.08.2009 16:47:57
Harry
Hi,
übrigens werden die Umbrüche nur sicher und korrekt in der Seitenumbruchvorschau
gezählt, also im Code umschalten und am Schluss wieder zurück.
mfg Harry
AW: For Schleife Einträge doppelt
26.08.2009 16:53:28
Rudi
Hallo,
du solltest mal die Datei zur Verfügung stellen.
Gruß
Rudi
AW: For Schleife Einträge doppelt
26.08.2009 17:54:05
williams
Hallo zusammen!
Vielen Dank schon einmal für Eure Hilfe. Hier ist mal mein File:
https://www.herber.de/bbs/user/64074.xls
Es ist immer noch so wie beschrieben :(
AW: For Schleife Einträge doppelt
26.08.2009 17:56:24
williams
mit diesem Code kann man das testen.
Sub Workbook_BeforePrint(Cancel As Boolean)
Dim LastEntry As Long, I As Long, Merker As Long
Dim SheetToPrint As String
SheetToPrint = "Berechnung Druckversion"
Worksheets("Tabelle1").Activate
Sheets("Tabelle1").Copy After:=Sheets("Tabelle1")
ActiveSheet.Name = SheetToPrint
Worksheets(SheetToPrint).Activate
Application.CutCopyMode = False
Worksheets(SheetToPrint).PrintOut
ActiveWindow.View = xlPageBreakPreview
With Worksheets(SheetToPrint)
LastEntry = .HPageBreaks.Count
Dim aktuelleZeile As Long
For I = LastEntry To 1 Step -1
aktuelleZeile = .HPageBreaks(I).Location.Row
.Rows(aktuelleZeile - I).Insert
.Cells(aktuelleZeile - I, 1).Value = "Übertrag"
Next I
End With
End Sub

Anzeige
AW: For Schleife Einträge doppelt
26.08.2009 19:29:32
fcs
Hallo Tony,
das Problem war im wesentlichen das nicht korrekte setzen von EnableEvents und die Tatsache, dass in der Routine die Druckanweisung erneut ausgeführt wird. Dadurch kommt es in der Summe zu 2 Zeilen mit Eintrag Übertrag.
Außerdem muss der Parameter Cancel auf True gesetzt werden, damit nicht 2 mal gedruckt wird.
Gruß
Franz 
Sub Workbook_BeforePrint(Cancel As Boolean)
Dim LastEntry As Long, I As Long, Merker As Long
Dim SheetToPrint As String
Dim aktuelleZeile As Long
If ActiveSheet.Name = "Tabelle1" Then
'Druckversion erzeugen und drucken
Application.EnableEvents = False
SheetToPrint = "Berechnung Druckversion"
Worksheets("Tabelle1").Copy After:=Sheets("Tabelle1")
ActiveSheet.Name = SheetToPrint
Application.CutCopyMode = False
'Worksheets(SheetToPrint).PrintOut   'wozu diese Zeile hier?
'Merker = ActiveWindow.View
ActiveWindow.View = xlPageBreakPreview 'nicht unbedingt erforderlich
With Worksheets(SheetToPrint)
LastEntry = .HPageBreaks.Count
Application.ScreenUpdating = False
For I = LastEntry To 1 Step -1
aktuelleZeile = .HPageBreaks(I).Location.Row
.Rows(aktuelleZeile - I).Insert
.Cells(aktuelleZeile - I, 1).Value = "Übertrag"
Next I
Application.ScreenUpdating = True
'      .PrintPreview 'Druckversion drucken mit Vorschau  'Testzeile
.PrintOut 'Druckversion drucken
End With
'ActiveWindow.View = Merker
Application.EnableEvents = True
Cancel = True 'Aktive Tabelle nicht drucken
End If
End Sub

Anzeige
AW: For Schleife Einträge doppelt
26.08.2009 21:29:39
williams
Hallo Franz!
Vielen Dank für Deine Mühe! Das hat mir sehr viel weitergeholfen. War schon etwas weitergekommen, aber Deine Version hat es noch mal wesentlich verbessert. Vielen Dank noch mal und einen schönen Abend noch!
Tony

305 Forumthreads zu ähnlichen Themen

Aus Schleife wenn Zelle einen Rahmen hat???
TOM

Guten Morgen zusammen
Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
...
27.08.2008 11:12:00
Thread-ID: 1005013
3 Beiträge
Anzeige
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Variable in Forschleife
Jens

Hallo Ihr,
ich habe folgendes Problem:
Ich habe 9 Variablen definiert und diese sind mit Werten belegt. Jetzt möchte ich diese innerhalb einer Schleife einzelnen Zellen zuweisen. Geht das?
Beispiel für 3 Variablen:
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Inte...
08.10.2008 13:49:00
Thread-ID: 1015052
5 Beiträge
Anzeige
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 Beiträge
Mittelwerte bilden in Schleifen
WMüller

Hallo zusammen,
ich habe das Archiv durchgesehen, konnte jedoch leider keine passende Lösung für mein Problem finden. Da ich ein Anfänger im Umgang mit VBA bin, würde ich mich über ein Feedback sehr freuen. Ich denke, dass Problem ist eigentlich nicht zu schwierig, ich habe "lediglich" Prob...
14.01.2009 15:01:21
Thread-ID: 1039672
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
6
4
2
7
8
4
3
5
11
8
2
8
2
4
3
8
4
2
4
2
7
2
8