Zeilen einfügen
Hallo,
kann mir jemand bitte helfen einen VBA code zu schrieben.
Ich möchten in einem markierten bereich dazwischen Zeilen einfügen,
so viele wie dazugekommen sind sollen wieder unter wieder zeilen gelöscht werden.
Gruß, Ala
Antwort schreiben
Antwort 1 von Saarbauer vom 21.03.2020, 16:34 Options
Hallo,
warum zeichnest du kein Makro auf?
Mit deiner Darstellung des Problems komme ich nicht ganz klar.
Zitat:
Ich möchten in einem markierten bereich dazwischen Zeilen einfügen,
so viele wie dazugekommen sind sollen wieder unter wieder zeilen gelöscht werden.
insgesamt etwas unverständlich. Welcher Bereich ist makiert?
Wo Dazwischen und wo unten löschen?
Gruß
Helmut
Antwort 2 von ala vom 21.03.2020, 17:42 Options
Hallo Sauerbauer,
danke das du mir helfen willst !!!
Also ich habe einen Bereich von (A27:D50).
spalte A:Menge Spalte B:Artikel Spalte C: Preis Spalte D: Gesamt
Zeile 1 4 Apfel 1,2 8,00
Zeile 2 6 Birne 2,0 7,00
Zelle 3 7 Bananen 4,20 12,00
Nun möchte ich das er automatisch zur erstbeschriebene Zeile springt (in Spalte A) und dadrüber eine Leere Zeile einfügt bis zur Zeile A27.
Weiterhin will ich das die dazu gekommenen leeren Zeilen nicht A50 überschreiten (WICHTIG) !
Gruß, Ala
Antwort 3 von Saarbauer vom 21.03.2020, 18:03 Options
Hallo,
ich scheine zu blond zu sein.
Deien erste beschriebene Zeile ist nach den vorher gemachten Angaben aus meiner Sicht A27 oder steht davor noch was?
Wenn davor noch was steht ist es min. die Zelie 1 und max. Zeile 26, leider alles etwas wage beschrieben.
Hast du es mal mit der Makroaufzeichnung versucht?
Du solltest daran denken, du kennst deine Tabelle und wir nur eine hier veröffentlichen Angaben
Gruß
Helmut
Antwort 4 von ala vom 22.03.2020, 17:34 Options
Hallo,
was für ein Befehl muss ich eingeben, damit ich erreiche das er bis "a26" einfügt.
Dim i As Integer
For i = [A50].End(xlUp).Row To 1 Step -1
Rows(i).Insert
Antwort 5 von Saarbauer vom 22.03.2020, 18:29 Options
Hallo,
ich klinke nich hier aus, da deine Problembeschreibung unter aller Kanone ist. Du schmeist ein paar Brochen deines Problems ohne genaue Erläuterung hier hin und wir sollen dir helfen. Du kennst deine Tabelle, wir aber nur das von dir hier geschriebene
Gruß
Helmut
Antwort 6 von ala vom 22.03.2020, 19:17 Options
Hallo Sauerbauer,
also das ist meine Tabelle...
...
Menge Artikelbezeichung Preis / Einheit Gesamt
4 Analog
4 ISDN
6 DSL 2000
6 DSL 4000
6 DSL 8000
Bei dieser Tabelle soll über jeder Zeile eine leere Zeile eingefügt werden.
Es soll aber auch, wenn die leeren Zeilen eingefügt sind, diese wieder gelöscht werden, d.h meine Tabelle soll nicht über A50 hinausgehen und nicht A26 überschreiten - Problem: Vergrößerung der Tabelle durch die zusätzlich leeren Zeilen.
Wie mein Beispiel oben, würden ja dann 5 Zeilen eingefügt werden,
wo ich dann nicht mehr bei A50, sondern bei A55 wäre, diese 5 Zeilen unten von A55 - A50 müssten dann wieder gelöscht werden.
Da dies ein Projekt ist, werde ich desöfteren Fragen haben und hoffe das Du / Ihr mir da draussen helfen könnt.
Vielen Dank und ich hoffe Du / Ihr versteht mich jetzt.
Gruß
Ala
Antwort 7 von Saarbauer vom 22.03.2020, 20:30 Options
Hallo,
lese mal deine AW 2 und AW 6.
für mich kein Betätigungsfeld mehr da du keine Angaben machst die in einen Zusammenhang zu bringen sind.
Gruß
Helmut
Antwort 8 von Saarbauer vom 02.04.2020, 09:25 Options
Hallo,
da hier anscheinend keiner zu einer Lösung beitragen will, könntest dir mal diese Lösung ansehen.
http://upload.npcfighter.de/files/36/8663/Vorlage%20x1.xlseinfach auf ein Feld zwischen B20 und B50 klicken
Gruß
Helmut
P.S. du solltest nicht jedesmal einen neuen Thread eröffnen, wenn es um das gleiche Problem geht