Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
344to348
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
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

@Mac4 Worksheet_Calculate

@Mac4 Worksheet_Calculate
05.12.2003 08:00:13
Michael Engelhardt
Hallo Marc,

hab es nach Deinem Tip von gestern abend mal mit Worksheet_Calculate versucht. Aber es kommt zu einer Fehlermeldung. Da ich keine Ahnung von VBA habe, außer Macrorecorder, bin ich auf Deine / Eure Hilfe angewiesen.

Gruß
Michael


Private Sub Worksheet_Calculate(ByVal Target As Range)
If IsError(Target) Then
Target.EntireRow.Hidden = True
Else
Target.EntireRow.Hidden = False
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: @Mac4 Worksheet_Calculate
05.12.2003 08:43:38
Mac4
Hallo Michael,

Target geht im Zusammenhang mit Worksheet_Calculate nicht. Aber noch mal eine Frage:
Wie kommen die neuen Daten in Dein Sheet? Kopieren und einfügen, reinschreiben, Verknüpfung oder wie?

Marc
AW: @Mac4 Worksheet_Calculate
05.12.2003 08:50:41
Michael Engelhardt
Hi Marc,

die Daten kommen per Formel rein. Ich verwende die OLAP Anwendung MIS ALEA 4.0
Die Formel die in der Spalte A steht die als Indikator dient zum Aus- oder Einblenden referenziert also auf auf einen Hypercube in einer OLAP-Datenbank. Aber ich denke mal das ist nicht so wichtig. Denn Formel ist Formel egal wo sie hin greift, oder?

Gruß
Michael
Anzeige
AW: @Mac4 Worksheet_Calculate
05.12.2003 09:22:56
Mac4
Hallo Michael,

hier eine andere Möglichkeit zum ausprobieren. Jetzt wird die Bearbeitung automatisch bei der Aktivierung des Tabellenblattes gestartet.


Private Sub Worksheet_Activate()
Dim Zelle
For Each Zelle In Range("A1:A102")
If IsError(Zelle.Value) Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next
End Sub


Marc
Super Vielen Dank! That´s it !!!
05.12.2003 09:40:31
Michael Engelhardt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige