Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@Mac4 Worksheet_Calculate

Forumthread: @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

Anzeige

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
Anzeige
Super Vielen Dank! That´s it !!!
05.12.2003 09:40:31
Michael Engelhardt
;

Beliebteste Forumthreads (12 Monate)

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