Per Makro Werte aus anderen Makros rauskopieren
26.05.2006 13:28:16
Georg
Leider konnten ich bei Recherchen im Forum bis jetzt keine Lösung finden.
Also, ich habe in einem Modul viele unterschiedliche Makros (so ca. 80 Stk.)
die aber alle eines gemeinsam haben. Sie schreiben einen bestimmten Wert Range(....).value = "30" in eine Zelle.
Nun benotige ich in einen weg, wie ich aus einem bestimmten Makro (welches natürlich bei jeder Makro-Anwendung ein anderes ist)diese Information hole.
Beispiel:
In den unten aufgeführten SUBs stehen Werte die mit einem REM-Vermerk gekennzeichnet sind: "20" ' Wie kann ich diese Werte (die zahl 20, links neben dem REM-Vermerk) mit einem anderen Makro finden, auslesen und verwenden?
Sub testsub1()
'dies ist ein Beispielsub
Range("A1").Select
MsgBox (ActiveCell.Address)
ActiveCell.Offset(1, 1).Value = "30" '<--- Info
'hier steht
'noch mehr
'wilder code
End Sub
____________________________________________________________________
Sub testsub2()
'dies ist noch ein Beispielsub
Range("A2").Select
MsgBox (ActiveCell.Address)
ActiveCell.Offset(1, 1).Value = "20" '<--- Info
'hier steht
'wieder
'wilder code
End Sub
_____________________________________________________________________
Sub testsu3()
'dies ist schon wieder ein Beispielsub
Range("A3").Select
MsgBox (ActiveCell.Address)
ActiveCell.Offset(1, 1).Value = "10" '<--- Info
'hier steht
'code übercode
'u.s.w.
End Sub
.
.
.
______________________________________________________________________
Wie kann ich die ganzen vorhandenen Makros/SUBs auflisten und zur auswahl stellen (um anschliessend dort die gewünschte information auszulesen?)
Ich hoffe ihr könnt mir helfen.
Danke
Gruß
Georg