|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.01.2022 14:37:20 |
Xui |
|
|
|
21.01.2022 15:30:00 |
Gast85188 |
|
|
|
21.01.2022 15:43:26 |
Gast54713 |
|
|
 Excel (VBA) Spalten gemäß Anzahl untereinander kopieren |
21.01.2022 16:05:50 |
Gast7890 |
|
|
|
21.01.2022 16:46:47 |
Xui |
|
|
|
23.01.2022 09:03:05 |
RPP63 |
|
|
Von:
Gast7890 |
Datum:
21.01.2022 16:05:50 |
Views:
555 |
Rating:
|
Antwort:
|
Thema:
Excel (VBA) Spalten gemäß Anzahl untereinander kopieren |
In der Zeile "Set rngSource = Range("B1:B3")" wird ja anscheinend geschaut, welche Namen in der Liste stehen - kann ich das variable halten, [...]
Ein Traum wäre dann noch, wenn die Formatierung der Zellen der Liste nicht übernommen wird.
Option Explicit
Sub Example()
Dim rngSource As Excel.Range
Dim rngTarget As Excel.Range
Dim n As Long
n = Range("C2").Value
Set rngSource = Range("B1", Cells(Rows.Count, "B").End(xlUp))
Set rngTarget = Range("D1").Resize(rngSource.Rows.Count * n)
Call rngSource.Copy
Call rngTarget.PasteSpecial(xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
End Sub
Grüße
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.01.2022 14:37:20 |
Xui |
|
|
|
21.01.2022 15:30:00 |
Gast85188 |
|
|
|
21.01.2022 15:43:26 |
Gast54713 |
|
|
Excel (VBA) Spalten gemäß Anzahl untereinander kopieren |
21.01.2022 16:05:50 |
Gast7890 |
|
|
|
21.01.2022 16:46:47 |
Xui |
|
|
|
23.01.2022 09:03:05 |
RPP63 |
|
|