Daten ermitteln und Eintragen
14.01.2005 20:51:18
BigWoelfi
ich versuche hier mit nachfolgendem Worksheet_Change, dass nach Eingabe einer Zeichenkombination in einer Tabelle (Beispielsweise "LT") diese Angabe durch ein Makro weiterverarbeitet wird, so dass man unter Berücksichtigung aller infrage kommenden Kürzel entsprechende Daten in andere Zellen des aktiven Tabellenblattes vornimmt.
Das Problem ist, dass ich von dem Worksheet_Change, befindet sich in der Tabelle, das Kürzel nicht an das Makro übergeben bekomme, so dass das Makro eben auch nicht arbeitet.
Ich weiß, dass man das gelich im Worksheet_Change weiter verarbeiten könnte. Ich brauche das aber in 12 Tabellenblättern, so dass ich über das Makro (und es müssen weitere folgen) so vereinfachen wollte, dass die Worksheet_Change von allen Tabellenblättern diese Makros dann nutzen.
Bisher:
Option Explicit
Public TBD As Object, TBA As Object, Zeile As Integer, DART
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C11:C41")) Is Nothing Then GoTo ZWEI
If Target.Cells.Count <> 1 Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Set TBD = Worksheets("Daten")
Set TBA = ActiveSheet
Zeile = Target.Row
DArt = Target.Value (In DArt steht jetzt auch der richtige Wert)
Call DatenHolen
Application.EnableEvents = True
End Sub
Der Beginn des Makro:
Option Explicit
Public TBD As Object, TBA As Object, DArt, PST, PVon, PBis, Pause, Zeile As Integer
Public Sub DatenHolen()
Set TBD = Worksheets("Daten")
Set TBA = ActiveSheet
MsgBox "im Makro mit DArt: " & DArt
Und hier hakt es bereits, weil DArt leer ist.
Woran kann es liegen?
Danke vorab, Wolfgang