Kundenetikett

Question

Hallo

Bräuchte ein Makro für ein Serie von Etiketten?

Ich möchte das Makro über eine Schaltfläche starten das mir z.B den Inhalt von Zelle B4 kopieren , in z.B Zelle B1 einfügt und um z.B um 1 erhöht.

Ein weiteres Makro soll das gleiche bewirken aber mir den Wert um 1 verringern.

Das Makro möchte ich mir dann kopieren und die Zellbezüge für weitere Etikettreihen anpassen.

Makro sollte nur auf dem Tabellenblatt – Kundenetikett- laufen.
Ich hoffe das ich mein Problemchen verständlich geschildert habe.



Danke
Hans

Answer 1

xyz ??? zeig mal dein macro dann können wir es verbessern

Answer 2

Hallo

Habe mein Problemchen wohl doch schlecht beschrieben.
Ich habe noch kein Makro.


Hans

Answer 3

Hallo Hans,

Ich hoffe das ich mein Problemchen verständlich geschildert habe.

das Ausbleiben von konstruktiven Antworten lässt vermuten, dass dem nicht so ist.
Versuch's doch noch mal, wenn möglich mit einem anschaulichen Beispiel.

Gruß
Rainer

Answer 4

hi all ^^

ein Beispiel

gruss nighty

Sub hansPlus()
Cells(4, 2) = Cells(1, 2) + 1
End Sub

Sub Hansminus()
Cells(4, 2) = Cells(1, 2) - 1
End Sub

Bei einer schaltflaeche waere ein makro mit call makroname aufrufbar

Answer 5

hi all

z.b.

Private Sub CommandButton1_Click()
Call DeinMakroname
End Sub

gruss nighty

Answer 6

Hallo
Habe versucht mir das Makro aufzuzeichnen, was leider nicht ganz
funktioniert


Sub plus()
Range("B4").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
in B1 soll dann der Wert um 1 erhöht werden

End Sub

Hoffe mein Beispiel hilft


Besten Dank an alle für die Hilfe.
Hans

Answer 7

Hallo Hans,
dazu gibt es einige Möglichkeiten.
Select ist aber nicht nötig.


Sub EinsPlus()
Range("B1") = Range("B4") + 1
End Sub


Von : nighty

Sub hansPlus()
Cells(4, 2) = Cells(1, 2) + 1
End Sub

Gruß
fedjo

Answer 8

Hallo
Das war was ich brauchte, werde mich bemühen das nächste Mal mein
Anliegen besser zu beschreiben.


Vielen Dank
Hans

Answer 9

Vielleicht solltest du auch mal HIER schauen.