Office: (Office 365) Per VBA Zeilen einfügen und danach in diese Texte kopieren

gut dann nicht 1000 ,mal die gleiche Aktion sonder nur 5 mal.
Gut die aktion hast Du also ergänzt.

nur wenige schauen auf Deinen Rechner und sehen die Datei.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

Ich habe es nun zumindest geschafft 1 Zeile/Zeile (Sheets("Angebot").Range("A1:E1")) zu kopieren ... es soll aber die Anzahl der in der blau markierten Zelle stehenden Zahl jeweils darunter kopiert werden. Ich denke in dieser Zeile passt was nicht.

Dim i As Integer
Sheets("Angebot").Range("A1:E1").Select
Sheets("Angebot").Range("A1:E1").Copy
With Sheets("Data")
For i = 0 To Sheets("Data").Range("S32")
Sheets("Angebot").Range("A29").PasteSpecial xlPasteAll
Next i
End With

 

Ich war der Annahme das "i" bedeutet, das jeweilige Anzahl ( Sheets("Data").Range("S32") = 5) immer wieder darunter eingefügt wird.
Also ab Sheets("Angebot").Range("A29") insgesamt 5 Mal untereinander einfügen

 

Sheets("Angebot").Range("A" & 29+i).PasteSpecial xlPasteAll

Gruß Hajo

 

oder ohne Schleife
Sheets("Angebot").Range("A29:A" & 29+Sheets("Data").Range("S32")).PasteSpecial xlPasteAll

Gruß Hajo

 

Es hat erst mal soweit geklappt, vielen DANK dafür.
Jedoch soll in diese 5 neuen Zellen TEXT einkopiert werden.
Da es sich bei der Quelle um 5 nicht verbundene Zellen handelt, erscheint nun die Meldung: Für diese Aktion müssen alle verbundenen Zellen dieselbe Größe haben.

Was kann man da noch machen, da der Code im rot markierten deswegen hängenbleibt.
Ich denke mal es ist die ART des Einfügens. *grübel*

Sheets("Data").Select
Sheets("Data").Range("S2").Select
Sheets("Data").Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Angebot").Select
Range("A29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

ich bin dann raus, es ist jetzt eine andere Aufgabe.
Mein letzter Vorschlag hat nicht gefallen
Du machst mit dem Code ein Rückschriktt von ohne Selet zu Select und das unterstütze ich nicht.
Viel Erfolg.

Gruß Hajo

 

Lieber Hajo,
ich hatte doch geschrieben das Dein Code funktioniert hat.
Der andere Code mit dem Select stammte aus dem Makrorecorder ... ich bin leider nur ein Newbie was VBA betrifft.

Würdest Du mir aber bitte vielleicht noch sagen ob es möglich ist, Dein Schema mit der Schleife über einen über mehrere Spalten hinweggehenden Zellbereich zu erweitern ?
Mit meinem Versuch klappt dies leider nicht.

Sheets("Angebot").Range("A:E" & 29 + i).Merge Across = True

Danke für Deine Antwort im Voraus.

 

Hi,

da reicht doch ein Einzeiler:

Code:

Sheets("Angebot").Range("A1:E1").Copy Sheets("Data").Range("A29").Resize(Sheets("Data").Range("S32"))

Bzw. wenn man schreibfaul ist ein Dreizeiler:

Code:

With Sheets("Data")
    Sheets("Angebot").Range("A1:E1").Copy .Range("A29").Resize(.Range("S32"))
End With

Aber trotzdem eine Warnung: Wie du merkst, sind verbundene Zelle in Excel einfach nur Bäh! Sie machen an allen Ecken und Enden Schwierigkeiten. Daher sollte man darauf verzichten.