Butten auf mehreren Tabelle beschriften
15.09.2006 11:03:20
Marius
ich brauche mal wieder Hilfe, bei einem VBA Code. Ich habe auf Tabelle 1 eine Zuordnungstabelle und auf Seite 2 werden diese in die Buttons geschrieben.
Nun will ich 12 Tabellen (Seiten) machen wo auch je die Buttons nach Tabelle 1 beschriftet werden.
Code lege ich bei. Kann ich irgendwie durch copy und paste aus "Tebelle2" in VBA Code "Tabelle2, Tabelle3, Tabelle4, ..." machen? Währe dann der folgende Code mal 12 Tabellen mal 60 Buttons ? Gehts mit copy und paste oder wie muss der Code heißen?
Danke im Voraus
Marius
Sub Button1()
Dim neutext As String
neutext = Sheets("Erfassungsmaske").Range("D11")
'Sheets("Erfassungsmaske").Select
'Range("D11").Select
'ActiveCell.Copy
Sheets("Wareneingangsbuch").Select
ActiveSheet.Unprotect
ActiveSheet.DrawingObjects("Schaltfläche50").Select
Selection.Characters.Text = neutext
With Selection.Characters(Start:=1, Length:=0).Font
.Name = "Arial"
.FontStyle = "Standart"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = xlAutomatic
End With
ActiveSheet.DrawingObjects("Schaltfläche50").Select
Selection.OnAction = "Button1_Funktion"
End Sub
'------------------------------------------------------------------------------------------
Sub Button1_Funktion()
ActiveCell.FormulaR1C1 = "=Debitor_01"
ActiveCell.Cells(z + 1, s + 4).Select
ActiveCell.FormulaR1C1 = "=GK_01"
ActiveCell.Cells(z + 1, s + 5).Select
ActiveCell.FormulaR1C1 = "=KTO_01"
ActiveCell.Cells(z + 1, s + 2).Select
ActiveCell.FormulaR1C1 = "=KS_01"
ActiveCell.Cells(z + 2, s - 7).Select
End Sub