Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
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
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro bei Änderung des Zellinhalts

Makro bei Änderung des Zellinhalts
06.01.2005 16:06:08
Alex
Hallo, ich nochmal.
Das folgende Makro läuft soweit nach meinen Vorstellungen ganz gut, bis auf eine Kleinigkeit, auf die ich nicht komme. Wenn sich nun der Wert in Zelle A71 ändert, dann ändert sich das sichtbare Bild nicht sofort. Ich muss immer erst nochmal ENTER drücken oder irgend eine Zelle auswählen, bevor dies geschieht. Ich hätte es aber gern so, dass sofort nach ändern des Zellinhalts in A71 das entsprechende Bild sichtbar wird. Wie geht das?
Mit aplication.screenupdate... hab ich probiert, bringt nix.
Danke im vorraus.
Gruß

Sub Spiegelwahl()
' Streuspiegel
If ActiveSheet.Cells(71, 1) = 1 Then
ActiveSheet.Shapes.Range("Picture 63").Visible = False
ActiveSheet.Shapes.Range("Picture 74").Visible = True
Else
'Sammelspiegel
ActiveSheet.Shapes.Range("Picture 74").Visible = False
ActiveSheet.Shapes.Range("Picture 63").Visible = True
End If
ActiveSheet.Shapes("Line 45").Rotation = [b90]
ActiveSheet.Shapes("Line 48").Rotation = [b91]
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro bei Änderung des Zellinhalts
Galenzo
rufe dein Makro aus dem Worksheet_Change-Ereignis heraus auf. Sprich:

Private Sub Worksheet_Change(ByVal Target As Range)
Spiegelwahl
End Sub

AW: Makro bei Änderung des Zellinhalts
Alex
Hallo Galenzo, meinst du das so?

Private Sub Worksheet_Change(ByVal Target As Range)
Sub Spiegelwahl()
' Streuspiegel
If ActiveSheet.Cells(71, 1) = 1 Then
ActiveSheet.Shapes.Range("Picture 63").Visible = False
ActiveSheet.Shapes.Range("Picture 74").Visible = True
Else
'Sammelspiegel
ActiveSheet.Shapes.Range("Picture 74").Visible = False
ActiveSheet.Shapes.Range("Picture 63").Visible = True
End If
ActiveSheet.Shapes("Line 45").Rotation = [b90]
ActiveSheet.Shapes("Line 48").Rotation = [b91]
End Sub

End Sub
So funktioniert es nicht, gibt zwar keine Fehlermeldung, aber das Problem besteht weiter. Oder wo muss ich das hin kopieren? Sorry bin totaler Anfänger in VB(A).
Aber schonmal vielen Dank.
Gruß Alex
Anzeige
AW: Makro bei Änderung des Zellinhalts
Rainer
eher so:

Private Sub Worksheet_Change(ByVal Target As Range)
' Streuspiegel
If ActiveSheet.Cells(71, 1) = 1 Then
ActiveSheet.Shapes.Range("Picture 63").Visible = False
ActiveSheet.Shapes.Range("Picture 74").Visible = True
Else
'Sammelspiegel
ActiveSheet.Shapes.Range("Picture 74").Visible = False
ActiveSheet.Shapes.Range("Picture 63").Visible = True
End If
ActiveSheet.Shapes("Line 45").Rotation = [b90]
ActiveSheet.Shapes("Line 48").Rotation = [b91]
End Sub

AW: Makro bei Änderung des Zellinhalts
Galenzo
nö, genauso wie ich es geschrieben habe:

Private Sub Worksheet_Change(ByVal Target As Range)
Spiegelwahl
End Sub

die Prozedur Spiegelwahl hast du doch schon, da wird nix geändert.
diese Prozedur wird dann eben nur immer bei jeder Zelländerung aufgerufen
daher schreibst du den Aufruf in das Worksheet_Change-Ereignis, das jedesmal ausgelöst und abgearbeitet wird, wenn man einen Zellinhalt ändert.
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige