Hallo,
in Tabelle6 sind Tabellen und Diagramme, in Tabelle7 nur Tabellen. Ich suche beim aktivieren der Tabelle6 in Tabelle7 ein Datum (der1.des Monats) dies funktioniert bis auf einen Fall gut. Ist in Tabelle6 irgendein Diagramm selectiert worden, danach wird eine andere Tabelle aktiv, dann wieder zu Tabelle6, erscheint Fehler Laufzeitfehler13, Typen unverträglich. Wurde in Tabelle6 irgendeine Zelle statt eines Diagrammes selectiert kommt keine Fehlermeldung.
Ich habe es mit folgendem versucht, leider ohne Erfolg:
Application.Goto Reference:=Tabelle6.Range("A1")
Application.CutCopyMode = False
Das Makro läuft auch, wenn ich Range("A1").Select einfüge, aber auf Select wollte ich verzichten.
Wie kann ich erreichen, das mein Makro auch läuft, wenn ein Diagramm selectiert wurde?
Hier ein Auszug aus meinem Makro:
Option Explicit
Private Sub Worksheet_Activate()
Dim mo As Integer, ma As Integer, m As Integer, f As Integer, ZeilenNr As Integer
Dim a As Date, b As Date
Dim Zeile As Range
Dim ZeilDat As Integer
mo = Tabelle7.Range("A65536").End(xlUp).Row
ma = Tabelle6.Range("B65536").End(xlUp).Row
a = Tabelle7.Cells(mo, 1)
'es wird der 1. des jeweiligen Monats ermittelt,
a = DateSerial(Year(a), Month(a), 1)
b = Tabelle6.Cells(ma, 2)
m = Month(a)
If Month(b) = m Then
Else
'damit bei einem neuen Monat keine leeren Zellen in Tabelle Diagramm sind:
'es wird die Zeilennummer des 1.Tages des neuen Monats gefunden und dann die
'Anzahl der Werte am 1. des Monats ermittelt, ist diese = 0 dann gehe zu Ende,
In der nachfolgenden Zeile erscheint der Fehler:
ZeilDat = Tabelle7.Columns("A:A").Cells.Find(what:=a).Row
If Application.WorksheetFunction.CountA(Tabelle7.Range("B" & ZeilDat & ":E" & ZeilDat)) = 0 Then GoTo Ende
usw.
Vielen Dank
Wolfgang