53111
Oct 18, 2007, updated at 10:07:15 (UTC)
17400
1
0
macro vba bei tabellenwechsel ausführen excel
wie mache ich es dass bei einem bestimmten tabellenwechsel innerhalb einer excel mappe eine macro bzw. vba ausgeführt wird.
z.b soll beim wechsel von "tabelle 1" auf "tabelle 2" folgendes für Tabelle 2 ausgeführt werden:
[CODE]
Sub bold()
Dim i%
i = 1
With ActiveWorkbook.Sheets(2)
Do Until i = 50
If .Cells(i, 1).Value = "" Then
.Rows(i - 1).Select
Selection.Font.bold = True
End If
i = i + 1
Loop
End With
End Sub
[/CODE]
umgekehrt sollen auch beim wechsel von tabelle 2 auf tabelle 1 wechsel ausgeführt werden.
z.b soll beim wechsel von "tabelle 1" auf "tabelle 2" folgendes für Tabelle 2 ausgeführt werden:
[CODE]
Sub bold()
Dim i%
i = 1
With ActiveWorkbook.Sheets(2)
Do Until i = 50
If .Cells(i, 1).Value = "" Then
.Rows(i - 1).Select
Selection.Font.bold = True
End If
i = i + 1
Loop
End With
End Sub
[/CODE]
umgekehrt sollen auch beim wechsel von tabelle 2 auf tabelle 1 wechsel ausgeführt werden.
Please also mark the comments that contributed to the solution of the article
Content-Key: 71274
Url: https://administrator.de/contentid/71274
Printed on: April 19, 2024 at 01:04 o'clock
1 Comment
Hallo saibonaut!
Rechtsklick auf Blattregister des jeweiligen Tabellenblattes in der Arbeitsmappe - "Code anzeigen", im Codefenster ein "Private Sub Worksheet_Activate()" und / oder "Private Sub Worksheet_Deactivate()" erstellen und den Code aus "Sub bold()" dort platzieren.
Grüße
bastla
P.S.: Zum Formatieren als "Code" nicht , sondern <> verwenden.
Rechtsklick auf Blattregister des jeweiligen Tabellenblattes in der Arbeitsmappe - "Code anzeigen", im Codefenster ein "Private Sub Worksheet_Activate()" und / oder "Private Sub Worksheet_Deactivate()" erstellen und den Code aus "Sub bold()" dort platzieren.
Grüße
bastla
P.S.: Zum Formatieren als "Code" nicht , sondern <> verwenden.