VBA Excel verschlugt sich/trägt falsch ein
31.05.2018 11:50:29
christoph
Steht in der Zeile ein Wert in Spalte B soll er in die Zeile von Spalte D bis zur letzten beschriebenen die Werte aus dem Bereich Range D29 bis zur letzten Spalte in Zeile 29 kopieren.
Mein Code dafür sieht folgendermaßen aus.
For Wochentag = 30 To 580
If Range("B" & Wochentag) "" Then
If RaZelle Is Nothing Then
Set RaZelle = Range("D" & Wochentag, Cells(Wochentag, letzteSpalte))
Else
Set RaZelle = Union(RaZelle, Range("D" & Wochentag, Cells(Wochentag, letzteSpalte)))
End If
End If
Next
RaZelle.Value = Range("D29", Cells(29, letzteSpalte)).Value
Nun funktioniert der Code für Zeile 30 - 60 (B ist einheitlich beschrieben)
bis 66 keine Eintragung
ab 67 - 85 verdreht er die Spalten aus der Zeile 29 (also statt in jede Zeile 1 2 3 4 5 6
schreibt er in die erste 6 6 6 6 6 6 6
in die zweite 5 5 5 5 5 5 5
dritte 4 4 4 4 4 4
also er vertauscht Zeile und Spalte
ab Zeile 86 schreibt er #NV (obwohl die Zellen gleichermaßen formatiert sind)
bis Zeile 94
Dann kommen keine Eintragung bis 101
102 - 132 sind perfekt
und dann selbes Fehler bild mit vertauschten Spalten und #NV
Dieses Fehler Bild zieht sich durch bis ans Ende in dieser Reihenfolge.
Wenn ich den For Bereich verkleinere also nur
For 30 to 60
und For 61 to 90
...... und/oder die leeren Spalten auslasse formatiert er es in den selben Spalten die zuvor falsch waren weiterhin falsch.
Jemand ne Erklärung?