immer wenn in der Zelle ne 2 steht (bei mir in [C 15]) soll sich die komplette Zeile [15]
2* untereinander kopieren. (andere spalten dürfen nicht überschrieben werden)
bei ner 3 (bei mir in [C 16]) soll sich die komplette Zeile [16]
3* untereinander kopieren.
usw.
ich kenn mich mit der wenn Formel und mit Makros aus. (Visual Basic kenn ich auch ein wenig)
aber wie bau ich ein Makro in ne Wenn Formel ein?
falls jemand ne andere Idee hat oder funktionen in excel kennt die mir helfen könnten nehm ich sie mit Freuden entgegen, den meine Idee ist mit Sicherheit nicht die aller beste.
immer wenn in der Zelle ne 2 steht (bei mir in [C 15]) soll
sich die komplette Zeile [15]
2* untereinander kopieren. (andere spalten dürfen nicht
überschrieben werden)
Mich würde interessieren was in C1:C14 steht, nur Einser?
ich kenn mich mit der wenn Formel und mit Makros aus. (Visual
Basic kenn ich auch ein wenig)
aber wie bau ich ein Makro in ne Wenn Formel ein?
Ein Makro was eine Sub ist gar nicht. Ein Makro was eine Funktion ist kannst du in eine Wenn-Formel einbauen, die Funktion liefert einen Wert zurück.
Auf diesem Wege was zu kopieren oder Zeilen einzufügen geht gar nicht.
falls jemand ne andere Idee hat oder funktionen in excel kennt
die mir helfen könnten
Nein, geht nur mit vba.
Teile uns nitte genauer mit was da so in Spalte C steht.
Wenn da in C eine 1 steht, soll dann die Zeile nicht 1mal kopiert werden?
Ein Makro was eine Sub ist gar nicht. Ein Makro was eine
Funktion ist kannst du in eine Wenn-Formel einbauen, die
Funktion liefert einen Wert zurück.
???
was ist der unterschied zwischen sub makro und dem makro was
eine funktion ist?
okay, ich habe mich unklar ausgedrückt.
Es sind beides Prozeduren. VBA kennt 3 Prozeduren, Sub, Function, Proberty.
Lassen wir mal die dritte weg.
In eine Excelformel oder als Excel-Funktion kannst du nur eine Function einbauen, keine Sub.
Das ist eine Sub:
Sub Name()
…
End Sub
Das eine Funktion:
Function Name()
…
End Function
Und mit irgendeiner Execlformeln kannst du keine Zeilen oder spalten einfügen lassen, das geht nur mit Vba oder manuell.
geht nur mit vba.
kann mir jemand nen code geben, einbauen und umschreiben kann
ich den, aber komplett selber schreiben kann ich den nicht.
Okay, mache ich nachher, muß jetzt weg.
Ist sicher gut, weil da habe ich es einfacher und du auch weil du dann nichts mehr im Code anpasen mußt, wenn du mir die Mappe hochlädst mit FAQ:2606
Wenn vertrauliche Daten in anderen Spalten stehen so lösche in einer Kopie deren Inhalte, mich interessiert nur Spalte C.
Andere Blätter der Mappe kannste auch löschen.
immer wenn in der Zelle ne 2 steht (bei mir in [C 15]) soll
sich die komplette Zeile [15]
2* untereinander kopieren. (andere spalten dürfen nicht
überschrieben werden)
bei ner 3 (bei mir in [C 16]) soll sich die komplette Zeile
[16]
3* untereinander kopieren.
hallo Panter,
bitte respektiere wenn ich sage FAQ:2606 , damit ist nicht gemeint daß du mir das privat mailst.
Probiers mal so:
Sub tt()
Dim Zei As Long
Application.ScreenUpdating = False
For Zei = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If Cells(Zei, 3).Value \>= 2 And Cells(Zei, 3).Value
Gruß
Reinhard
aber verstehe den Code sehr schlecht (hab mangelnde vba
Kenntnisse)
For Zei = Cells(Rows.Count, 3).
Rows.Count, 3 ist wohl für spalte 3
Ja, A ist 1 usw, AA ist 27…
den Rest versteh ich nur sehr schlecht
Normal, habe ich wo ich deinen Vba-Kenntnisstand hatte auch nie kapiert.
Mit Cells(Rows.count,3) bist du quasi in der untersten Zelle von Spalte C (=3)
Dann kommt .End(xlup), das entspricht exakt dem als wenn du manuell in der untersten zelle von C stehst und dann Strg+Pfeil nach oben machst.
Damit stehst du in der untersten belegten zelle in C.
Dann mit dem anschließenden .Row weiß man die Zeilennummer.
was müsste verändert werden wenn es auch die Zahl 10 gäbe?
Durch die Zeile
If Cells(Zei, 3).Value >= 2 And Cells(Zei, 3).Value = 2 And Cells(Zei, 3).Value
in der Spalte [C] sind Zahlen von 1 bis 6.