Supportnet / Forum / Tabellenkalkulation

Hi zusammen, ich schon wieder! Habe in einer Tabelle nen Brief gestaltet. Dieser muss dann jeweils von 2 Personen unterschrieben werden. Für links- und rechts-Unterschrift, resp. die Namen verweise ich einfach auf die entsprechenden Zellen. Eine Zeile darunter soll die Funktion der Unterschreibenden angezeigt werden. Das Problem: Name und Funktion rechts sind nicht bündig (is ja eigentlich auch logisch). Was das ganze nicht einfacher macht ist, dass ich NICHT 2 Spalten machen kann. Habe nur 1 Spalte zur Verfügung und kann keine weitere mehr einfügen. Hat jemand eine Idee? Besteht evtl. die Möglichkeit, eine einzige Zelle nochmals zu teilen? =SB!J11&" "&SB!J10 Lieben dank. Rahel

Hallo Rahel

Ich weiss nicht ob ich dein Problem richtig verstanden habe !!

Eine einzelne Zelle würde ich folgendermassen teilen:

Zelle anklicken - Menü Daten - Text in Spalten - Feste Breite - Trennline bestimmen

Ich hoffe das erfüllt sein Zweck

Gruss
JLM

Hi Rahel,

also Zellen trennen geht nur wenn vorher diese Zellen mal verbunden waren. Aber eine Zelle einer Spalte kann man nicht weiter trennen. Man könnte das aber durch zwei Labelfelder und einen VBA Code lösen.

Blende Dir dazu mal die Symbolleiste Steuerlement-Toolbox ein. Klicke danach auf den 13. Button von links, der mit dem großen A. Gehe dann auf Dein Tabellenblatt und positioniere das Bezeichnungsfeld an der Stelle, an der die 1. Unterschrift sitzen soll. Das ganze wiederholst Du noch einmal. Somit hast Du dann zwei Bezeichnungsfelder in Deiner Tabelle. Danach kopierst Du nachfolgenden Code in das VBA Projekt der Tabelle, in dem Du gerade Deine Felder eingefügt hast. Wie das geht, kannst Du auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nachlesen. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Private Sub Worksheet_Change(ByVal Target As Range)
Label1 = Sheets("SB").Range("J11")
Label2 = Sheets("SB").Range("J10")
End Sub

Durch obigen VBA Code wird immer, wenn Du etwas in Deinem Tabellenblatt veränderst, die Namen aus dem Blatt "SB" und dort den Zelle J10 und J11 in diese Bezeichnungsfelder eingetragen.

Versuch mal, ob der Lösungsvorschlag was für Dich ist. Bei Fragen melde Dich.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi zuammen,

vielen dank für die Hilfe.

Das mit dem ´Text in Spalten´ hat nicht funktioniert.

Dafür hat dies mit dem Bezeichnungsfeld super geklappt. Is nun genau so wie es sein soll.

Vielen lieben dank nochmals!

Liebe Grüsse
Rahel

Hi zusammen,

jetzt will wieder was nicht so wie ich es gern hätte...

Wird in einem Formular auf den Button <Drucken> geklickt, werden die Werte aus den Textfeldern in eine Tabelle übertragen. Danach (Im selben Befehl) passiert folgendes:

ActiveWorkbook.Worksheets("Brief").Activate
Worksheets("Brief").PageSetup.PrintArea = "$A$1:$A$52"
Application.Dialogs(xlDialogPrint).Show

In der Tabelle ´Brief´ habe ich folgendes eingebaut:

Private Sub Worksheet_Activate()
Me.Name_Rechts = Sheets("SB").Range("J12")
Me.Name_Links = Sheets("SB").Range("J13")
End Sub

Schliesse ich nach erfolgtem Druck das Formular und sehe mir den Brief in der Tabelle an, sind die Namen auch richtig eingetragen. Aber auf dem Ausdruck erscheinen noch immer die "alten" Namen (vom vorherigen Versuch).

Da scheint was mit dem Aktualisieren nicht zu klappen, oder?

Liebe Grüsse
Rahel

Moin Rahel,

aktualisiere doch einfach die Daten vor dem Drucken mit mit dem "Private Sub Workbook_Open()
" - Ereignis. Kopiere nachfolögende Anweisung in das VBA Projekt "Diese Arbeitsmappe".

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Me.Name_Rechts = Sheets("SB").Range("J12")
Me.Name_Links = Sheets("SB").Range("J13")
End Sub

Mit dem VBA Code werden immer die Daten in den Zellen vor dem Drucken aktualisiert.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• wieder Makro Code
• bedingte Formatierung - Gültigkeitsdatum
• Wie kann ich in Excel in jeder Zelle am Ende automatisch ein Komma einfügen?
• Berechnungsergebnis in andere Zelle