Vorlage ändern

[Zwergel]

hier die Datei

[Rabe]

Hi,

wie ist es so?
Es muß noch mit den Seitenrändern gespielt werden.


  Etiketten schmal.docx (Größe: 12,22 KB / Downloads: 6)

[Zwergel]

Hi Ralf,

nur für mein Verständnis deines Vorschlags: Wo unterscheidet der sich zu meinem Vorschlag?

[Rabe]

Hi MIchael,

nur für mein Verständnis deines Vorschlags: Wo unterscheidet der sich zu meinem Vorschlag?

ich glaube gar nicht.
Ich habe nur gleich mit der Datei angefangen, bevor ich das komplette Thema und damit Deinen Beitrag gesehen habe.

[Zwergel]

Hi Ralf,

danke, manchmal sieht man ja auch Dinge nicht. Du hast allerdings noch Zusatzspalten drin, kann ja auch mal bei Bedarf sinnvoll sein, je nach Etikettenvorlage.

[Rabe]

Hi Michael,

Du hast allerdings noch Zusatzspalten drin, kann ja auch mal bei Bedarf sinnvoll sein, je nach Etikettenvorlage.

ja, ich hatte es genau so aufgebaut, wie das Original, nur eben in Querformat.

[WillWissen]

Hi Edgar, Michael und Ralf,

auch euch lieben Dank für eure Hilfe. Die Mustervorschläge habe ich ebenfalls an meine Bekannte weitergereicht und hoffe, bald von ihr zu erfahren, für welchen Vorschlag sie sich entscheidet. Genügend zur Auswahl hat sie ja nun.

Ich denke, mehr kann man nun nicht mehr tun. Daher werde ich meinen Beitrag als erledigt kennzeichnen.

Nochmals vielen Dank allen Helfern.

[Rabe]

Hi Günter,

In der Art - mit per Buttons einstellbaren Spaltenbreiten und Zeilenhöhen, um flexibel auf verschiedene Ordnerrücken reagieren zu können - habe ich ihr eine Musterdatei geschickt.

die Datei könntest Du hier auch anhängen, das wäre auch (für andere) interessant.

[WillWissen]

Hi Ralf,

habe deiner Anregung gemäß meine Musterdatei hier eingestellt.

[Rabe]

habe deiner Anregung gemäß meine Musterdatei hier eingestellt.

super, ich habe natürlich gleich was zu ergänzen, kann man die Breite der aktuellen Spalte in Zeile 1 eintragen lassen? Wie in der letzten Zeile geht's nicht!

Code:

Private Sub ButtonSpaltenbreite_Click()
   Dim sBreite As Single
   Dim sAktuell As Single
   Dim strText As String
   Dim strAntwort As String
   sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425
   strText = "Aktuelle Spaltenbreite: " & _
       Format(sAktuell, "###0.00 cm") & Chr(13) _
       & "Geben Sie die gewünschte Spaltenbreite für die " & _
       "aktuelle Spalte oder Markierung in cm ein:"
   strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _
       Format(sAktuell, "###0.00"))
   If strAntwort <> "" Then
      sBreite = CSng(strAntwort)
      Selection.ColumnWidth = -0.71 + 5.1425 * sBreite
   End If
   Cells(1, Column(ActiveCell)) = sBreite  ' so gehts nicht!
End Sub