Hi,
mit diesem Code-Fragment werden Daten in eine Vorlage eingetragen und unter einem Namen gespeichert.
Mit der F8 Taste sehe ich, wie die Zeilen mit Namen gelöscht werden-Variable i,
wenn das Makro durchläuft sind nur am Ende alle Zeilen leer und nicht zeilenweise...
woran liegt's ?
Gruß
robert
anzma = Cells(Rows.Count, 3).End(xlUp).Row ' letze Zeile in Spalte C
For i = 2 To anzma 'hier wird Datum, Namen und Nummern in eine Mustervorlage eingetragen
Call Namen
Call AundB
Sheets("Tabelle1").Range("C" & i & ":D" & i).Clear 'bereits abgearbeite Zeile löschen
Next i

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zellen löschen erst am Ende?

Gerd
AW: Zellen löschen erst am Ende?

robert
ist denn ScreenUpdating auch True ...

Matthias
..nicht codiert..

robert
Ja! das hatte ich auch schon ...

Matthias
leider nein.....

robert
Kommando zurück!!! Sorry...

robert
Ei ei ei ei, wußt ichs doch ;o) oT

Matthias
Ei ei ei ei, Ostern ist vorbei ;-))) oT

robert
Nö: Bei mir ist das ganze Jahr über EXCELei ;-)_oT

NoNet
Ja aber tut sich da was? owT

robert
Ja, aber nur an Weihnachten und Ostern ;-)) _oT

NoNet
na dann dauerts nicht mehr lang....oT

robert

AW: Zellen löschen erst am Ende?

13.12.2011 19:37:31

Gerd

Hi Robert,
woher sollen wir wissen, was bei dir der Unterschied zwischen Activesheet oder Me u. Sheets("Tabelle1") ist u. was die beiden gecallten Prozeduren ausführen?
Gruß Gerd

AW: Zellen löschen erst am Ende?

13.12.2011 19:52:55

robert

Hi Gerd,
das ganze funktioniert tadellos, die Calls meine ich, sind Nebensache.
In Spalte C ab Zeile 2 stehen Namen, in Spalte D ab Zeile 2 stehen Zahlen
Als optische Untermalung möchte ich dem User anzeigen, wie weit das Makro ist.
Nach Call AundB soll der Bereich C & i, D & i gelöscht werden,
denn dann wird der nächste Name abgearbeitet-Next i-
Meine Frage-warum sehe ich nicht die Löschung der einzelnen Zeilen ?
Am Ende des Makros ist der Bereich Spalte C und D leer.
Gruß
robert

ist denn ScreenUpdating auch True ...

13.12.2011 20:05:50

Matthias

Hi robert
... oder wird's erst am Ende wieder auf True gestellt ?
Gruß Matthias

..nicht codiert..

13.12.2011 20:11:56

robert

Hi,
kommt im Makro gar nicht vor ;-)
weder False noch True
Wie gesagt, mit F8 Taste sehe ich die Löschung(pro Zeile), bei Makrodurchlauf
sind alle Zellen gelöscht.
Ist das vielleicht eine Geschwindigkeitsfrage, dass man die Einzelschritte nicht sieht?
Gruß
robert

Ja! das hatte ich auch schon ...

13.12.2011 20:16:27

Matthias

Hi robert
Mach doch mal vor dem Next ein
Application.Wait Now + TimeSerial(0, 0, 0.5)
Ist zwar kontraproduktiv, aber zum Testen würde ichs mal abchecken
Ob Repaint bei Tabellen auch fruchtet, habe ich noch nie probiert
Gruß Matthias

leider nein.....

13.12.2011 20:54:01

robert

Hi,
dieser einfache Code macht was er machen soll.....
Rufe ich aber aus einem Makro mit Call tt auf, dann kein Sekundentakt!!!
Alles auf einmal Clear.....
Gruß
robert

Sub tt()
Dim x%, Z%
Z = Cells(Rows.Count, 3).End(xlUp).Row
For x = 2 To Z
Cells(x, 3).Clear
Application.Wait (Now + TimeValue("00:00:01"))
Next x
End Sub

Kommando zurück!!! Sorry...

13.12.2011 21:03:06

robert

Hi,
mit der Suche im ganzen Projekt habe ich doch eine versteckte Zeile gefunden...
"Application.Screenupdating = False"
Somit funkt es , wie ich will ;-)
Sorry, mein Fehler
Danke und Gruß
robert

Ei ei ei ei, wußt ichs doch ;o) oT

13.12.2011 21:05:48

Matthias

Ei ei ei ei, Ostern ist vorbei ;-))) oT

13.12.2011 21:14:27

robert

Nö: Bei mir ist das ganze Jahr über EXCELei ;-)_oT

14.12.2011 15:28:59

NoNet

http://www.excelei.de

