Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife zum Zeilenkopieren

Schleife zum Zeilenkopieren
Reinhardt
Hallo,
ich möchte gerne unter Zeile 2 zwei Zeilen einfügen und die erste Zeile in die dritte kopieren.
Ich habe über hundert Datensätze und würde mir so eine Menge Kopierarbeit ersparen wollen.
Wer kann mir da einmal die "SCHLEIFE BINDEN" in VBA binden?
Gruß aus Lübeck, Reinhardt.
Aus:
Zeile1= Name1
Zeile2=Leer
Zeile3=Name2
Zeile4=Leer
soll werden:
Zeile1= Name1
Zeile2=Leer
Zeile3=Name1
Zeile4=Leer
Zeile5=Name2
Zeile6=Leer
Zeile7=Name2
Zeile8=Leer

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schleife zum Zeilenkopieren
05.04.2011 21:27:19
Uduuh
Hallo,
in ein Modul: 
Sub xxx()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -2
With Cells(i, 1)
.Resize(2).EntireRow.Insert
.Offset(-2) = .Value
End With
Next
End Sub
Gruß aus’m Pott
Udo

AW: Schleife zum Zeilenkopieren
05.04.2011 21:27:52
Josef

Hallo Reinhard,
probier mal.
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub verdoppeln()
  Dim vntOrg As Variant, vntDbl() As Variant
  Dim lngIndex As Long
  With ActiveSheet
    vntOrg = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    Redim vntDbl(1 To UBound(vntOrg, 1) * 2, 1 To 1)
    
    For lngIndex = 1 To UBound(vntOrg, 1) Step 2
      vntDbl((lngIndex - 1) * 2 + 1, 1) = vntOrg(lngIndex, 1)
      vntDbl((lngIndex - 1) * 2 + 2, 1) = vntOrg(lngIndex + 1, 1)
      vntDbl((lngIndex - 1) * 2 + 3, 1) = vntOrg(lngIndex, 1)
      vntDbl((lngIndex - 1) * 2 + 4, 1) = vntOrg(lngIndex + 1, 1)
    Next
    .Range("A1").Resize(UBound(vntDbl, 1), 1) = vntDbl
  End With
End Sub



« Gruß Sepp »

Anzeige
Vielen Dank an euch!! o.T.
05.04.2011 21:54:35
Reinhardt
.

299 Forumthreads zu ähnlichen Themen

Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 Beiträge
Anzeige
Makro: Datei (feste Werte) kopieren und versenden
Niko

Hallo zusammen,
bin absoluter VBA-Neuling habe jedocg per google unten stehendes Makro gefunden.
Es hilft mir jedoch nur zum Teil. Ich möchte eine Arbeismappe (welche mehrere Sheets enthält) und mit vielen Verknüpfungen befüllt ist als Versanddatei ohne diese Verknüpfungen erstellen un...
03.06.2009 12:27:02
Thread-ID: 1078831
3 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Anzeige
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Per Makro Spalten und Formeln einfügen
Kai

Hallo,
ich möchte per Makro zwischen die Zeile M und N 2 Spalten einschieben und dann in ab Zeile 10 in beide Spalten eine Formel einfügen und diese noch unten ziehen.
Neue Spalte N = wenn(L10 ""; L10+100;"")
Neue Spalte O = wenn(M10 ""; M10+100;"")
die ganze Formel sollt...
21.10.2009 14:02:28
Thread-ID: 1111061
3 Beiträge
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
VBA - Letzte Tabelle Finden und Formel einfügen
André

Hallo Forum,
ich habe jetzt ein paar VBA Funktionen gefunden und in meine Datei eingebaut,
komme aber trotzdem nicht zum Schluss.
Ich habe 5 Tabellenblätter (1 - 5). Für die KW 6 will ich per VBA ein neues Blatt
einfügen und in A1 der Tabelle6 mittels Makro die Funktion
"vo...
07.12.2009 13:31:49
Thread-ID: 1122185
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
2
3
1
8
2
2
14
4
1
11
10
19
4
3
8
9
11
5
2
5
8
4
2