Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zahl auslesen und zeile kopieren

zahl auslesen und zeile kopieren
11.11.2016 11:55:11
Michael
hallo!
habe ein kleines kniffliges problem und hoffe, dass mir jemand helfen kann.
ich habe eine tabelle mit sendungsinformationen:
name, firma, adresse, plz, ort, anzahl pakete
mein problem ist, dass ich pro paket eine zeile in eine csv schreiben muss. der vba-code für den export steht und funktioniert.
ich bräuchte nun einen zusatz, welcher beim export die anzahl der pakete liest und dementsprechend die zeile kopiert.
d.h.
paketanzahl 1 = nix tun
paketanzahl 2 = zeile 1 mal kopieren
paketanzahl 3 = zeile 2 mal kopieren
usw.
geht das?
danke und schönen tag!
mike

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beispielcode?
12.11.2016 16:08:43
Michael
Hi,
an sich kein Problem, aber ohne Deinen Beispielcode können wir es nicht fertig ausformulieren.
Im Prinzip legst Du eine weitere Schleife "innen" an: 
Dim anzP as Long
'... Dein vorhandener Code
'Äußere Schleife zum Auslesen des Blattes
' dies und das
For anzP=1 to Range("F" & DeineZeilenVariable) ' sofern die Anzahl in F steht
wegschreiben_mit_Deinem_Code
next
' dies und das
'Äußere Schleife Ende
Schöne Grüße,
Michael
AW: zahl auslesen und zeile kopieren
12.11.2016 16:52:02
Werner
Hallo Mike,
wie mein Vorredner schon geschrieben hat -Beispieldatei mit Code hochladen.
Hier mal ein Beispiel wie das gehen könnte. Kopier den Code mal in eine leere Excel-Tabelle, schreib in Zelle A1: Paketanzahl 5 und lass das Makro laufen.
Public Sub Anzahl()
Dim strWert As String
Dim loAnzahl As Long
With Sheets("Tabelle1")
strWert = .Cells(1, 1).Value
loAnzahl = Application.Substitute(strWert, "Paketanzahl", "")
.Cells(1, 1).Copy .Cells(1, 10).Resize(loAnzahl)
End With
End Sub
Gruß Werner
Anzeige

300 Forumthreads zu ähnlichen Themen

Statt Zahl "Textausgabe" in 3D Formel
Lorenz

Guten Morgen!
Mit folgender 3D-Formel wird aus mehreren Blättern(In diesem Fall "1."."2."."3.")nach dynamischen Suchkriterien ein Wert "ZAHL" ausgegeben. Funktioniert wunderbar!!!. Leider gelingt es mir nicht einen anderen Wert (den Zellinhalt als "Text") auszugeben
=SUMME(SUMMEWENN(IND...
14.08.2009 07:14:45
Thread-ID: 1095457
2 Beiträge
Anzeige
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo Leute, hab da mal eine Verständnisfrage:
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 23)
Was bedeutet dieser Befehl im Einzelnen?
Er bewirkt doch, dass die Formeln in der Spalte wo der Befehl gesetzt wird, solange kopiert werden, bis in Spalte 1 keine Wert...
02.02.2010 12:32:34
Thread-ID: 1135057
3 Beiträge
Anzeige
Formel bis Datei-Ende kopieren
Gerhard

Hallo Zusammen,
ich gebe eine Formel in ein Feld ein (noch kein Problem). Nun möchte ich diese Formel in die restlichen
Felder der Spalte kopieren (Anzahl Datensätze ist immer unterschiedlich). Markiere ich nun die Spalte und "sage" einfügen, kopiert er die Formel bis zum Datensatz 6500...
30.03.2010 08:56:46
Thread-ID: 1149267
10 Beiträge
Text von Zahlen ausschneiden und nach D kopieren
Zahlen

Hallo und Guten Abend,
habe ein Problem mit dem trennen bzw. ausschneiden Text von Zahl.
An dem hochgeladenen Muster, kann man besser erkennen was ich meine.
https://www.herber.de/bbs/user/72575.xls
Wäre Super, wenn mir jemand helfen würde.
Danke, Josef
03.12.2010 21:41:52
Thread-ID: 1190013
3 Beiträge
VBA statt Formel kopieren
Mandy

Hi guys,
ich habe gerade erst angefangen, mich mit VBA anzufreunden, daher für Euch wahrscheinlich ne ganz simple Frage...: ;-)

Momentan habe ich eine Tabelle in der in J3 folgende Formel steht, die dann für den Rest der Spalte (soweit benötigt) nach unten kopiert wird:
=WE...
01.01.1970 00:00:00
Thread-ID: 1199255
36 Beiträge
Formel bis Ende
gerhard

Hallo bitte um Makro Hilfe,
wie kann ich ab der aktiven Zellposition die Spalte bis zum Ende der links davon
liegenden Spalte mit einer Formel auffüllen?
Ich möchte die Berechnung starten ab der aktiven Zellpositon z.B C10
In der links liegende B Spallte sind Werte bis z.B B2000...
24.03.2011 14:24:07
Thread-ID: 1207409
4 Beiträge
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 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
4
5
2
2
9
2
35
3
3
2
5
9
7
4
9
3
56
2
8
7
9
10
4
3