Hallo,
folgender Aufbau ist nicht so besonders gut für eine sortierbare Liste:
Pro Kontakt habe ich (Namen, Adresse, Telefon, etc) 4 Zeilen.
Eine Zeile als Abstand.
Dann der nächste Kontakt.
Eine Kontaktliste in Excel besteht üblicherwiese aus:
-der 1. Zeile mit den Spaltenbezeichnungen
-darunter pro Kontakt eine Zeile mit Daten in den Spalten
-
KEINE Leerzeilen zwischen den Datensätzen, wenn die Abstände zwischen den Zeilen etwas größer sein sollen, dann z.B. Zeilenhöhe anpassen und ggf. vertikale Zentrierung in den Zellen.
Tabellenblattname: Tabelle1
B C D E F G H I
1 Nachname Vorname Straße PLZ Ort Telefon Mobil etc
2 Meier Franz Teststr.001 02345 Testdorf 01 01234-123456 +49 162 1234567 mein Kollege
3 Meier Olli Teststr.002 02346 Testdorf 02 01234-123457 +49 162 1234568 das bin ich
Eine solche Liste kann man sehr schön mit der Ettiketten/Seriendruckfunktion von Mircorsoft Word als 2-spaltige Liste ausgeben, wobei dann von der Sortierung her die Namen immer links/rechts, links/rechts stehen.
In Excel ist es wohl am einfachsten mit der Funktion INDEX zu arbeiten. In Hilfsspalten trägt man ein bzw. berechnet man aus welcher Zeile bzw. Spalte in der Liste die Daten jeweils ausgelesen werden sollen. Beispiel:
Tabellenblattname: Liste
A B C D E
1 Name Adresse Telefon Mobil etc.
2 Franz Meier Teststr. 103 01234-123456 +49 162 1234567 mein Kollege
12345 Testdorf
3 Olli Meier Teststr. 103 01234-123457 +49 162 1234568 das bin ich
12345 Testdorf
Die Umsetzung dieser Daten in eine 2-spaltige Ausgabe zum Drucken kann ziemlich kompliziert sein.
Variante 1: Die Daten eines Kontakts werden jeweils in mehrere Zellen per Formel übernommen
Tabellenblattname: Drucken
A B C D E
1 Franz Meier Nam3 0008 2 9 1
2 Teststr. 103 Teststraße 200 2 9 2
12345 Testdorf 12345 Testdorf
3 Tel.: 01234-123456 Tel.: 01234-123463 2 9 3
4 Mobil:+49 162 1234567 Mobil:+49 162 1234574 2 9 4
5 Olli Meier Nam3 0009 3 10 1
6 Teststr. 103 Teststraße 200 3 10 2
12345 Testdorf 12345 Testdorf
7 Tel.: 01234-123457 Tel.: 01234-123464 3 10 3
8 Mobil:+49 162 1234568 Mobil:+49 162 1234575 3 10 4
Benutzte Formeln:
A1: =WENN(INDEX(Liste!$A:blush:E;C1;E1)="";"";INDEX(Liste!$A:blush:E;C1;E1))
A2: =WENN(INDEX(Liste!$A:blush:E;C2;E2)="";"";INDEX(Liste!$A:blush:E;C2;E2))
A3: =WENN(INDEX(Liste!$A:blush:E;C3;E3)="";"";"Tel.: " & INDEX(Liste!$A:blush:E;C3;E3))
A4: =WENN(INDEX(Liste!$A:blush:E;C4;E4)="";"";"Mobil:" & INDEX(Liste!$A:blush:E;C4;E4))
A5: =WENN(INDEX(Liste!$A:blush:E;C5;E5)="";"";INDEX(Liste!$A:blush:E;C5;E5))
A6: =WENN(INDEX(Liste!$A:blush:E;C6;E6)="";"";INDEX(Liste!$A:blush:E;C6;E6))
A7: =WENN(INDEX(Liste!$A:blush:E;C7;E7)="";"";"Tel.: " & INDEX(Liste!$A:blush:E;C7;E7))
A8: =WENN(INDEX(Liste!$A:blush:E;C8;E8)="";"";"Mobil:" & INDEX(Liste!$A:blush:E;C8;E8))
B1: =WENN(INDEX(Liste!$A:blush:E;D1;E1)="";"";INDEX(Liste!$A:blush:E;D1;E1))
B2: =WENN(INDEX(Liste!$A:blush:E;D2;E2)="";"";INDEX(Liste!$A:blush:E;D2;E2))
B3: =WENN(INDEX(Liste!$A:blush:E;D3;E3)="";"";"Tel.: " & INDEX(Liste!$A:blush:E;D3;E3))
B4: =WENN(INDEX(Liste!$A:blush:E;D4;E4)="";"";"Mobil:" & INDEX(Liste!$A:blush:E;D4;E4))
B5: =WENN(INDEX(Liste!$A:blush:E;D5;E5)="";"";INDEX(Liste!$A:blush:E;D5;E5))
B6: =WENN(INDEX(Liste!$A:blush:E;D6;E6)="";"";INDEX(Liste!$A:blush:E;D6;E6))
B7: =WENN(INDEX(Liste!$A:blush:E;D7;E7)="";"";"Tel.: " & INDEX(Liste!$A:blush:E;D7;E7))
B8: =WENN(INDEX(Liste!$A:blush:E;D8;E8)="";"";"Mobil:" & INDEX(Liste!$A:blush:E;D8;E8))
C5: =C1+1
C6: =C2+1
C7: =C3+1
C8: =C4+1
D1: =C25+1
D2: =D1
D3: =D2
D4: =D3
D5: =D1+1
D6: =D2+1
D7: =D3+1
D8: =D4+1
Namen in der Tabelle:
Drucken!Print\_Area: =Drucken!$A:blush:B
Variante 2: Alle Kontaktdaten jeweils in einer Zelle
Tabellenblattname: Drucken2
A B C D
1 Franz Meier Nam3 0010 2 11
Teststr. 103 Teststraße 200
12345 Testdorf 12345 Testdorf
Tel.: 01234-123456 Tel.: 01234-123465
Mobil: +49 162 1234567 Mobil: +49 162 1234576
2 Olli Meier Nam3 0011 3 12
Teststr. 103 Teststraße 200
12345 Testdorf 12345 Testdorf
Tel.: 01234-123457 Tel.: 01234-123466
Mobil: +49 162 1234568 Mobil: +49 162 1234577
Benutzte Formeln:
A1: =WENN(INDEX(Liste!$A:blush:E;C1;1)="";"";INDEX(Liste!$A:blush:E;C1;1))&ZEICHEN(10)
&WENN( INDEX(Liste!$A:blush:E;C1;2)="";"";INDEX(Liste!$A:blush:E;C1;2))&ZEICHEN(10)
&WENN( INDEX(Liste!$A:blush:E;C1;3)="";"";"Tel.: "& INDEX(Liste!$A:blush:E;C1;3))&ZEICHEN(10)
&WENN(INDEX(Liste!$A:blush:E;C1;4)="";"";"Mobil: " & INDEX(Liste!$A:blush:E;C1;4))
B1: =WENN(INDEX(Liste!$A:blush:E;D1;1)="";"";INDEX(Liste!$A:blush:E;D1;1))&ZEICHEN(10)
&WENN( INDEX(Liste!$A:blush:E;D1;2)="";"";INDEX(Liste!$A:blush:E;D1;2))&ZEICHEN(10)
&WENN( INDEX(Liste!$A:blush:E;D1;3)="";"";"Tel.: "& INDEX(Liste!$A:blush:E;D1;3))&ZEICHEN(10)
&WENN(INDEX(Liste!$A:blush:E;D1;4)="";"";"Mobil: " & INDEX(Liste!$A:blush:E;D1;4))
C2: =C1+1
D1: =C9+1
D2: =D1+1
Namen in der Tabelle:
Drucken!Print\_Area: =Drucken!$A:blush:B
Am Seitenwechsel muss man die Formeln in Spalte C und D anpassen, so dass in C mit der Zeile aus Spalte D fortgesetzt wird. Bei der von mir gewählten Formatierung war der Seitenwechsel oberhalb von Zeile 10 und somit 18 Kontakte pro Seite.
Tabellenblattname: Drucken2
C D
10 20 29
Benutzte Formeln:
C10: =D9+1
D10: =C18+1
Namen in der Tabelle:
Drucken!Print\_Area: =Drucken!$A:blush:B
) und dann Zellen einfügen, fügt eine Zeile oberhalb ein.