Makro aufrufen
27.08.2003 23:11:07
Stefan Glander
In einem Uf, das in Tabellenblatt1 aufgerufen wird lege ich mit dem UF ein neues Tabellenblatt an. Ich möchte in diesem neuen Tabellenblatt gleich ein paar Dinge vorgeben ( Siehe Code ) soweit auch kein Problem.
Wenn ich nun ein Makro ( makro3 )in den Code einbaue wird dieses aber auf Blatt1 durchgeführt.
Wie muss ich den code ändern damit das Makro auf dem neuen Blatt läuft ?
Private Sub btnErstellen_Click()
Dim wksNeueTabelle As Worksheet
On Error Resume Next
If Me.txbName <> "" Then
Set wksNeueTabelle = ThisWorkbook.Sheets(Me.txbName.Text)
If wksNeueTabelle Is Nothing Then
Set wksNeueTabelle = ThisWorkbook.Worksheets.Add
wksNeueTabelle.Name = Me.txbName
Unload Me
Worksheets("Tabelle1").Select
MsgBox "Die Tabelle " & Me.txbName.Text & " wurde erstellt."
With Worksheets(txbName.Value)
.Cells(2, 3) = txbName
.Cells(2, 4) = txbVorname
.Cells(3, 3) = txbStr
.Cells(4, 3) = txbPlz & " " & txbOrt
.Cells(5, 3) = "Telefon :"
.Cells(5, 5) = txbTel
.Cells(5, 7) = "Handy :"
.Cells(5, 5) = txbHandy
.Cells(6, 3) = "Fax :"
.Cells(6, 5) = txbFax
.Cells(6, 7) = "@-Mail :"
.Cells(6, 9) = txbEmail
'Hintergrund der Tabelle
.Cells.Interior.ColorIndex = 31
'Schrift Bereich A1:H6
.Range("A1:I6").Font.ColorIndex = 2
.Range("A1:I6").Font.FontStyle = "Fett"
.Range("A1:I6").Font.Size = 10
.Range("A1:I6").Font.Name = "Tahoma"
Makro3 ' wird leider im Tabellenblatt1 ausgeführt
Mit Gruss
Stefan Glander