Das ganze sieht folgendermaßen aus: Es gibt eine Tabelle mit je zwei Spalten pro Mitarbeiter. In eine dieser Spalten wird die Arbeitszeit geschrieben und in der anderen soll die berechnete Arbeitszeit in Stunden eingetragen werden. Das ganze für jeden Tag im Monat.
Die Berechnung etc. ist alles kein Problem nur bei dem einfügen der berechneten Daten in die Zelle passieren merkwürdige Dinge. Eigentlich soll immer nur die Zelle rechts neben der gefüllt werden in die ich die Zeiten schreibe, aber Excel füllt alle Zellen ausgehend von dieser mit dem errechneten Wert. Ich versteh nurnoch Bahnhof.
-------------
Dim Zeile, Spalte As String
Dim ErgebnissPos As String
Spalte = Range(Target.Address).Columns.Address
Spalte = Mid(Spalte, 2, 2)
If Right(Spalte, 1) "$" Then
Spalte = Spalte
Else
Spalte = Left(Spalte, 1)
End If
Dim AsciiString, AsciiStringTemp As String
AsciiStringTemp = Range(Target.Address).Column + 65
If AsciiStringTemp AsciiString = Chr(Range(Target.Address).Column + 65)
End If
If AsciiStringTemp >= "91" Then
AsciiString = "A" & Chr(AsciiStringTemp - 25)
End If
Zeile = Int(Range(Target.Address).Row)
ErgebnissPos = "$" & AsciiString & "$" & Zeile
'Range(ErgebnissPos) = "bla"
MsgBox ErgebnissPos
Range(ErgebnissPos).Value = "bla"
------------
Vermutlich ist diese Lösung seeeehr kompliziert, aber ich hatte keinen anderen Ansatz. Das Problem ist, dass die Tabelle weiter geht als nur bis Z d.h. ich musste mir überlegen, wie ich "weiterzählen" kann um die Position zu ermitteln.
Aus diesem Grund arbeite ich mit den Ascii Codes und wandel die fröhlich hin und her. Das ganze funktioniert auch alles super. MsgBox ErgebnissPos zeigt brav die richtige (schon eins nach rechts verschobene zelle) an, nur das Range(ErgebnissPos).Value = "bla" macht mir Sorgen. Ohne das Range füllt er die aktuelle zelle mit dem Text und zeigt die um eins versetzte Position an. Mit Range zeigt er zuerst die richtige Position an, fängt dann aber an nach rechts zu wandern... Und zwar weit.
Ich hoffe ich habe mein Problem verständlich beschreiben können und hoffe auf kluge Ideen oder Lösungsansätze. Grüße Hajo