VBA mehrere Zellen abfragen (Or)

Sub Anzeige_wechseln() If Workbooks("SG Kolping Remscheid lll -.xlsm").Worksheets("Spielbericht").Range("S40").Value "" Then Workbooks("Spielstandanzeige.xlsm").Worksheets("Anzeige").Range("G11").Value = "S" End If If Workbooks("SG Kolping Remscheid lll -.xlsm").Worksheets("Spielbericht").Range("S40").Value = "" Then Workbooks("Spielstandanzeige.xlsm").Worksheets("Anzeige").Range("G11").Value = "A" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaaa() Dim strOUT As String With Workbooks("SG Kolping Remscheid lll -.xlsm").Worksheets("Spielbericht") Select Case True Case .Range("S40") "", .Range("S44") "", .Range("S48") "", .Range("S52") "" strOUT = "S" Case Else: strOUT = "A" End Select End With Workbooks("Spielstandanzeige.xlsm").Worksheets("Anzeige").Range("G11") = strOUT End Sub

Private Sub worksheet_change(ByVal Target As Excel.Range) Application.ScreenUpdating = False If Intersect(Target, Range("G11")) Is Nothing Then Exit Sub Else If Target.Value = "S" Then Range("A1").FormulaR1C1 = _ "='[SG Kolping Remscheid lll -.xlsm]Spielbericht'!R26C41" Range("A16:F50,H16:M50").ClearContents With Range("A16:F50,H16:M50") .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With Range("A16:F50").FormulaR1C1 = _ "='[SG Kolping Remscheid lll -.xlsm]Spielbericht'!R30C41" Range("H16:M50").FormulaR1C1 = _ "='[SG Kolping Remscheid lll -.xlsm]Spielbericht'!R30C44" End If End If Application.ScreenUpdating = True End Sub

Private Sub worksheet_change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("S40,S44,S48,S52")) Is Nothing Then hier der Code der ausgeführt werden soll, wenn eine dieser Zellen geändert wurde end If End sub

Wenn du automatisch erkennen willst, dass die Zelle A1 auf dem Tabellenblatt "Tabelle1" von Anwender geändert wurde und dadurch ein Makro ausgelöst werden soll, brauchst du dazu das Change-Eventmakro im Modul des Tabellenblatts "Tabelle1"
alles andere geht nicht. VERSTANDEN?
du kannst nicht von der Mappe2 aus die Mappe1 automatisiert auf Veränderung überwachen.
So eine Überwachung funktioniert nur innerhalb der eigenen Mappe.
Ist wie ein Brandmelder. Den musst du auch in dem Zimmer installieren, das überwacht werden soll.
selbst wenn du einen Brandmelder hast, der bei Alarm nicht nur piept, sondern auch die Feuerwache alamieren soll.
Der Brandmelder muss in deinem Zimmer installiert werden und nicht auf der Feuerwache.
Der Brandmelder kann zwar ein Signal an die Feuerwache funken, wenn er in deinem Zimmer ist, aber er kann nicht den Rauch in deinem Zimmer erkennen, wenn er auf der Brandwache liegt.
hast du uns schon erklärt, was du genau erreichen willst (und war so ausführlich, dass jemand der deine Datei nicht vor sich hat und deine Aufgabenstellung nicht kennt, das auch versteht), wenn nein, solltest du das vielleicht erstmal tun (und zwar ohne daran zu denken, wie das vielleicht programmiert werden kann, sondern einfach: wer macht was und was soll darauf hin passieren)
wenn ja, wo kann ich das nachlesen.
vermeide dabei auch möglichst passiv-konstruktionen wie "Zelle xy ändert sich" oder "Zelle xy wird geändert" weil hier einfach die wichtige Information fehlt, wer oder was die Zellen xy ändert.
Gruß Daniel

Hallo Marc,
ich verfolge seit einigen Thread deine Hilfslosigkeit, die Erkärungen, die Dir gegeben worden sind, zu verstehen. Ich glaube, Du bist auf die Lösung des Problems so fixiert, dass Du die Zusammenhänge nicht erfassen kannst (vor lauter Bäumen den Wald nicht sehen. Kenne ich selber).
Abstand nehmen, tief einatmen. Zuerst verstehen, dann lösen.
Alles was in Tabelle1 passiert löst ein "eigene" Ereignis. Diese eigene Ereignisse sind alle in der eigene Codepane aufgelistet (erreichbar am einfachste mit Rechtsklick auf dem Tabellenblatt-Reiter mit "Code anzeigen").
Dann dort über den Codefenster oben links anstatt "allgemein" "Worksheet" auswählen.
Auf dieselbe Höhe rechts kommt jetzt in der Dropdown viele Einträge, u.a. Change. Das sind die verfügbare Ereignisse. Schau Dir an, was alles zur Verfügung steht. Diese reagieren alle auf Ereignis die in Tabelle 1 passieren. Diese Schritt hast Du offenbach hinter Dir.
Solltest Du eine Reaktion haben wollen, wenn etwas auf Tabelle2 passiert, same Procedure, aber im Codepane von Tabelle2.
Solltest Du eine Reaktion haben wollen, wenn etwas Tabellen unabhängig passiert, dann schaue in der Codepane namens "DieseArbeitsmappe". Es sind andere Ereignis. Z.B. "Before Close". Warum? weil es hier um das Objekt Arbeitsmappe handelt, der die Arbeitsmappe-Ereignis behandelt.
Im Prinzip, wenn dasselbe passieren soll, wenn in den jeweiligen "G11" passiert, dann kannst Du in den jeweiligen Codepane eine Basis-Behandlung machen und die tatsächlich Behandlung (den Du nicht 10 mal schreiben möchte) in einem Modul ablegen. Es handelt sich in dem Fall um eine normalen Procedure und keine Eregnis.
Also in Codepane von Tabelle1, wenn G11 und S4x behandelt werden sollen:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Address(False, False)
Case "G11"
MeinBehandlungFür_G11 Target
Case "S40", "S42", "S44"
MeinBehandlungFür_Sxx Target
End Select
End Sub

In Codepane von Tabelle2, wenn nur G11 behandelt werden soll:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Address(False, False)
Case "G11"
MeinBehandlungFür_G11 Target
End Select
End Sub

usw.
Wenn diese Procedure (= "Sub" oder "Function". Function ist ein Sub, das ein Ergebnis zurückliefern darf) in einem anderen Datei liegt, dann muss Du den Code mitteilen, wo diese Procedure zu finden sei.
Im Allgemein beachte folgende Grundwissen:
https://de.wikibooks.org/wiki/VBA_in_Excel/_G%C3%BCltigkeit_von_Variablen_und_Konstanten
VG
Yal

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

28 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA mehrere Zellen abfragen (Or)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

28 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread