Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Re: Bestimmte Zeilen kopieren
40 views
Skip to first unread message
Message has been deleted
Claus Busch
May 12, 2013, 3:46:27 AM5/12/13
to
Hallo Hans-J�rgen,
Am Sun, 12 May 2013 09:07:48 +0200 schrieb Hans-Juergen Lukaschik:
> Ich habe auf einem Blatt genaue Altersangaben, Alter aus dem
> Geburtsdatum errechnet.
> Gibt es eine M�glichkeit, die Zeilen, in denen das Alter 60 und mehr
> betr�gt, per Macro in ein anderes Blatt zu kopieren?
du k�nntest die Zellen mit einer Schleife durchlaufen und die
entsprechenden Zeilen in das andere Blatt kopieren.
Wesentlich schneller allerdings ist, die Altersspalte nach >=60 zu
filtern und die gefundenen Eintr�ge in das andere Blatt kopieren.
Wenn du Hilfe brauchst mit dem Code, musst du noch ein paar Angaben
machen: Welche Spalte ist die Altersspalte, wieviele Spalten hat die
Tabelle, ist in dem anderen Blatt schon etwas vorhanden, also soll es
erg�nzt werden oder ist das eine einmalige Angelegenheit?
Mit freundlichen Gr��en
Claus Busch
--
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3
Am Sun, 12 May 2013 09:07:48 +0200 schrieb Hans-Juergen Lukaschik:
> Ich habe auf einem Blatt genaue Altersangaben, Alter aus dem
> Geburtsdatum errechnet.
> Gibt es eine M�glichkeit, die Zeilen, in denen das Alter 60 und mehr
> betr�gt, per Macro in ein anderes Blatt zu kopieren?
du k�nntest die Zellen mit einer Schleife durchlaufen und die
entsprechenden Zeilen in das andere Blatt kopieren.
Wesentlich schneller allerdings ist, die Altersspalte nach >=60 zu
filtern und die gefundenen Eintr�ge in das andere Blatt kopieren.
Wenn du Hilfe brauchst mit dem Code, musst du noch ein paar Angaben
machen: Welche Spalte ist die Altersspalte, wieviele Spalten hat die
Tabelle, ist in dem anderen Blatt schon etwas vorhanden, also soll es
erg�nzt werden oder ist das eine einmalige Angelegenheit?
Mit freundlichen Gr��en
Claus Busch
--
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3
Message has been deleted
Claus Busch
May 12, 2013, 5:27:42 AM5/12/13
to
Hallo Hans-J�rgen,
Am Sun, 12 May 2013 11:11:45 +0200 schrieb Hans-Juergen Lukaschik:
> Geburtsdatum in Spalte H, Alter mit Datedif aus H errechnet in Spalte
> I. Vorhanden, incl. verborgener Spalten, sind A bis Y.
> In dem neuen Blatt sind eigentlich nur die Spalten B bis F notwendig,
> Name, Vorname, Stra�e, PLZ und Ort, als Basis f�r Serienbriefe, die nur
> an Personen ab 60 Jahre gerichtet werden sollen.
die ausgeblendeten Spalten sind hoffentlich nicht im Bereich B:F?
Aktiviere das entsprechende Blatt und lasse das Makro laufen. Eventuell
musst du noch die Blattnamen anpassen:
Sub Uebertrag()
Dim LRow As Long
With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:Y" & LRow).AutoFilter Field:=9, _
Criteria1:=">=60"
.Range("B1:F" & LRow).Copy Sheets("Tabelle2").Range("A1")
.AutoFilterMode = False
End With
End Sub
Am Sun, 12 May 2013 11:11:45 +0200 schrieb Hans-Juergen Lukaschik:
> Geburtsdatum in Spalte H, Alter mit Datedif aus H errechnet in Spalte
> I. Vorhanden, incl. verborgener Spalten, sind A bis Y.
> In dem neuen Blatt sind eigentlich nur die Spalten B bis F notwendig,
> Name, Vorname, Stra�e, PLZ und Ort, als Basis f�r Serienbriefe, die nur
> an Personen ab 60 Jahre gerichtet werden sollen.
die ausgeblendeten Spalten sind hoffentlich nicht im Bereich B:F?
Aktiviere das entsprechende Blatt und lasse das Makro laufen. Eventuell
musst du noch die Blattnamen anpassen:
Sub Uebertrag()
Dim LRow As Long
With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:Y" & LRow).AutoFilter Field:=9, _
Criteria1:=">=60"
.Range("B1:F" & LRow).Copy Sheets("Tabelle2").Range("A1")
.AutoFilterMode = False
End With
End Sub
Message has been deleted
Claus Busch
May 12, 2013, 5:46:27 AM5/12/13
to
Hallo Hans-J�rgen,
Am Sun, 12 May 2013 11:42:35 +0200 schrieb Hans-Juergen Lukaschik:
> Muss ich eventuell daf�r in dem Macro auch den vorhandenen Blattschutz
> aufheben? Ich habe verschiedene Sortierroutinen, bei denen das n�tig
> ist.
> Wenn das funktioniert, werde ich auch weitere Bl�tter auf diese Art
> erstellen wollen. Z. B. alle Personen bis 18 Jahre, passive und ruhende
> Mitglieder, damit ich zielgerichtete Serienbriefe erstellen kann.
es kommt auf die Art des Blattschutzes an. Wenn du auch gesperrte Zellen
anw�hlen kannst, sollte das Kopieren funktionieren. Lass einfach mal das
Makro laufen. Wenn du wegen dem Schutz einen Fehler bekommst, merkst du
es ja.
Am Sun, 12 May 2013 11:42:35 +0200 schrieb Hans-Juergen Lukaschik:
> Muss ich eventuell daf�r in dem Macro auch den vorhandenen Blattschutz
> aufheben? Ich habe verschiedene Sortierroutinen, bei denen das n�tig
> ist.
> Wenn das funktioniert, werde ich auch weitere Bl�tter auf diese Art
> erstellen wollen. Z. B. alle Personen bis 18 Jahre, passive und ruhende
> Mitglieder, damit ich zielgerichtete Serienbriefe erstellen kann.
es kommt auf die Art des Blattschutzes an. Wenn du auch gesperrte Zellen
anw�hlen kannst, sollte das Kopieren funktionieren. Lass einfach mal das
Makro laufen. Wenn du wegen dem Schutz einen Fehler bekommst, merkst du
es ja.
Claus Busch
May 12, 2013, 6:20:06 AM5/12/13
to
Hallo Hans-J�rgen,
Am Sun, 12 May 2013 11:46:27 +0200 schrieb Claus Busch:
> es kommt auf die Art des Blattschutzes an. Wenn du auch gesperrte Zellen
> anw�hlen kannst, sollte das Kopieren funktionieren. Lass einfach mal das
> Makro laufen. Wenn du wegen dem Schutz einen Fehler bekommst, merkst du
> es ja.
Fehler: Du k�nntest zwar kopieren, aber nicht Filtern. Es sein denn, du
hast den Filter schon vorher eingerichtet und das Benutzen des Filters
beim Schutz erlaubt.
Probiere es so (Falls du mit Passwort gesch�tzt hast, musst du hinter
"Unprotect" und "Protect" noch dein Passwort in Anf�hrungszeichen
angeben):
Sub Uebertrag()
Dim LRow As Long
With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Unprotect
End With
End Sub
Am Sun, 12 May 2013 11:46:27 +0200 schrieb Claus Busch:
> es kommt auf die Art des Blattschutzes an. Wenn du auch gesperrte Zellen
> anw�hlen kannst, sollte das Kopieren funktionieren. Lass einfach mal das
> Makro laufen. Wenn du wegen dem Schutz einen Fehler bekommst, merkst du
> es ja.
hast den Filter schon vorher eingerichtet und das Benutzen des Filters
beim Schutz erlaubt.
Probiere es so (Falls du mit Passwort gesch�tzt hast, musst du hinter
"Unprotect" und "Protect" noch dein Passwort in Anf�hrungszeichen
angeben):
Sub Uebertrag()
Dim LRow As Long
With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:Y" & LRow).AutoFilter Field:=9, _
Criteria1:=">=60"
.Range("B1:F" & LRow).Copy Sheets("Tabelle2").Range("A1")
.AutoFilterMode = False
.Protect
Criteria1:=">=60"
.Range("B1:F" & LRow).Copy Sheets("Tabelle2").Range("A1")
.AutoFilterMode = False
End With
End Sub
HR Ernst
May 12, 2013, 7:10:16 AM5/12/13
to
Am Sun, 12 May 2013 09:07:48 +0200 schrieb Hans-Juergen Lukaschik:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> Hallo,
>
> Ich habe auf einem Blatt genaue Altersangaben, Alter aus dem
> Geburtsdatum errechnet.
> Gibt es eine M�glichkeit, die Zeilen, in denen das Alter 60 und mehr
> betr�gt, per Macro in ein anderes Blatt zu kopieren?
>
> MfG Hans-J�rgen
> Ich habe auf einem Blatt genaue Altersangaben, Alter aus dem
> Geburtsdatum errechnet.
> Gibt es eine M�glichkeit, die Zeilen, in denen das Alter 60 und mehr
> betr�gt, per Macro in ein anderes Blatt zu kopieren?
>
> - --
> www.fischereiverein-rietberg.net
> http://tinyurl.com/FB-Fischereiverein-Rietberg
> Fischrezepte: www.fischereiverein-rietberg.net/?category_name=rezepte
> SeefischREZ: www.fischereiverein-rietberg.net/?category_name=seefisch
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.12 (GNU/Linux)
>
> iEYEARECAAYFAlGPP8QACgkQM/+umip4BxxqiwCeML/o15o8EnvSOra6+b/9n2Ft
> 3qAAn2lY2KFVB9OT49gvhiIWgr/eVhI0
> =pfVi
> -----END PGP SIGNATURE-----
Komische Signatur. Egal.
Ich verwende f�r Serienbriefe Access-Datenbanken. Das finde ich
komfortabler.
Mit Makros arbeite ich in Excel auch nicht, weil ich sie bisher nie
verwendet habe, da sie mir sehr kompliziert erscheinen. Aber das stellt
nur mein Unwissen dar.
Ich w�rde es so machen:
Auf dem Serienbrief-Baltt w�rde ich Folgendes eintragen:
A1=Wenn(H1 vom Ursprungsblatt>=60 bzw. <=18;Name (=A1) vom
Ursprungsblatt;"")
B1=Wenn(H1 vom Ursprungsblatt>=60 bzw. <=18;Vorname (=B1) vom
Ursprungsblatt;"")
C1=Wenn(H1 vom Ursprungsblatt>=60 bzw. <=18;Stra�e (=C1) vom
Ursprungsblatt;"")
...
Dazu klicke ich bei der Stelle "H1 vom Ursprungsblatt" etc. eben auf die
Zelle H1 vom Ursprungsblatt bzw. B1 vom Ursprungsblatt und Excel �bernimmt
diesen Wert.
Dann A1 bis F1 markieren und soweit wie n�tig runterkopieren.
Dabei ist es wohl egal, ob die entsprechenden Zellen vom Ursprungsblatt
gesperrt sind.
--
Gru�
H.-R. Ernst
Díetmar Vollmeíer
May 12, 2013, 7:48:08 AM5/12/13
to
Gr�� dich HR!
*HR Ernst* schrieb am 12.05.2013 um 13:10 Uhr...
>> MfG Hans-J�rgen
>> - --
>> www.fischereiverein-rietberg.net
>> http://tinyurl.com/FB-Fischereiverein-Rietberg
>> Fischrezepte: www.fischereiverein-rietberg.net/?category_name=rezepte
>> SeefischREZ: www.fischereiverein-rietberg.net/?category_name=seefisch
>> -----BEGIN PGP SIGNATURE-----
>> Version: GnuPG v1.4.12 (GNU/Linux)
>> iEYEARECAAYFAlGPP8QACgkQM/+umip4BxxqiwCeML/o15o8EnvSOra6+b/9n2Ft
>> 3qAAn2lY2KFVB9OT49gvhiIWgr/eVhI0
>> =pfVi
>> -----END PGP SIGNATURE-----
> Komische Signatur. Egal.
http://4d.vollmeier.at/scripte/ereignisscripte/onbeforesavingmessage/removepgpsig.html
X-Post in 2 Gruppen mit F'up2 <news:de.comm.software.40tude-dialog>
--
Servus | 40tude Dialog FAQ -> http://www.wolfgang-bauer.at/4td_faq/
Didi | und Script-Archiv -> http://kh-rademacher.de/4d/
|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| http://4d.vollmeier.at/
*HR Ernst* schrieb am 12.05.2013 um 13:10 Uhr...
> Am Sun, 12 May 2013 09:07:48 +0200 schrieb Hans-Juergen Lukaschik:
>> -----BEGIN PGP SIGNED MESSAGE-----
>> Hash: SHA1
>> [...]
>> -----BEGIN PGP SIGNED MESSAGE-----
>> Hash: SHA1
>> MfG Hans-J�rgen
>> - --
>> www.fischereiverein-rietberg.net
>> http://tinyurl.com/FB-Fischereiverein-Rietberg
>> Fischrezepte: www.fischereiverein-rietberg.net/?category_name=rezepte
>> SeefischREZ: www.fischereiverein-rietberg.net/?category_name=seefisch
>> -----BEGIN PGP SIGNATURE-----
>> Version: GnuPG v1.4.12 (GNU/Linux)
>> iEYEARECAAYFAlGPP8QACgkQM/+umip4BxxqiwCeML/o15o8EnvSOra6+b/9n2Ft
>> 3qAAn2lY2KFVB9OT49gvhiIWgr/eVhI0
>> =pfVi
>> -----END PGP SIGNATURE-----
> Komische Signatur. Egal.
X-Post in 2 Gruppen mit F'up2 <news:de.comm.software.40tude-dialog>
--
Servus | 40tude Dialog FAQ -> http://www.wolfgang-bauer.at/4td_faq/
Didi | und Script-Archiv -> http://kh-rademacher.de/4d/
|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| http://4d.vollmeier.at/
Message has been deleted
Claus Busch
May 12, 2013, 7:54:23 AM5/12/13
to
Hallo J�rgen,
Am Sun, 12 May 2013 13:48:45 +0200 schrieb Hans-Juergen Lukaschik:
> Ich lasse den Schutz im Macro aufheben. Funktioniert so, allerdings
> wird die erste Zeile mit den Feldnamen nicht beibehalten.
>
> Name Vorname Stra�e PLZ Wohnort
>
> Die sollte erhalten bleiben, weil Word sie gerne haben m�chte, um die
> Felder entsprechend �bernehmen zu k�nnen.
hast du am Code etwas ver�ndert? Bei mir wird die �berschrift
mitkopiert.
Am Sun, 12 May 2013 13:48:45 +0200 schrieb Hans-Juergen Lukaschik:
> Ich lasse den Schutz im Macro aufheben. Funktioniert so, allerdings
> wird die erste Zeile mit den Feldnamen nicht beibehalten.
>
> Name Vorname Stra�e PLZ Wohnort
>
> Die sollte erhalten bleiben, weil Word sie gerne haben m�chte, um die
> Felder entsprechend �bernehmen zu k�nnen.
hast du am Code etwas ver�ndert? Bei mir wird die �berschrift
mitkopiert.
Message has been deleted
Message has been deleted
Claus Busch
May 12, 2013, 8:23:52 AM5/12/13
to
Hallo Hans-J�rgen,
Am Sun, 12 May 2013 14:11:51 +0200 schrieb Hans-Juergen Lukaschik:
> Oh, Moment. In dem ersten Blatt stehen die Feldnamen in Zeile 9, Zeile
> 10 ist leer und die Daten beginnen ab Zeile 11.
> Die ersten 8 Zeilen werden von einem Men� besetzt.
schau hier mal nach der Mappe "Hans_J�rgen":
https://skydrive.live.com/#cid=9378AAB6121822A3&id=9378AAB6121822A3%21191
Dir werden Bl�tter eingef�gt und benamt und die entsprechenden Eintr�ge
reinkopiert. Die Altersabst�nde kannst du in dem Array �ndern.
Am Sun, 12 May 2013 14:11:51 +0200 schrieb Hans-Juergen Lukaschik:
> Oh, Moment. In dem ersten Blatt stehen die Feldnamen in Zeile 9, Zeile
> 10 ist leer und die Daten beginnen ab Zeile 11.
> Die ersten 8 Zeilen werden von einem Men� besetzt.
schau hier mal nach der Mappe "Hans_J�rgen":
https://skydrive.live.com/#cid=9378AAB6121822A3&id=9378AAB6121822A3%21191
Dir werden Bl�tter eingef�gt und benamt und die entsprechenden Eintr�ge
reinkopiert. Die Altersabst�nde kannst du in dem Array �ndern.
Message has been deleted
Claus Busch
May 12, 2013, 12:28:19 PM5/12/13
to
Hallo Hans-J�rgen,
Am Sun, 12 May 2013 18:22:44 +0200 schrieb Hans-Juergen Lukaschik:
> Da komme ich nicht dran. Mir wird dann nur angeboten, Excel 2010 zu
> testen. Ich habe folgende �nderung gemacht:
warum kommst du da nicht ran? Hast du eine Excel-Version vor 2007? Dann
stelle ich dir die Mappe auch gern in einer anderen Version hoch.
Im Moment ist sie n�nlich so, dass du die Alterstufen und die Blattnamen
beeinflussen kannst. Au�erdem kannst du das Makro jederzeit wieder
aufrufen, wenn sich der Datenbestand ge�ndert hat, ohne eine
Fehlermeldung zu bekommen.
Wenn du Version 2007 oder sp�ter hast, dann mach einen Rechtsklick auf
deine Mappe und lade sie herunter. In SkyDrive sind Makros sowieso nicht
aktiviert.
Am Sun, 12 May 2013 18:22:44 +0200 schrieb Hans-Juergen Lukaschik:
> Da komme ich nicht dran. Mir wird dann nur angeboten, Excel 2010 zu
> testen. Ich habe folgende �nderung gemacht:
warum kommst du da nicht ran? Hast du eine Excel-Version vor 2007? Dann
stelle ich dir die Mappe auch gern in einer anderen Version hoch.
Im Moment ist sie n�nlich so, dass du die Alterstufen und die Blattnamen
beeinflussen kannst. Au�erdem kannst du das Makro jederzeit wieder
aufrufen, wenn sich der Datenbestand ge�ndert hat, ohne eine
Fehlermeldung zu bekommen.
Wenn du Version 2007 oder sp�ter hast, dann mach einen Rechtsklick auf
deine Mappe und lade sie herunter. In SkyDrive sind Makros sowieso nicht
aktiviert.
Message has been deleted
Claus Busch
May 12, 2013, 1:08:40 PM5/12/13
to
Hallo hans-J�rgen,
Am Sun, 12 May 2013 18:53:28 +0200 schrieb Hans-Juergen Lukaschik:
> Ja, 2003. Ich habe die Version 2007 mal getestet, da konnte mich ich mit
> dem Design nicht anfreunden. Die klassische Ansicht ist mir auch bei
> Windows lieber.
das habe ich schon nach meiner Antwort geahnt und eine 2003er Version
hochgeladen. Lade sie dir herunter. Wenn du noch etwas findest, das ich
verbessern m�sste, sag Bescheid.
Altersgruppen und Blattnamen kannst du selber �ndern.
Am Sun, 12 May 2013 18:53:28 +0200 schrieb Hans-Juergen Lukaschik:
> Ja, 2003. Ich habe die Version 2007 mal getestet, da konnte mich ich mit
> dem Design nicht anfreunden. Die klassische Ansicht ist mir auch bei
> Windows lieber.
das habe ich schon nach meiner Antwort geahnt und eine 2003er Version
hochgeladen. Lade sie dir herunter. Wenn du noch etwas findest, das ich
verbessern m�sste, sag Bescheid.
Altersgruppen und Blattnamen kannst du selber �ndern.
Jörg Eisenträger
May 13, 2013, 1:11:23 PM5/13/13
to
Hallo Hans-J�rgen,
>Gibt es eine M�glichkeit, die Zeilen, in denen das Alter 60 und mehr
>betr�gt, per Macro in ein anderes Blatt zu kopieren?
ausgiebig diskutiert. Aber wenn der Sinn nur darin besteht, Datens�tze
f�r Serienbriefe zu selektieren, warum willst Du die betreffenden Zeilen
unbedingt in ein separates Blatt kopieren?
F�ge doch einfach eine Spalte "Altersgruppe" ein, deren Werte berechnest
Du per Formel, und verwende diese Spalte/dieses Feld als
Auswahlkriterium in der Serienbrief-Definition.
Dann kannst Du pro Altersgruppe eine eigene Serienbriefvorlage
erstellen, die dann jeweils nur die zutreffenden Adressen verwendet.
Gru�
J�rg
--
"One of the best ways to boost your Excel efficiency is also one of the best ways to shoot yourself in the foot."
(Susan Harkins auf www.techrepublic.com/blog/10things/10-mistakes-to-avoid-when-working-with-multiple-worksheets/1961 )
0 new messages