ich habe ein Problem:
Ich möchte, dass sich auf ein Kommando vier Zeilen automatisch in die Liste einfügen. Die vier Zeilen sollen dann beschriftete werden.....
Ich habe das so gelöst. Jedoch ist meine Variante seeeeeehr langsam......
Hat jemand eine bessere Idee?
Bin für Vorschläge echt dankbar und wollte mich an dieser Stelle auch für die nette und schnelle Hilfe bei anderen Problemen bedanken.....................
With Sheets("Rod")
ZeileMax = .Range("A100").End(xlUp).Row
zähler = 3
For zeile = ZeileMax To 2 Step -1
If Cells(zeile, 1).Value = "Gesamt" Then
.Cells(zeile, 1).EntireRow.Insert
.Cells(zeile, 2) = "Summe von Zeit Mechanik"
.Cells(zeile, Spalte) = TextBox7.Text
.Cells(zeile, 1).EntireRow.Insert
.Cells(zeile, 2) = "Summe von Zeit Finish"
.Cells(zeile, Spalte) = TextBox6.Text
.Cells(zeile, 1).EntireRow.Insert
.Cells(zeile, 2) = "Summe von Zeit Lackierer"
.Cells(zeile, Spalte) = TextBox5.Text
.Cells(zeile, 1).EntireRow.Insert
.Cells(zeile, 2) = "Summe von Zeit Spengler"
.Cells(zeile, Spalte) = TextBox4.Text
.Cells(zeile, 1) = TextBox1.Text
End If
Next zeile