Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1400to1404
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
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile x-mal kopieren

Zeile x-mal kopieren
05.01.2015 13:52:51
Rog

Hallo zusammen!
als langjähriger Leser des Forums habe ich nun eine Frage und würde mich über regen Input freuen.
Problemstellung:
In Zeile 1, Spalte A, B und C habe ich bestimmte Werte (Name, Vorname, Internetadresse)
In Spalte D habe ich eine Anzahl (z.b. 89). Jetzt muss diese Zeile in einem neuen Excel-Reiter 89x (Anzahl aus Spalte D) untereinander kopiert werden.
In Zeile 2 ff. geht es genauso weiter, allerdings in Spalte D dann eine Anzahl von beispielsweise 43.
Besten Dank!
Rog

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
manuell vielleicht so
05.01.2015 14:05:06
Tino
Hallo,
Du schreibst nicht wie es ablaufen soll o. du dir den Ablauf vorstellst
daher hier eine mögliche manuelle Variante.
  • Bereich A1:C1 markieren

  • kopieren

  • andere Tabelle aktivieren

  • Im Namensfeld A1:A89 eingeben mit Enter abschließen

    •    A1:A89 ist jetzt markiert
  • Jetzt nur noch entsprechend einfügen (Werte, ges. Inhalt oder ähnliches)

    • Gruß Tino

    AW: Zeile x-mal kopieren
    05.01.2015 14:05:54
    Rudi Maintaire
    Hallo,
    schreibt in ein neues Blatt: 
    Sub aaa()
Dim arrIn, arrOut(), i As Long, j As Long, k As Integer, n As Long
arrIn = Sheets(1).Range("A1").CurrentRegion
ReDim arrOut(1 To WorksheetFunction.Sum(Sheets(1).Columns(4)), 1 To 3)
For i = 1 To UBound(arrIn)
For j = 1 To arrIn(i, 4)
n = n + 1
For k = 1 To 3
arrOut(n, k) = arrIn(i, k)
Next
Next
Next
Worksheets.Add.Cells(1, 1).Resize(UBound(arrOut), 3) = arrOut
End Sub

    Gruß
    Rudi

    Anzeige
    AW: Zeile x-mal kopieren
    05.01.2015 21:02:33
    Rog
    @Rudi Maintaire,
    prima, funktioniert wunderbar! Das hat mir eine Menge Arbeit erspart! Danke!
    @all
    Danke für den Support!
    Tolles Forum!

    AW: Zeile x-mal kopieren per Formel
    05.01.2015 15:47:04
    Daniel
    Hi
    Gehe so vor
    1. Füge in Spalte A einen neue Spalte ein, deine Daten beginnen jetzt in B
    2. Schreibe in A1 die Zahl 1
    3. Schreibe in A2 die Formel:=A1+E1
    Ziehe diese Formel bis ans Tabellenende und eine Zeile weiter. Achte darauf, dass du beim Ziehen die Zelle A1 nicht mitnimmst!
    4. im neuen Tabellenblatt kommt folgende Formel in Zelle A1:
    =Sverweis(Zeile($A1);Tabelle1!A:E;Spalte(B$1);wahr)
    Diese Formel ziehst du bis Spalte D und soweit nach unten wie benötigt (die Anzahl der Zeilen kannst du ja durch Summenbildung in Spalten E der anderen Tabellen ermitteln.
    Gruß Daniel

    Anzeige

    13 Forumthreads zu ähnlichen Themen

    Formel für von ... bis mit Maximalwert
    ...

    Hallo zusammen,
    eigentlich sollte ich es hinbekommen, habe aber irgendwie einen Denkwurm im Kopf.
    Folgende Provisionsberechnung soll verformelt werden:
    Für 1 - 13 Kursteilnehmer gibt es 5,00 EUR pro TN
    Ab 14 Kursteilnehmer gibt es 1,00 EUR pro ab dem 14. TN
    Maximale Verprovi...
    17.01.2012 16:56:19
    Thread-ID: 1246578
    5 Beiträge
    Anzeige
    Maximalwert flexibel auslesen - Formel gesucht
    uteh

    Hallo zusammen,
    ich probiere nun schon 2, 3 Stunden herum, aber je länger ich nach einer Lösung suche, desto mehr verzettele ich mich, daher hoffe ich, dass mir jemand helfen kann.
    Ich habe eine Tabelle mit Zahlen und einem Kürzel in der letzten Spalte (https://www.herber.de/bbs/user/1...
    20.11.2017 20:10:18
    Thread-ID: 1592570
    6 Beiträge
    x-mal Zeilenwerte in Spalte wiederholen
    Cora

    Hallo liebe Excel Spezialisten,
    ich benötige eure Hilfe:
    In Spalte A wird eine vorgegebene Zahlenreihenfolge aufgeführt (z.B. 800.000.000-800.500.000). Die Darstellung erfolgt jeweils +1 je Zeile. Das kann man sehr gut mit der Auto-Ausfüllen Funktion lösen. Diese Werte diese Spalte sol...
    18.01.2018 13:17:12
    Thread-ID: 1603068
    6 Beiträge
    Anzeige
    Formeln bis zum Ende kopieren
    Thorsten
    Hallo Leute,
    ich habe ein glaube ich ganz alltägliches Problem, welches ich über die Suche nicht finden konnte:
    Ich habe immer recht lange Tabellen und muß Formeln von Zeile 1 bis ~20.000 kopieren - aber nur bis genau zum Tabellenende und nicht darüber hinaus.

    Gibt es eine einfach Mögl...
    18.11.2003 10:28:27
    Thread-ID: 339635
    4 Beiträge
    Formel für Text bei Maxi- oder Minimal
    Florian

    Hallo,
    Ich suche eine formel und zwar hab ich Beispielsweise Alle Bundesländer untereinander Stehen (Reihe A) und Daneben (Reihe B) steht die Einwohnerzahl.
    Wie schaffe ich es Den NAMEN des Bundesland anzuzeigen das die niedrigste Einwohnerzahl hat.
    Danke schonmal im Forraus!
    08.10.2004 14:36:12
    Thread-ID: 497380
    2 Beiträge
    Formel bis zum Tabellenende automatisch kopieren
    BerndSchweiger

    Hallo,
    folgendes:
    In Spalten J3 und K3 möchte ich zu einer bestehenden Exceldatei zusätzlich automatisch die Abweichungen ausweisen.
    Mein Problem besteht jetzt darin, dass die Formeln der beiden Spalten immer bis zum Tabellenende automatisch kopiert werden sollen.
    (die Tabelle...
    15.04.2005 08:54:16
    Thread-ID: 599241
    3 Beiträge
    Aktion x-mal wiederholen
    Bernd

    Hallo allerseits,
    wie muss der Code aussehen, wenn ich folgende Aktion z.B. 400x ausführen lassen will.
    Selection.Copy
    Range("J1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    21.10.2006 19:36:42
    Thread-ID: 812888
    8 Beiträge
    Kopieren von Formeln bis ans Tabellenende
    Formeln

    Servus Leute,
    kann mir einer von euch sagen wie ich eine Formel bis ans Tabellenende kopieren kann ohne umständlich mit der Maus bis ans Ende ziehen zu müssen?
    Also z.B. Formel in Zelle A1 kopieren von A1 bis A65536
    Da gibt´s doch so ne Tastenkombination?!
    02.11.2006 12:37:32
    Thread-ID: 816055
    2 Beiträge

    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
    4
    5
    5
    5
    5
    3
    1
    2
    7
    1
    8
    2
    2