Excel Namensliste Ausdruck mit Buchstabenverweis

Computer: Software & Programmierung Microsoft Access
1

Hallo zusammen,

Ich besitze eine Excelliste mit ca. 700 Namen. Es ist eine Unterschriftenliste. kann ich evtl. unten rechts einen Buchstabenverweis einfügen je nachdem wie die Liste geführt ist. Als Beispiel: auf der ersten Seite fängt die Liste mit dem Namen Albrecht an und endet mit Bergmann, da sollte unten rechts
[Al-Ber] stehen.
Hoffe ich konnte mein Anliegen einigermaßen erklären.

Lieben dank im Voraus

2

Hallo,

wie kann man sich das vorstellen? Eine Liste mit ca. 700 Namen, die dann ausgedruckt wird und von allen auf der Liste unterschrieben werden soll? Eine Liste mit ca. 700 Namen für die jeweils ein Bild mit der Unterschrift eingefügt ist?

Die Excel-Liste soll jetzt in Access übernommen werden oder was hat deine Excel-Liste mit Access zu tun?

Falls Excel, wo ist „unten rechts“? Am Ende der Tabelle, in der Zelle XFD1048576,… ?

Wäre das bei der ersten Seite dann nicht [A-Ber] da der komplette Buchstabe A gelistet ist?

Je nach dem wie die Liste geführt ist und was genau du erreichen willst, kannst du das evtl. tun. Es kommt halt sehr darauf an welches Programm du verwendest und wie deine Liste darin angelegt ist.
Wenn du z.B. die komplette Liste auf einem einzelnen Tabellenblatt in Excel hast und das dann je nach Seitenumbruch automatisch auf den einzelnen Druckseiten auftauchen soll, wäre das wohl nur über ein Script lösbar, wenn überhaupt.
Wenn die Liste in Excel z.B. auf mehrere Tabellenblätter aufgeteilt ist und das jeweils irgendwo auf den Tabellenblättern in einer Zelle angezeigt werden soll, sollte das einigermaßen problemlos möglich sein.

Wenn sich die Liste nicht ständig ändert, wäre es aber vermutlich einfacher den Bereich manuell einzutragen.

Gruß
Tobias

3

Meinen bescheidenen Excel-Kenntnissen nach kann man bei Kopf- bzw. Fußzeilen in Excel nicht mit Formeln arbeiten. Man könnte ein VBA-Makro schreiben, dass für jede Seite eine entsprechende Fußzeile erzeugt.
Ganz plump in die Luft gespuckt und von hier abgekupfert, könnte es im Ansatz (!) so aussehen:

Sub DifferentHeaderFooter()
    Dim ws As Worksheet
    Dim vRight(100) As Variant, xRg(100) As Variant
    Set ws = ActiveSheet
    On Error Resume Next
    
    header_rows = 8
    row_offset = 1
    pagecount = 36
    pagelength = 58
    For i = 1 To pagecount
        von = Left(Cells(header_rows + (i - 1) * pagelength, "G").Value, 3)
        bis = Left(Cells(header_rows - 1 + (i) * pagelength, "G").Value, 3)
        vRight(i - 1) = von & " - " & bis
        xRg(i - 1) = "A" & row_offset + (i - 1) * pagelength & ":M" & (i * pagelength + header_rows - 1)
        row_offset = 8
    Next i

    Application.ScreenUpdating = False
    For i = 0 To pagecount - 1
        With ws.PageSetup
        .PrintArea = xRg(i)
        .RightFooter = vRight(i)
        End With
        ws.PrintPreview
    Next i
    Application.ScreenUpdating = True
    ws.PageSetup.PrintArea = ""
End Sub

Der Code definiert Druckbereiche und öffnet jeweils die Druckvorschau. Von dort müsste man dann für jede Seite separat auf „Drucken“ klicken.

Ausprobiert hab ich das Ganze mal mit der Städteliste vom DeStatis.

Es funktioniert, ist aber m.E. weit davon entfernt, eine komfortable Lösung zu sein.

Gruß,

Kannitverstan

4

Genau so ist es. Ganz einfache Liste wo eine Verfahrensanweisung zu Quittieren ist.

mit unten rechts meinte ich , dass die Mitarbeiter das auf Anhieb sehen können. in der Fußzeile wäre es super ,

Weiss nicht wie du auf Access kommst?

Wäre auch OK

Danke

5

Danke,

Habe es nicht hinbekommen. Denke , dass es am Header hängt. Ich habe eine Überschrift und eine Beschreibung. Die Liste fängt auf Reihe 4 an .

Zu Zeit mache ich das manuell. Ich denke , dass es zu kompliziert ist.

Danke

6

hi,

wenn du ohnehin eine Spalte für die Beschriftung hast, wäre es doch eine Idee, nach dem Seitenumbruch zu suchen.

Sub Markierungen()
 Dim ws As Worksheet
 Set ws = ActiveSheet
 Dim LastRow As Long
 LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

 header_rows = 3
 names_col = "A"
 label_col = "B"
 
 von = Left(Cells(header_rows + 1, names_col).Value, 3)

 For i = header_rows + 2 To LastRow
    If Rows(i).PageBreak <> xlPageBreakNone Then 
	Cells(i, label_col).Value = von & " - " & Left(Cells(i, names_col).Value, 3)
	von = Left(Cells(i + 1, names_col).Value, 3)
   Else Cells(i, label_col).ClearContents
   End If
  Next
End Sub

Da ich es nicht testen kann, weil ich kein Excel habe, wird man wohl erstmal Fehler bereinigen müssen.
Aber so vom Ablauf her könnte das deine jetzige Arbeit ersetzen, ohne bei Drucken alle Seiten einzeln zu bestätigen

Unbedingt die Spaltennamen anpassen, ob A und B stimmt, bezweifle ich auch.
Es wird vorausgesetzt, dass es für die Beschriftung eine eigene Spalte gibt.

grüße
lipi

7

Das Skript muss natürlich an deine Tabelle angepasst werden, was Spaltennummern usw. betrifft, evtl. muss man noch einbauen, dass die erste Seite anders behandelt wird.
Aber einen Header hat die Städteliste auch, das sollte kein KO-Kriterium sein.

Gruß,

Kannitverstan

8

Wie gesagt, in dem Fall wird es wohl nur über ein Script funktionieren. Da werde ich mich raushalten aber wenigstens hast du ja bereits ein paar Leute die versuchen zu helfen.

Die Frage ist in der Unterkategorie „Microsoft Access“.