Makroanpassung !
09.06.2009 07:16:53
Ernst
Hallo Vba Experten !
https://www.herber.de/bbs/user/62289.zip
Ich würde eure Hilfe benötigen es geht um ein Abfragemakro, wenn ich im Tabellenblatt2 Archiv eine Abfrage mache zb Nr.4739 und es steht ein Datum in Spalte H5 so sehe ich bei der Auswertung 7 obwohl nur ein Datum Dieser Nummer zugeordnet ist.
Sind jedoch die Spalten B5-H5 befüllt stimmt die Auswertung.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim n As Integer
Dim S As Integer
Dim RL As Range
Dim Zx As Long
Dim RA As Range
If Target.Address = "$G$2" Then
If IsDate(Target.Value) And IsDate(Target.Offset(0, -2).Value) Then
If Target.Value > Target.Offset(0, -2).Value Then
Zx = Worksheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row
Application.EnableEvents = False
Target.Offset(0, 2).Value = 0
Target.Offset(0, 4).Value = 0
Target.Offset(0, 6).Value = 0
For Each RL In Worksheets("Archiv").Range("A5:A" & CStr(Zx))
S = Zuordnung(RL.Value)
Select Case S
Case 1
n = 2
Case 5
n = 4
Case 9
n = 6
End Select
Zx = Worksheets("Archiv").Cells(RL.Row, Columns.Count).End(xlToLeft).Column - 1
Target.Offset(0, n).Value = Target.Offset(0, n).Value + Zx
Next
Application.EnableEvents = True
End If
End If
End If
If Target.Address = "$K$4" Then
If IsDate(Target.Offset(0, -4).Value) And IsDate(Target.Offset(0, -2).Value) Then
If Target.Offset(0, -2).Value > Target.Offset(0, -4).Value Then
Zx = Worksheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row
Application.EnableEvents = False
Target.Offset(0, 2).Value = 0
For Each RL In Worksheets("Archiv").Range("A5:A" & CStr(Zx))
If RL.Value = Worksheets("Archiv").Range("K4").Value Then
Zx = Worksheets("Archiv").Cells(RL.Row, Columns.Count).End(xlToLeft).Column _
- 1
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + Zx
End If
Next
Application.EnableEvents = True
End If
End If
End If
End Sub
Wäre für Lösungsvorschläge dankbar
lg.Ernst