Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei der Erstellung einer Prozedur

Hilfe bei der Erstellung einer Prozedur
27.08.2003 10:55:00
Fritz
Hallo VBA Experten,
ich brauche eure Hilfe in Sachen VBA.
Ich möchte gerne, dass bei Aktivierung der "Tabelle1" die Zelle B2 aktiviert wird. Aktiviert man später (z.B. per Mausklick) in diesem Tabellenblatt die Zelle B3, dann soll das Makro1 gestartet werden. Aktiviert man die Zelle B4, dann soll das Tabellenblatt "Tabelle2", bei Aktivierung der Zelle B4 das Tabellenblatt "Tabelle3" aufgerufen werden.
Besten Dank bereits an dieser Stelle für eure Hilfen.
Mfg Fritz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei der Erstellung einer Prozedur
27.08.2003 11:10:42
Nike
Hi,
alles in den Code der Tabelle:

Private Sub Worksheet_Activate()
'bei Aktivierung der "Tabelle1" die Zelle B2 aktiviert wird.
Range("B2").Activate
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Zelle B3, dann soll das Makro1 gestartet werden
If Target.Column = 2 Then
If Target.Row = 3 Then
Call Makro1
End If
'B4, dann soll das Tabellenblatt "Tabelle2",
If Target.Row = 4 Then
Worksheets("Tabelle2").Activate
End If
'bei Aktivierung der Zelle B5 das Tabellenblatt "Tabelle3" aufgerufen werden.
If Target.Row = 5 Then
Worksheets("Tabelle3").Activate
End If
End If
End Sub

Sub Makro1()
MsgBox "Hallo"
End Sub

Bye

Nike
Anzeige
AW: Hilfe bei der Erstellung einer Prozedur
27.08.2003 11:25:27
Fritz
Hallo Nike,
die Sache funktioniert dank Deiner Hilfe inzwischen einwandfrei.
Nochmals besten Dank.
Mfg Fritz

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige