in Zelle einschreiben
Manfred
ich finde die richtige Zeile nicht.
Das Programm nimmt ab Sp B2 nach unten die Referenz und Schreibt Daten ab Sp D2 nach unten ein.
Nun möchte ich wegen Änderungen alles ab Sp B10 und Sp D10 beginnen lassen.
Ich finde jedoch die richtigen Änderungen nicht.
Kann mir jemand helfen ?
Private Sub A3_Punkte_berechnen()
Dim TabPu As Worksheet
Dim Zeile As Long, Spalte As Long, AnZ As Long, a As Long
Dim von As Long, bis As Long, posZ As Long, Zähler As Byte
'ActiveSheet.Unprotect Password:=""
Application.ScreenUpdating = False
Range("D10:D129").ClearContents
AnZ = Application.WorksheetFunction.CountA(Range("B10:B129"))
Zähler = 0
Set TabPu = Sheets("Punktetabelle")
Zeile = AnZ - 6
With TabPu
For a = 1 To AnZ
If Cells(a + 1, 1) = .Cells(1, .Cells(1, a + 1).Column) Then
Cells(1 + a, 4) = .Cells(Zeile, .Cells(1, a + 1).Column)
Else
Nächste:
If InStr(1, .Cells(1, 6 + Zähler), "-") > 0 Then
posZ = InStr(1, .Cells(1, 6 + Zähler), "-")
von = Left(.Cells(1, 6 + Zähler), posZ - 1)
bis = Right(.Cells(1, 6 + Zähler), Len(.Cells(1, 6 + Zähler)) - posZ)
If (Cells(a + 1, 1) >= von) And (Cells(a + 1, 1) 10 Then GoTo KeineWerteung:
GoTo Nächste:
End If
Else
End If
End If
KeineWerteung:
Zähler = 0
Next a
End With
Application.ScreenUpdating = True
Range("A1").Select
'ActiveSheet.Protect Password:=""
End Sub
Mit freundlichen Grüßen
Manfred