Supportnet / Forum / Tabellenkalkulation

ich habe in Blatt "Ergebnisliste" in Spalte B die Namen, in Spalte C die Altersklasse, in Spalte D die Leistung, in Spalte E die Gesamtposition, in Spalte F die Altersklassenposition, . das Blatt "Urkunde" enthält das Urkundenlayout, dort gibt es freie Zellen für Name= C5 Leistung= C6 Gesamtposition= C7 Altersklassenposition= C8 Altersklasse= D8 auf Knopfdruck soll nun für jeden Teilnehmer die passende Urkunde geschrieben werden. von Hand brauch ich bei 100 Namen etwa eine Stunde, wenn ich die Zeit auf weniger als 20min dabei bekomme, wär mir das durchaus für den Problemlöser ein Helferpaket wert (Urkunde, Medaille, Energieriegel, Durstlöscher und ganz viel Dankeschön)

Hi lauflist,

hört sich nach einer VB-Lösung an, die ich leider nicht bieten kann.

Aber, was spricht denn dagegen, das Urkundenlayout in Word zu machen und dann die Serienbrieffunktion von Word zu nutzen. Hier kannst Du die Exceltabelle als Quelle angeben.

CU Aliba

na da spricht garnichts gegen, außer das ich dies auch noch nicht gemacht habe.
was füg ich denn da in word ein? einzellige Tabellen oder gibt es Platzhalter? und in die wird dann die Serienbriefquelle eingetragen?

oder gibbet im Netz irgendwo ein Beispiel?

Fragen über Fragen

Hallo lauflist,

hiermal eine VBA-Lösung:

Private Sub CommandButton1_Click()
Dim loZeile As Long
Application.ScreenUpdating = False
For loZeile = 2 To Sheets("Ergebnisliste").Cells(Rows.Count, 2).End(xlUp).Row

Sheets("Ergebnisliste").Cells(loZeile, 2).Copy _
Destination:=Sheets("Urkunde").Range("C5")

Sheets("Ergebnisliste").Cells(loZeile, 3).Copy _
Destination:=Sheets("Urkunde").Range("D8")

Sheets("Ergebnisliste").Cells(loZeile, 4).Copy _
Destination:=Sheets("Urkunde").Range("C6")

Sheets("Ergebnisliste").Cells(loZeile, 5).Copy _
Destination:=Sheets("Urkunde").Range("C7")

Sheets("Ergebnisliste").Cells(loZeile, 6).Copy _
Destination:=Sheets("Urkunde").Range("C8")

Sheets("Urkunde").PrintOut
Next
Application.ScreenUpdating = True
End Sub


Gruß

JöKe

danke JöKe,
aber da ich von VBA null Ahnung habe, weis ich nun nicht, wo ich diesen Text einsetze.

so, die VBA-Lösung klingt zwar elegant, hab mich aber nicht dran getraut.
Die Serienbriefvariante hab ich dann mal ausprobiert und siehe da, einzig mir fehlt noch ein schnellerer Drucker und die 100 Urkunden sind in weniger als 15min draussen, ich bin begeistert!!!

Dankeeee

Aliba, ich brauch noch deine Adresse fürs Dankeschönpaket

• Werte von einem Excel Tabellenblatt in ein anderes übertragen
• FreePDF und unterschiedliche Ergebnisse ?