Hallo Experten,
ich stehe mit meinem (funktionierendem) Code zum einfügen einer Leerzelle in ein Exceltabellenblatt vor einem Problem.
Code:
Function TryLeereZelleEinf(Zeile, Spalte)
Dim vbSpalte As Variant
vbSpalte = Range(Cells(Zeile, Spalte), Cells(Cells(Rows.Count, Spalte).End(xlUp).Row, Spalte))
Range(Cells(Zeile + 1, Spalte), Cells(Cells(Rows.Count, Spalte).End(xlUp).Row + 1, Spalte)) = vbSpalte
Cells(ActiveCell.Row, Spalte) = "" ' häßlich!!- aber derzeit notwendig
End Function
Sub ZelleEinf()
Call TryLeereZelleEinf(ActiveCell.Row, ActiveCell.Column)
End Sub
Wie schaffe ich es beim Einfügen einer Leerzelle, dass diese dritte häßliche Programmierzeile wegfällt und nur noch ganz elegant die ersten beiden Programmierzeilen übrigbleiben.
Hallo!
Stimmt, hübsch hässlich … :21:
Würde nicht (kompletter Code!) folgendes reichen?
ActiveCell.Insert xlShiftDown
Gruß Ralf
Hallo Ralf,
danke für deine Antwort, aber leider reicht dies nicht. Es muss über Felder laufen, da es darum geht sehr viel Text eine Zelle nach unten zu verschieben.
Nichts anderes macht mein Einzeiler, Algor.
Vielleicht bin ich heute begriffsstutzig, vielleicht hast Du Deine Anforderung aber auch ungenau formuliert.
Beispieldatei?
Gruß Ralf
Hi,
und warum nicht so?
Code:
Function TryLeereZelleEinf(Zeile, Spalte)
Range(Cells(Zeile, Spalte), Cells(Cells(Rows.Count, Spalte).End(xlUp).Row, Spalte)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Function
Sub ZelleEinf()
Call TryLeereZelleEinf(ActiveCell.Row, ActiveCell.Column)
End Sub
oder noch kürzer:
Code:
Sub ZelleEinf()
ActiveCell.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
[edit]
Ooh, sehe grade, das ist ja genau das, was Ralf schon vorgeschlagen hat.
Hi Ralf!
Siehe #2
Ich nehme allerdings immer die korrekte XlInsertShiftDirection-Enumeration auch, wenn es "kürzer" geht.
Zu CopyOrigin wollte ich nichts schreiben, da TE zu ungenau war.
Ebenfalls EDIT:
Dann sind wir uns ja mal wieder einig! :19:
Gruß Ralf
Hallo Zusammen,
Insert ist langsamer als das Verschieben per Feldvariable. Siehe
http://www.clever-excel-forum.de/Thread-...meldung-NV
@Algor
Geht es um einen Codedesignwettbewerb? Ich verstehe Dein Problem gar nicht. Wenn eine Zelle geleert werden soll, muss das halt entsprechend programmiert werden. Da ist doch gegen Deine "hässliche" Zeile nichts einzuwenden. Schneller gehts nicht.
Gruß Uwe
Hi,
(08.02.2016, 15:22)Kuwer schrieb: [ -> ]Da ist doch gegen Deine "hässliche" Zeile nichts einzuwenden. Schneller gehts nicht.
.ClearContents
oder so?
Hi Uwe!
Zitat:Insert ist langsamer als das Verschieben per Feldvariable.
Akademische Diskussion?
Es geht um das Einfügen EINER leeren Zelle.
Auch, wenn Algor wohl eine Kalkulation mit einer Textverarbeitung (Zitat: "Sehr viel Text") verwechselt, kann ich mir nicht vor- und werde es auch nicht nachstellen, dass dies bei einer Zelle bemerkbar sein sollte.
Es werden sicherlich (intern) nicht alle Zellen einzeln ausgeschnitten und im Offset eingefügt, sondern eher die Bezüge angepasst.
My two cents,
Ralf
(08.02.2016, 15:50)RPP63 schrieb: [ -> ]Zitat:Insert ist langsamer als das Verschieben per Feldvariable.
Akademische Diskussion?
Es geht um das Einfügen EINER leeren Zelle.
Auch, wenn Algor wohl eine Kalkulation mit einer Textverarbeitung (Zitat: "Sehr viel Text") verwechselt, kann ich mir nicht vor- und werde es auch nicht nachstellen, dass dies bei einer Zelle bemerkbar sein sollte.
Es werden sicherlich (intern) nicht alle Zellen einzeln ausgeschnitten und im Offset eingefügt, sondern eher die Bezüge angepasst.
vielleicht, vieleicht auch nicht ...
Gruß Uwe