Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eintrag in Zelle löst Makro aus...

Eintrag in Zelle löst Makro aus...
19.05.2004 22:09:12
Roland
Hallo!
Folgendes soll passieren:
1. In die Zelle A1 wird irgendetwas geschrieben, nach verlassen der Zelle (Eingabe, Tabulator usw.) soll automatisch ein Makro ausgeführt werden, oder eine UserForm gestartet werden.
2. In die Zelle A2 erfolgt ein Eintrag. Nach verlassen der Zelle (Eingabe, Tabulator usw.) soll die Tabelle 2 automatisch umbenannt werden. Also z.B. Zelle A2 = Test - Tabelle 2 wird umbenannt in "Test".
Beide Punkte sind voneinander unabhängig, kommen aber in ein un demselben Workbook vor.
Bitte um Unterstützung, danke!
Grüße
Roland

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eintrag in Zelle löst Makro aus...
19.05.2004 22:13:45
Boris
Hi Roland,
schau dir das Worksheet_Change-Ereignis an.
Den Rest wirst du mit "VBA-gut" dann sicher selbst hingekommen.
Grüße Boris
AW: Eintrag in Zelle löst Makro aus...
19.05.2004 22:21:38
Roland
Okay, hast mich erwischt... VBA nicht so gut, bin am lernen und hab sicher schon einiges erreicht und bin daher wohl etwas zu selbstbewußt.
Ich bitte dich daher mir doch noch etwas mehr zu helfen! DANKE!
Grüße
Roland
AW: Eintrag in Zelle löst Makro aus...
19.05.2004 22:49:08
Josef Ehrensberger
Hallo Roland!
Als Denkanstoß.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'Ausführen eine Makros bei Eintrag in "A1"
If Target.Address = "$A$1" Then MsgBox "Hallo!" 'MsgBox ersetzen durch Makro!
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'Umbenennen der Tabelle bei Eintrag in "A2", Tabellenname = "A2"
On Error GoTo FEHLER
If Target.Address = "$A$2" Then Me.Name = [A2]: Exit Sub
FEHLER:
MsgBox "Ungültiger Eintrag!", vbExclamation
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Sepp
Anzeige
AW: Eintrag in Zelle löst Makro aus...
19.05.2004 22:52:56
Boris
Hi Roland,
quick an dirty - als Ereigniscode im Modul der entsprechenden Tabelle:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
MsgBox "Ich bin Makro 1"
ElseIf Target.Address(0, 0) = "A2" Then
On Error GoTo fehler
Worksheets(2).Name = InputBox("Tabelle2 umbenennen", "Umbenennen", "Neuer Name")
End If
Exit Sub
fehler:
MsgBox "Ungültiger Blattname"
End Sub

Grüße Boris
AW: Eintrag in Zelle löst Makro aus...
19.05.2004 22:59:10
Boris
Hi,
die Inputbox is natürlich überflüssig:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
MsgBox "Ich bin Makro 1"
ElseIf Target.Address(0, 0) = "A2" Then
On Error GoTo fehler
Worksheets(2).Name = [a2]
End If
Exit Sub
fehler:
MsgBox "Ungültiger Blattname"
End Sub

Grüße Boris
Anzeige
AW: Eintrag in Zelle löst Makro aus...
20.05.2004 00:44:11
Roland
Hallo Boris!
Vielen Dank!
Ich habs jetzt auch selbständig (!) geschafft, gleich mehrere Tabellenblätter namentlich zu ändern! Hier mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
MsgBox "Super! ", 64, "Anker versichert - Sicher verankert"
ElseIf Target.Address(0, 0) = "A2" Then
On Error GoTo fehler1
Worksheets(2).Name = [a2]
Columns("A:A").ColumnWidth = 3.86
Columns("A:A").EntireColumn.AutoFit
End If
If Target.Address(0, 0) = "A3" Then
On Error GoTo fehler2
Worksheets(3).Name = [a3]
Columns("A:A").ColumnWidth = 3.86
Columns("A:A").EntireColumn.AutoFit
End If
If Target.Address(0, 0) = "A4" Then
On Error GoTo fehler3
Worksheets(4).Name = [a4]
Columns("A:A").ColumnWidth = 3.86
Columns("A:A").EntireColumn.AutoFit
End If
Exit Sub
fehler1:
MsgBox "Ungültiger Blattname! Geben Sie einen anderen Namen ein!", 16, "Anker versichert - Sicher verankert"
Range("A2") = "Tabelle2"
Range("A2").Select
Exit Sub
fehler2:
MsgBox "Ungültiger Blattname! Geben Sie einen anderen Namen ein!", 16, "Anker versichert - Sicher verankert"
Range("A3") = "Tabelle3"
Range("A3").Select
Exit Sub
fehler3:
MsgBox "Ungültiger Blattname! Geben Sie einen anderen Namen ein!", 16, "Anker versichert - Sicher verankert"
Range("A4") = "Tabelle4"
Range("A4").Select
End Sub


Vielleicht etwas umständlich, aber hey, es funkt! ;-)
Danke!
Grüße
Roland
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige