Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Je nach anzahl Menge in Zeile schreiben

Forumthread: Je nach anzahl Menge in Zeile schreiben

Je nach anzahl Menge in Zeile schreiben
10.06.2017 14:10:45
Adem
Hallo, undzwar habe ich ein Problem und brauche einen VBA-Code für mein Excel Programm. Je nach Menge möchte ich das mein ID Spalte untereinander in Zeilen geschrieben wird.
zb. Spalte ID Menge
123 3
456 2
78 1
Als Lösung möchte ich haben per VBA Code
123 1
123 1
123 1
456 1
456 1
78 1
wäre sehr dankbar für jede kleine hilfe
Danke im Vorraus
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 14:20:24
Adem
Hier noch mal zur mein Beispiel
"Malzeme" ist mein ID und "Faturalanan miktar" meine Menge.
mit vba code würde ich da gerne stehen haben 9x"23SAN4277AWID00" UNTEREINANDER und dem entsprechen bei "Faturalanan miktar" die 1
2x untereinander 202ELBT570200026"
usw.
ich hoffe sie können mir weiterhelfen.
Userbild
Anzeige
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 15:03:43
Daniel
HI
als VBA Code so:
die neue Tabelle wird neben der alten eingefügt:
Sub Duplizieren1()
Dim ID
Dim Anz
Dim Erg
Dim i As Long, a As Long, e As Long
With Cells(1, 1).CurrentRegion
ID = .Columns(4).Value
With .Columns(13)
Anz = .Value
ReDim Erg(1 To WorksheetFunction.Sum(.Cells), 1 To 2)
End With
End With
For i = 2 To UBound(ID, 1)
For a = 1 To Anz(i, 1)
e = e + 1
Erg(e, 1) = ID(i, 1)
Erg(e, 2) = 1
Next a
Next i
Cells(1, 1).End(xlToRight).Offset(0, 2).Resize(UBound(Erg, 1), UBound(Erg, 2)).Value = Erg
End Sub
Gruß Daniel
Anzeige
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 15:36:28
Adem
Hallo,
Vielen Dank für die schnelle Antwort.
Die Lösung ist Richtig so hatte ich mir es vorgestellt aber würde gerne auch die anderen Spalten A bis S mit kopiert haben.
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 15:54:21
Daniel
Hi 
Sub Duplizieren2()
Dim Arr
Dim Erg
Dim z As Long, a As Long, e As Long, s As Long
With Cells(1, 1).CurrentRegion
Arr = .Value
ReDim Erg(1 To WorksheetFunction.Sum(.Columns(13)), 1 To .Columns.Count)
End With
For z = 2 To UBound(Arr, 1)
For a = 1 To Arr(z, 13)
e = e + 1
For s = 1 To UBound(Arr, 2)
Erg(e, s) = Arr(z, s)
Next s
Erg(e, 13) = 1
Next a
Next z
Cells(1, 1).End(xlToRight).Offset(0, 2).Resize(UBound(Erg, 1), UBound(Erg, 2)).Value = Erg
End Sub
Gruß Daniel
Anzeige
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 16:00:47
Adem
Genau so Vielen Dank

Forumthreads zu verwandten Themen

makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige
Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
Inhalt erst in Zeile 5 schreiben
Schmidtler

Hallo,
wie bekomme ich es hin, dass erst Werte ab der 4. Zeile eingetragen werden?
Main Eng. Doc.
LEER
LEER
LEER
LEER
25.02.2009
23.02.2009
OK
40002058
16.12.2008
18.12.2008
LATE
40002059
Mein Makro sieht wie folgt aus:
E...
27.02.2009 12:32:18
Thread-ID: 1054702
2 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 Beiträge
Zeilenumbruch - Neue Zellen
markus

Guten Morgen,
Leider habe ich im Archiv viel über Zeilenumbrüche gelesen, jedoch nichts passendes.
Ich habe in EINER Zelle mehrere Werte untereinander stehen.
Diese sollen ausgelesen werden und JEWEILS in eine neue Zelle geschrieben werden.
Kann man das in VBA über den Zeilenumb...
05.08.2009 09:56:49
Thread-ID: 1093671
4 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:13:37
Thread-ID: 1097497
19 Beiträge
Anzeige
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:14:06
Thread-ID: 1097498
2 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:12:45
Thread-ID: 1097499
5 Beiträge
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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