1 / 2

[Alcu]

Guten Tag

Ich suche eine formel womit ich in einer zeile 5 eingebe und der automatisch wenn ich drucke Palette 1 / 5 und 2 /5 usw auf den palettenlabel automatisch macht


vielleicht hat einer von euch eine lösung

Dankeschön im voraus

[coemm]

Hi,

so?

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G
1	5	1 / 5	2 / 5	3 / 5	4 / 5	5 / 5
2	6	1 / 6	2 / 6	3 / 6	4 / 6	5 / 6	6 / 6

Zelle	Formel
B1	=SPALTE(A$1)&" / "&$A1
C1	=SPALTE(B$1)&" / "&$A1
D1	=SPALTE(C$1)&" / "&$A1
E1	=SPALTE(D$1)&" / "&$A1
F1	=SPALTE(E$1)&" / "&$A1
B2	=SPALTE(A$1)&" / "&$A2
C2	=SPALTE(B$1)&" / "&$A2
D2	=SPALTE(C$1)&" / "&$A2
E2	=SPALTE(D$1)&" / "&$A2
F2	=SPALTE(E$1)&" / "&$A2
G2	=SPALTE(F$1)&" / "&$A2

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

[Alcu]

das sieht schon gut aus das soll eine Paletten label werden
kann man sowas auch als eine formel machen das der das blatt automatisch 5 mal ausgedruckt ?

[WillWissen]

Hi,

die Anzahl der Ausdrucke kannst du doch im Druckmenü festlegen.

[Alcu]

Ich möchte eine Tabelle basteln

mit Maske usw das alles automatisch macht mit karten druck usw

[coemm]

Ich möchte eine Tabelle basteln

mit Maske usw das alles automatisch macht mit karten druck usw

Dann bastel mal so, wie du es haben möchtest und lade die Datei hoch!
Das Aussehen bestimmst du, bei den Formeln können wir dir helfen!

[Storax]

http://www.ms-office-forum.net/forum/sho...p?t=347957

[schauan]

Hallöchen,

ein Ausdruck per Formel geht nicht.

Du müsstest mal genau definieren, wie dein Blatt aussieht bzw. wo Deine 1/5 usw steht. Ich nehme auch an, dass Du mal 4 hast oder mal 6 oder vielleicht sogar 10 oder mehr? Dann macht der Code im anderen Forum keinen Sinn, denn der würde immer die gleiche Anzahl Blätter drucken. Du müsstest dann ja 10 vorbereiten und auch wenn Du nur 3 brauchst, werden 10 gedruckt

Ich setze für meinen Ansatz mal voraus, dass die Blätter bis auf die unterschiedliche Nummerierung gleich aussehen bzw. das Gleiche drin steht. Dann bräuchtest Du nur ein Blatt vorbereiten und druckst es x mal aus, jeweils mit anderer Nummer. Die Nummer trage ich in A1 ein, da müsstest Du dann die Zelle eintragen, wo es hin soll.

Code:

Sub DruckMich()
'Variablendeklarationen
'Integer
Dim iCnt%, iCoS%
'Anzahl der Blaetter abfragen
iCoS = InputBox("Bitte Anzahl Blätter eingeben: ", 5)
'Schleife ueber alle Blaetter
For iCnt = 1 To iCoS
  'Palettennummer in A1 eintragen
  Range("A1").Value = "'" & iCnt & " / " & iCoS
  'Blatt ausdrucken
  ActiveSheet.PrintOut
'Ende Schleife ueber alle Blaetter
Next
End Sub