Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Spalten kopieren und in Zeilen einsetzen
#1
Hallo zusammen,
 iregndwie habe ich einen Hänger.
 Ich wollte mir ein kleines Makro erstellen weil ich sehr oft das gleiche machen muss bekomme es aber irgendwie nicht hin.

Ich Markiere eine Zeile und möchte dann das Makro ausführen.
 - Dieses soll dann die Zeile 5x nach unten Kopieren
 - Dann soll es in der ersten neuen Zeile, in Spalte 5 was eine Zahl einsetzen
 - Dann in der zweiten neuen Zeile, in Spalte 5 eine definierte Zahl einsetzen
   ...

Einzeln bekomme ich alles hin aber ich kann's nicht kombinieren.
Weil er hat immer das Problem wenn er die markierte Zeile verlassen soll und in die einzelnen Felder soll um dort was einzusetzen

Kann mir hier einer ein Tipp geben?

Danke im Voraus Hobi
Antwortento top
#2
Hallo,

also VBA ist einfacher zu lernen als Dein Vorhaben zu begreifen.

Wenn Du ein Makro schreiben willst, dann hast Du doch schon eine Datei.
Zeige sie uns, dann sehen wir weiter.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antwortento top
#3
Vor Frust habe ich sie geschlossen ohne sie zu Speichern :22

Habe nur noch ein Bruhstück:

i = ActiveCell.Row
Rows(i + 1 & ":" & i + 1).Select
Selection.Insert Shift:=xlDown
Rows(i & ":" & i).Select
Selection.Copy
Range("A" & i + 1).Select
ActiveSheet.Paste
Range("A" & i + 2).Select
ActiveSheet.Paste
Range("A" & i + 3).Select
ActiveSheet.Paste
Range("A" & i + 4).Select
ActiveSheet.Paste
Range("A" & i + 5).Select
ActiveSheet.Paste
End Sub
Antwortento top
#4
Hallo Hobi,
Sub FuenfNeueZeilen()
 With ActiveCell.EntireRow
   .Copy
   .Offset(1).Resize(5).Insert
   .Offset(1).Cells(5).Value = 5
   .Offset(2).Cells(5).Value = 4
   .Offset(3).Cells(5).Value = 3
   .Offset(4).Cells(5).Value = 2
   .Offset(5).Cells(5).Value = 1
 End With
 Application.CutCopyMode = False
End Sub
Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • McHobi
Antwortento top
#5
DANKE!
Läuft super und viel einfacher wie ich es gemacht hätte
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste