Excel: Jede 4. Zeile kopieren (bzw. alles bis auf jede 4. Zeile löschen)

hello2k3

Big d00d

Registered: May 2003
Location: austria
Posts: 188

01.06.2010 - 23:42

für meine diplomarbeit habe ich hier eine addressliste mit 14550 einträgen, die von A (Name Besitzer) bis H (Telefonnummer) reicht, und der fragebogen den ich erstellt habe soll nun an jede 4. person geschickt werden.

sprich ich suche nach einer möglichkeit, wie ich excel mitteile, dass jede 4. zeile markiert wird, damit ich dann nur noch auf strg+v klicken muss. noch besser wärs natürlich wenn excel gleich alles bis auf jede 4. zeile löscht...

hat da jemand hilfsvorschläge?

bin grade am verzweifeln, google will mir heute nicht so recht helfen...

sts

Registered: Feb 2008
Location: Lima
Posts: 197

01.06.2010 - 23:47

Zitat von hello2k3
sprich ich suche nach einer möglichkeit, wie ich excel mitteile, dass jede 4. zeile markiert wird, damit ich dann nur noch auf strg+v klicken muss. noch besser wärs natürlich wenn excel gleich alles bis auf jede 4. zeile löscht...

schau dir mal http://support.microsoft.com/kb/213610 an, schreit ja förmlich nach nem makro

und es sollte für dich kein problem sein den code anhand deiner bedürfnisse abzuändern

hth

prayerslayer

Oar. Mh.

Registered: Sep 2004
Location: vorm Sucher
Posts: 4073

01.06.2010 - 23:50

wenn ein zufälliges viertel der einträge auch reicht, shuffle die liste und markier das erste viertel.

COLOSSUS

Administrator
GNUltra

Registered: Dec 2000
Location: ~
Posts: 12069

01.06.2010 - 23:51

Export als CSV, dann:

Code:

awk '{if((NR % 4)==0){print}}' deincsvexportfile.txt > jedeVierteZeile.txt

awk kriegst du (auf Windows) via cygwin oder aus den unxutils.

Bearbeitet von that am 01.06.2010, 23:59 (missing quote added )

hello2k3

Big d00d

Registered: May 2003
Location: austria
Posts: 188

02.06.2010 - 00:16

danke für eure hilfe!

hm unxutils sagt mir befehl awk not found und wenn ich als csv abspeichere hat das die endung csv und nicht txt

@tassdingo ich habe mal den microsoft link angeklickt und das was dort drinsteht rüberkopiert, nur er sagt dann "fehler beim kopieren, function oder variable erwartet"...

that

Moderator
Hoffnungsloser Optimist

Registered: Mar 2000
Location: MeidLing
Posts: 11338

02.06.2010 - 00:35

Zitat von hello2k3
hm unxutils sagt mir befehl awk not found

In diesem Fall geht gawk statt awk.

Zitat von hello2k3
und wenn ich als csv abspeichere hat das die endung csv und nicht txt

Dann nimm halt den Filenamen wie du ihn abgespeichert hast.

Wenns dann noch immer nicht geht (da bin ich mir bei Windows nicht ganz sicher), probier " statt '.

Polyfire

Addicted

Registered: Feb 2007
Location: .
Posts: 415

02.06.2010 - 11:57

Andere Lösungsmöglichkeit wär 2 neue Spalten hinzufügen. Die erste Autonumieriert von 1..n, die zweite davon der Modulo 4. (D.h. die Formel REST(Zelle, 4) im deutschem Exel). Dann nach der Modulo-Spalte sortieren.

quilty

Ich schau nur

Registered: Jul 2005
Location: 4202
Posts: 3016

02.06.2010 - 12:49

Code:

Sub Select4Row()

   Dim myRange As Range, i As Integer
   
   Set myRange = Rows(2)
   
   For i = myRange.Row To Cells(Rows.Count, "A").End(xlUp).Row Step 4
     Set myRange = Union(myRange, Rows(i))
   Next i

   myRange.Select

End Sub

Startzeile kannst in Zeile 5 ändern und wenn du nicht jede vierte willst kannst du das am Ende von Zeile 7 ändern.

Funktioniert sicher und selektiert dir jede vierte Zeile, k.A. wie performant mit 10k+ Zeilen.

Bearbeitet von quilty am 02.06.2010, 12:51

hello2k3 Big d00d Registered: May 2003 Location: austria Posts: 188	01.06.2010 - 23:42 für meine diplomarbeit habe ich hier eine addressliste mit 14550 einträgen, die von A (Name Besitzer) bis H (Telefonnummer) reicht, und der fragebogen den ich erstellt habe soll nun an jede 4. person geschickt werden. sprich ich suche nach einer möglichkeit, wie ich excel mitteile, dass jede 4. zeile markiert wird, damit ich dann nur noch auf strg+v klicken muss. noch besser wärs natürlich wenn excel gleich alles bis auf jede 4. zeile löscht... hat da jemand hilfsvorschläge? bin grade am verzweifeln, google will mir heute nicht so recht helfen...
sts Registered: Feb 2008 Location: Lima Posts: 197	01.06.2010 - 23:47 Zitat von hello2k3 sprich ich suche nach einer möglichkeit, wie ich excel mitteile, dass jede 4. zeile markiert wird, damit ich dann nur noch auf strg+v klicken muss. noch besser wärs natürlich wenn excel gleich alles bis auf jede 4. zeile löscht... schau dir mal http://support.microsoft.com/kb/213610 an, schreit ja förmlich nach nem makro und es sollte für dich kein problem sein den code anhand deiner bedürfnisse abzuändern hth
prayerslayer Oar. Mh. Registered: Sep 2004 Location: vorm Sucher Posts: 4073	01.06.2010 - 23:50 wenn ein zufälliges viertel der einträge auch reicht, shuffle die liste und markier das erste viertel.
COLOSSUS Administrator GNUltra Registered: Dec 2000 Location: ~ Posts: 12069	01.06.2010 - 23:51 Export als CSV, dann: Code: `awk '{if((NR % 4)==0){print}}' deincsvexportfile.txt > jedeVierteZeile.txt` awk kriegst du (auf Windows) via cygwin oder aus den unxutils. Bearbeitet von that am 01.06.2010, 23:59 (missing quote added )
hello2k3 Big d00d Registered: May 2003 Location: austria Posts: 188	02.06.2010 - 00:16 danke für eure hilfe! hm unxutils sagt mir befehl awk not found und wenn ich als csv abspeichere hat das die endung csv und nicht txt @tassdingo ich habe mal den microsoft link angeklickt und das was dort drinsteht rüberkopiert, nur er sagt dann "fehler beim kopieren, function oder variable erwartet"...
that Moderator Hoffnungsloser Optimist Registered: Mar 2000 Location: MeidLing Posts: 11338	02.06.2010 - 00:35 Zitat von hello2k3 hm unxutils sagt mir befehl awk not found In diesem Fall geht gawk statt awk. Zitat von hello2k3 und wenn ich als csv abspeichere hat das die endung csv und nicht txt Dann nimm halt den Filenamen wie du ihn abgespeichert hast. Wenns dann noch immer nicht geht (da bin ich mir bei Windows nicht ganz sicher), probier " statt '.
Polyfire Addicted Registered: Feb 2007 Location: . Posts: 415	02.06.2010 - 11:57 Andere Lösungsmöglichkeit wär 2 neue Spalten hinzufügen. Die erste Autonumieriert von 1..n, die zweite davon der Modulo 4. (D.h. die Formel REST(Zelle, 4) im deutschem Exel). Dann nach der Modulo-Spalte sortieren.
quilty Ich schau nur Registered: Jul 2005 Location: 4202 Posts: 3016	02.06.2010 - 12:49 Code: `Sub Select4Row() Dim myRange As Range, i As Integer Set myRange = Rows(2) For i = myRange.Row To Cells(Rows.Count, "A").End(xlUp).Row Step 4 Set myRange = Union(myRange, Rows(i)) Next i myRange.Select End Sub` Startzeile kannst in Zeile 5 ändern und wenn du nicht jede vierte willst kannst du das am Ende von Zeile 7 ändern. Funktioniert sicher und selektiert dir jede vierte Zeile, k.A. wie performant mit 10k+ Zeilen. Bearbeitet von quilty am 02.06.2010, 12:51

Excel: Jede 4. Zeile kopieren (bzw. alles bis auf jede 4. Zeile löschen)

Forum Index > Software > Coding Stuff

hello2k3

sts

prayerslayer

COLOSSUS

hello2k3

that

Polyfire

quilty