Ja aber tut sich da was? owT

14.12.2011 18:16:27

robert

Ja, aber nur an Weihnachten und Ostern ;-)) _oT

15.12.2011 12:07:48

NoNet

_oT

na dann dauerts nicht mehr lang....oT

15.12.2011 13:16:36

robert

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn in einer spalte ein bestimmtes wort steht dann

33892
excel zelle färben wenn andere zelle wert

23315
excel bis zu einem bestimmten zeichen auslesen

16436

Weitere Forumthreads anzeigen

excel hinzufügen von zeichen

15820

excel kann nicht scrollen

15740

excel mehrere formeln kopieren ohne bezug ändern

15220

excel text enthält zeichen

14059

excel wenn wert dann wert aus anderer zelle

12159

excel text ab bestimmten zeichen abschneiden

11872

excel zeichen entfernen links

11300

excel summe ist immer null

10470

excel zelle einfärben wenn andere zelle wert

10270

excel zählenwenn mit oder

9501

excel abschneiden von links

9408

excel prüfen ob zelle text enthält

9370

wenn null dann leer

9090

vba excel wert in zelle schreiben

8841

excel text vor leerzeichen ausgeben

8758

excel zählen wenn datum älter als

8297

excel inhalt aus anderer zelle übernehmen

8062

doppelte einträge nur einmal zählen excel

8043

excel text auslesen ab zeichen

7923

excel rechts bis leerzeichen

7867

excel größer und kleiner als

7813

vba letzte zeile finden

7718

datum und zeit zusammenführen excel

7426

excel ein und ausblenden button

7303

excel kreuz statt mauszeiger

7004

excel minuten in stunden umrechnen mehr als 24 stunden

7000

excel wenn x dann zeile ausblenden

6981

excel kw in monat umrechnen

6944

summewenn nicht wert

6501

excel bedingte formatierung datum älter als 6 monate

6415

mehrere spalten untereinander anordnen

6242

vba excel zelleninhalt löschen

6043

excel rechnen mit uhrzeiten wenn dann

5994

excel erstes wort aus zelle kopieren

5906

excel negative zahlen auf 0 setzen

5900

excel nur die letzten 4 zeichen anzeigen

5900

excel reiter wechseln shortcut

5852

excel nummerierung funktioniert nicht

5839

excel prüfen ob mehrere zellen leer sind

5813

excel wenn zahl in spalte vorhanden dann

5799

excel was bedeutet @ in formel

5742

excel datei gesperrt durch mich selbst

5704

excel letzte drei zeichen löschen

5638

excel wert aus zelle darüber übernehmen

5573

summe aus sverweis

5553

text in zelle suchen

5501

excel uhrzeit + 15 minuten

5451

zählenwenns nicht leer

5378

excel vba zelle mit bestimmten inhalt suchen

5299

summewenn mehrere spalten summieren

5275

excel emailadresse generieren

5088

excel formel führende nullen entfernen

5086

excel msgbox ja nein

5068

excel formel wenn sverweis nv dann 0

5059

excel farbe wenn andere zelle bestimmten wert hat

5038

excel vba hintergrundfarbe

4997

excel buchstaben entfernen formel

4978

excel wenn farbe dann x

4961

excel wert übertragen wenn bedingung erfüllt

4870

excel summewenn ungleich text

4811

excel vba enthält string

4760

excel makro passwort schützen

4739

datum plus monate excel

4733

excel formel anführungszeichen als text

4730

summewenns mit datum

4726

excel formel finden von rechts

4685

vba mehrere if bedingungen

4684

punktdiagramm excel mehrere datenreihen

4654

excel formel aktualisiert erst nach doppelklick

4631

excel zelle an bild anpassen

4559

excel punkt aus text entfernen

4552

excel die ersten 3 zeichen löschen

4518

vba umbruch

4486

excel vba in eine zahl umwandeln

4483

excel text übernehmen aus zelle

4479

vba prüfen ob tabellenblatt existiert und löschen

4455

excel spalte ermitteln

4425

excel zählen wenn text enthält

4387

summe und runden in einer zelle

4362

excel automatisches datum bei eintrag

4353

excel makro unterbrechen

4349

excel durchschnitt von prozentzahlen

4343

excel kalenderwoche in datum

4341

excel tabelle kopieren ohne verknüpfung

4329

vba formular schließen

4320

excel verketten datumsformat beibehalten

4315

excel uhrzeit ohne datum

4313

excel vba anderes tabellenblatt ansprechen

4275

sie haben zu wenig argumente für diese funktion eingegeben

4246

excel gliederung benennen

4236

zeilennummer ausgeben excel

4235

excel gruppieren grau hinterlegt

4232

excel dropdown leere zellen werden nicht ignoriert

4206

zeilenumbruch in vba code

4205

excel filter trotz blattschutz ohne makro

