Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1464to1468
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
Inhaltsverzeichnis

Testen von Private Sub Modulen

Testen von Private Sub Modulen
05.01.2016 11:56:56
Private
Hallo,
erstmal ein gutes neues Jahr
und wie im alten Jahr komme ich mit Fragen, und in diesem Fall vermutlich eine ausgesprochen dämliche Frage:
ich will Zeilen von Tabelle A nach Tabelle B kopieren (hab ich, dazu brauchts keine Info) und die dann unterschiedlich farbig unterlegen. Dazu finde ich immer wieder die folgende (o.ä.) Lösunge:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.UsedRange.EntireRow.Interior.ColorIndex = xlNone
Selection.EntireRow.Interior.ColorIndex = 6                                                  _
_
'   gelb
End Sub

Das Problem?
Wenn ich jetzt im Excel auf Makros gehe, finde ich das nicht (scheint am "Private" und/oder am "(Befehl)" zu liegen?).
Ich will und muß aber unbedingt das Modul einzeln testen, da ich sonst Stunden verdaddel, um bei jedem Test alle Daten entsprechend zu erstellen. Ich habe mir aber ein Testdatei erstellt und brauche nur dieses neue Modul zu starten, aber wie, wenn ich es nicht finde?
Also in Kurzform: wie teste/starte ich innerhalb eines Projektes ein "Private Sub" Modul?
Danke schon mal vorab.
Willi

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

Betreff
Datum
Anwender
Anzeige
AW: Testen von Private Sub Modulen
05.01.2016 13:51:16
Private
Hallo!
Die Ereignismakros treten nur ein wenn das Ereignis ausgelöst wird. In Deinem Fall wenn Du in die Zelle klickst. Das kannst Du nicht manuell auslösen. Du müsstest die Codezeile in eine andere Prozedur in einem allgemeinen Modul packen und dann von dieser aus testen.
Gruß, René

AW: Testen von Private Sub Modulen
05.01.2016 13:51:51
Private
Moin!
Selbst wenn es Public wäre könntest Du es nicht per Alt+F8 starten.
- es handelt sich um ein Ereignismakro
- es erwartet Übergabeparameter
- mich würde mal interessieren, wo du so eine Lösung gefunden hast
Auf ein Neues!
Gruß Ralf

AW: Testen von Private Sub Modulen
06.01.2016 14:52:42
Private
Hallo Zusammen,
man soll es nicht für möglich halten, und manch einem mag es programmiertechnisch die Zähennägel aufrollen, aber so funktioniert es:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sub AAA_Diff_Vergleich()
Dim x1, y1, z1, lngZaehler As Long
Dim Zelle As Range
(wohlgemerkt: alles in ein und demselben Modul) und dann an der Stelle, an der man es benötigt:

ActiveSheet.UsedRange.EntireRow.Interior.ColorIndex = xlNone
Selection.EntireRow.Interior.ColorIndex = 6
Danke an alle, die sich des Problems angenommen haben.
Willi

Anzeige
das Obere nie und nimmer owT
06.01.2016 15:05:39
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige