Testen von Private Sub Modulen
05.01.2016 11:54:48
Private
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