Makro kopieren fortlaufend

Question

hallo erst ein mal !!! ich habe da ein problemm,ich möchte volgendes Makro vortlaufen weiterführen bis ich auf 500 bin...
ist das irgend wie möglich ohne das ich jedes makro schreibe..??

danke schon mal für eure hilfe !!

Sub Palette4()
'
' Palette4 Makro
'

'
Sheets("Palettenetiketten").Select
Range("B1:B47").Select
ActiveCell.FormulaR1C1 = _
"=Tabelle2!R[2]C[3]&Tabelle2!R[2]C[2]&Tabelle2!R[2]C[1]"
Range("D1:D48").Select
ActiveCell.FormulaR1C1 = "=Tabelle2!R[2]C[5]"
Range("D49").Select
End Sub
Sub Palette5()
'
' Palette05 Makro
'

'
Sheets("Palettenetiketten").Select
Range("B1:B47").Select
ActiveCell.FormulaR1C1 = _
"=Tabelle2!R[2]C[12]&Tabelle2!R[2]C[11]&Tabelle2!R[2]C[10]"
Range("D1:D48").Select
ActiveCell.FormulaR1C1 = "=Tabelle2!R[2]C[14]"
Range("D49").Select
End Sub

Answer 1

Hallo,

leider nicht zu testen, aber so müsste es funktionieren

Sub Palette()
'
' Palette4 Makro
'

'
Sheets("Palettenetiketten").Select
For i = 0 to 500 step 9 ' 500 Schritte oder 4500 bei 500 Etiketten
Range("B1:B47").Select
ActiveCell.FormulaR1C1 = "=Tabelle2!R[2]C[" & (3 + i ) & " _]&Tabelle2!R[2]C[" & (2 + i ) & "]&Tabelle2!R[2]C[" & (1 + i ) & "]"
Range("D1:D48").Select
ActiveCell.FormulaR1C1 = "=Tabelle2!R[2]C[" & (5 + i ) & "]"
Range("D49").Select
Next i
End Sub

Gruß

Helmut

Answer 2

danke dir für deine schnelle hilfe !!!
aber leider geht es so nicht...ich brauche schon die 500 makros
will ich lege für jedes makro einen buton an z.B Makro ( Palette4)
wenn ich darauf klicke nimt er die daten aus den zellen die dort hinterlegt sind und dann kann ich die etiketten drucken !!

Answer 3

Hallo,

dann ff (Viel Vergnügen) :-))), das musst du wohl per Handarbeit erledigen.

Ich würde ein Butten machen und die Palettennummer abfragen, ich gehe von einem gleichmässigen Muster der Daten aus.

Wobei mir aufgefallen ist, dass deine Daten, zumindest in dem Beispiel einen Abstand von 9 Spalten haben.

Mit welcher Excelversion arbeiest du, da dies bei 500 Paletten unter Excel 2007 zu Problemen führt.


Gruß

Helmut

Answer 4

ja das wäre auch eine möglichkeit mit der Paletten nummer abfragen,aber ich denke das ich das nicht hinbekomme :(
ich arbeite mit 2007 !!!

Answer 5

Hallo,

hier mal ein Makro mit Abfrage. Müsste aber ggf. noch angepasst werden.

Sub Palette_neu()

Dim i, p As Long

p = InputBox("Bitte geben Sie die Nummer der Palette ein (zwischen 1 und 500)!", "Eingabe")

If p < 1 Or p > 500 Then
MsgBox "Die Palettennummer liegt nicht im zulässigen Bereich! Abruch!", 16, "Fehlermeldung"
Exit Sub
End If

i = (p - 1) * 9

Sheets("Palettenetiketten").Range("B1").FormulaR1C1 = "=Tabelle2!R[2]C[" & (3 + i) & "]&Tabelle2!R[2]C[" & (2 + i) & "]&Tabelle2!R[2]C[" & (1 + i) & "]"

Sheets("Palettenetiketten").Range("D1").FormulaR1C1 = "=Tabelle2!R[2]C[" & (5 + i) & "]"

End Sub

Gruß

M.O.

Answer 6

hallo und danke für das makro !!!!! ich hebe es etwas veränder und es läuft :)
noch mals danke euch zwei für eure mühe !!!