Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Excel VBA neue Zeilen und Werte aus vorheriger Zeile |
02.12.2015 13:50:44 |
Sascha |
|
|
|
02.12.2015 13:56:22 |
Sascha |
|
|
|
03.12.2015 05:24:02 |
Gast91110 |
|
|
Von:
Sascha |
Datum:
02.12.2015 13:50:44 |
Views:
1061 |
Rating:
|
Antwort:
|
Thema:
Excel VBA neue Zeilen und Werte aus vorheriger Zeile |
Liebe VBA Forum Gemeinde,
ich habe eine Tabelle mit 400 Zeilen und 37 Spalten. Der Inhalt sieht wie folgt aus:
Nummer |
Name |
Anbieter |
Verlauf_1 |
Verlauf_2 |
Verlauf_3 |
Verlauf_4 |
Verlauf_5 |
Verlauf_6 |
Verlauf_7 |
Verlauf_8 |
Verlauf_9 |
Verlauf_10 |
Verlauf_11 |
... |
... |
... |
Kiel |
Preetz |
Plön |
Eutin |
Süselerbaum |
Bad Schwartau |
Lübeck |
Ratzeburg |
Mölln |
Breitenfelde |
Berlin |
... |
... |
... |
Arhus |
Vejle |
Kolding |
Flensburg |
Neumünster |
Bad Segeberg |
Berlin |
|
|
|
|
1. Problem: Wenn zwischen Verlauf_1 und Verlauf_34 x Spalten mit Werten gefüllt sind, dann müssen y = x - 2 neue Zeilen unter der jeweiligen Zeile erstellt werden. Ich habe folgende Formel für die Erstellung neuer Zeilen benutzt, deren Anzahl ist aber nicht dynamisch.
Sub Leerzeilen()
Dim i As Integer
Dim z As Integer
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
For z = 1 To 5
Cells(i, 1).EntireRow.Insert Shift:=xlDown
Next z
Next i
Application.ScreenUpdating = True
End Sub
2. Problem: Aus der jeweiligen Zeile müssen die Werte der 5 und 6. Spalte zu denen der 4. und 5. Spalte der 1. neuen Spalte. Die der 6. und 7. Spalte zur 4. udn 5. der 2. neuen Spalte... und so weiter. Nochmal optisch:
Hier als Beispiel:
…
|
… |
… |
Kiel |
Preetz |
Plön |
Eutin |
Süselerbaum |
Bad Schwartau |
Lübeck |
Ratzeburg |
Mölln |
Breitenfelde |
Berlin |
|
|
|
Preetz |
Plön |
|
|
|
|
|
|
|
|
|
|
|
|
Plön |
Eutin |
|
|
|
|
|
|
|
|
|
|
|
|
Eutin |
Süselerbaum |
|
|
|
|
|
|
|
|
|
|
|
Süselerbaum |
Bad Schwartau |
|
|
|
|
|
|
|
|
|
|
|
Bad Schwartau |
Lübeck |
|
|
|
|
|
|
|
|
|
|
|
|
Lübeck |
Ratzeburg |
|
|
|
|
|
|
|
|
|
|
|
|
Ratzeburg |
Mölln |
|
|
|
|
|
|
|
|
|
|
|
|
Mölln |
Breitenfelde |
|
|
|
|
|
|
|
|
|
|
|
Breitenfelde |
Berlin |
|
|
|
|
|
|
|
|
|
Wie ergänze ich die existierende VBA Formel um beide Probleme zu lösen?
Vielen lieben Dank schonmal!
|
- 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
|
Excel VBA neue Zeilen und Werte aus vorheriger Zeile |
02.12.2015 13:50:44 |
Sascha |
|
|
|
02.12.2015 13:56:22 |
Sascha |
|
|
|
03.12.2015 05:24:02 |
Gast91110 |
|
|