Zellen verbinden/mergen und letzte Zeile ermitteln
19.09.2017 09:55:39
Daniel
ich habe folgendes Problem.
Verbinden / Mergen:
In Spalte A / B und C habe ich jeweils Werte enthalten die ich Verbinden möchte,
Spalte A sollen alle gleichen Werte miteinander verbunden werden, wenn in Spalte B dann innerhalb des verbundenen Bereichs aus Spalte A sich auch Werte wiederholen, sollen diese dann auch Verbunden werden, allerdings eben nur dann wenn in Spalte A verbunden wurde. Die selbe Abhängigkeit gilt für Spalte C.
Aktueller Code für Spalte A:
'Zellen verbinden #1
Set Zelle1 = Cells(4, 1) 'Startzelle
With wks
Do While Zelle1.Value ""
Set Zelle2 = Zelle1.EntireColumn.Find(what:=Zelle1.Value, lookat:=xlWhole, searchdirection:= _
xlPrevious)
If Zelle2.Row > Zelle1.Row Then
Range(Zelle1.Offset(1, 0), Zelle2).ClearContents
Range(Zelle1, Zelle2).Merge
End If
Set Zelle1 = Zelle2.Offset(1, 0)
Loop
End With
Letzte Zeile ermitteln:
Ich habe mehrere Spalten bei denen die gleiche Berechnung stattfinden soll, hierzu will ich den letzten Wert in der Zelle von Spalte E-R ermitteln und dann meine Berechnung ausführen. Wie mache ich das ?
Aktueller Code -> Problem: gibt eine 0 mit für die Zellen in der kein Inhalt steht.
For Each Zelle In wksImport.Range("E4:R900")
If IsNumeric(Zelle) Then
Zelle = Zelle * 1 / 1000
End If
Next Zelle