4092

excel drucklinien ausblenden

4044

excel aktuelles jahr automatisch einfügen

4007

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

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn in einer spalte ein bestimmtes wort steht dann

33892
excel zelle färben wenn andere zelle wert

23315
excel bis zu einem bestimmten zeichen auslesen

16436

Weitere Forumthreads anzeigen

excel hinzufügen von zeichen

15820

excel kann nicht scrollen

15740

excel mehrere formeln kopieren ohne bezug ändern

15220

excel text enthält zeichen

14059

excel wenn wert dann wert aus anderer zelle

12159

excel text ab bestimmten zeichen abschneiden

11872

excel zeichen entfernen links

11300

excel summe ist immer null

10470

excel zelle einfärben wenn andere zelle wert

10270

excel zählenwenn mit oder

9501

excel abschneiden von links

9408

excel prüfen ob zelle text enthält

9370

wenn null dann leer

9090

vba excel wert in zelle schreiben

8841

excel text vor leerzeichen ausgeben

8758

excel zählen wenn datum älter als

8297

excel inhalt aus anderer zelle übernehmen

8062

doppelte einträge nur einmal zählen excel

8043

excel text auslesen ab zeichen

7923

excel rechts bis leerzeichen

7867

excel größer und kleiner als

7813

vba letzte zeile finden

7718

datum und zeit zusammenführen excel

7426

excel ein und ausblenden button

7303

excel kreuz statt mauszeiger

7004

excel minuten in stunden umrechnen mehr als 24 stunden

7000

excel wenn x dann zeile ausblenden

6981

excel kw in monat umrechnen

6944

summewenn nicht wert

6501

excel bedingte formatierung datum älter als 6 monate

6415

mehrere spalten untereinander anordnen

6242

vba excel zelleninhalt löschen

6043

excel rechnen mit uhrzeiten wenn dann

5994

excel erstes wort aus zelle kopieren

5906

excel negative zahlen auf 0 setzen

5900

excel nur die letzten 4 zeichen anzeigen

5900

excel reiter wechseln shortcut

5852

excel nummerierung funktioniert nicht

5839

excel prüfen ob mehrere zellen leer sind

5813

excel wenn zahl in spalte vorhanden dann

5799

excel was bedeutet @ in formel

5742

excel datei gesperrt durch mich selbst

5704

excel letzte drei zeichen löschen

5638

excel wert aus zelle darüber übernehmen

5573

summe aus sverweis

5553

text in zelle suchen

5501

excel uhrzeit + 15 minuten

5451

zählenwenns nicht leer

5378

excel vba zelle mit bestimmten inhalt suchen

5299

summewenn mehrere spalten summieren

5275

excel emailadresse generieren

5088

excel formel führende nullen entfernen

5086

excel msgbox ja nein

5068

excel formel wenn sverweis nv dann 0

5059

excel farbe wenn andere zelle bestimmten wert hat

5038

excel vba hintergrundfarbe

4997

excel buchstaben entfernen formel

4978

excel wenn farbe dann x

4961

excel wert übertragen wenn bedingung erfüllt

4870

excel summewenn ungleich text

4811

excel vba enthält string

4760

excel makro passwort schützen

4739

datum plus monate excel

4733

excel formel anführungszeichen als text

4730

summewenns mit datum

4726

excel formel finden von rechts

4685

vba mehrere if bedingungen

4684

punktdiagramm excel mehrere datenreihen

4654

excel formel aktualisiert erst nach doppelklick

4631

excel zelle an bild anpassen

4559

excel punkt aus text entfernen

4552

excel die ersten 3 zeichen löschen

4518

vba umbruch

4486

excel vba in eine zahl umwandeln

4483

excel text übernehmen aus zelle

4479

vba prüfen ob tabellenblatt existiert und löschen

4455

excel spalte ermitteln

4425

excel zählen wenn text enthält

4387

summe und runden in einer zelle

4362

excel automatisches datum bei eintrag

4353

excel makro unterbrechen

4349

excel durchschnitt von prozentzahlen

4343

excel kalenderwoche in datum

4341

excel tabelle kopieren ohne verknüpfung

4329

vba formular schließen

4320

excel verketten datumsformat beibehalten

4315

excel uhrzeit ohne datum

4313

excel vba anderes tabellenblatt ansprechen

4275

sie haben zu wenig argumente für diese funktion eingegeben

4246

excel gliederung benennen

4236

zeilennummer ausgeben excel

4235

excel gruppieren grau hinterlegt

4232

excel dropdown leere zellen werden nicht ignoriert

4206

zeilenumbruch in vba code

4205

excel filter trotz blattschutz ohne makro

4092

excel drucklinien ausblenden

4044

excel aktuelles jahr automatisch einfügen

4007

Zellen löschen erst am Ende?

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread