Spalte auslesen und in definierten bereich copy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kopieren() Dim sp As Integer Dim b As Long, zeile As Long Dim bWert As Variant For b = 28 To 3 Step -1 If Not IsEmpty(Range("B" & b)) Then bWert = Range("B" & b) For zeile = 2 To 31 For sp = 4 To 6 If IsEmpty(Cells(zeile, sp)) Then Cells(zeile, sp) = bWert GoTo newWert End If Next sp Next zeile End If newWert: Next b End Sub

Hallo Klaus,
vielen dank für deine Mühe und Zeit.
Dein Code hat genau das gemacht was ich sagte zu brauchen.TOP.
Ich wollte anhand deines Codes lernen und diesen in mein Projekt leicht weiterentwickelt einbauen, allerdings komme ich nicht mehr voran.
Habe ich mir ein wahrscheinlich zu schweres Projekt aufgeladen und die richtige Bedarfsformulierung ist ein grosses Problem im Moment.
So sollte mein fertiges Endprojekt aussehen:
https://www.herber.de/bbs/user/121365.xlsx
So sieht mein Versuch aus, nach einen Fehlercode in der Produktion die 3 folgenden Produktionsfortschritte in eine separate Spalte oder wenigstens in eine Variable zu bringen:
https://www.herber.de/bbs/user/121367.xlsm
Wäre es vermessen zu fragen, ob du mir helfen könntest dem Endprodukt nahe zu kommen?
Anhand des Codes könnte ich sehen, mit welchen Befehlen du arbeitest und dann Pauken am Objekt.
Mir fällt auf, dass ich zwar Ideen habe, wie man es machen könnte, aber sobald ich das in Variablen
packen habe ich im Kopf nur Chaos. Falls es nicht zu viel Aufwand wäre, würde
ich gerne sehen, wie ein Profi das mit Variablen und kurzen Formeln löst
und dann wäre es von Vorteil zu sehen, wie es ein Anfänger lösen würde,
der jeden Schritt einzeln irgendwie umständlich umschreibt und dann auch zum Ergebnis kommt.
So wie ich das bisher versucht habe.
Ich sag einfach mal Danke im Voraus, so weit du auch helfen möchtest.
Netten Gruss
Sascha

Hallo Sascha,
Dein Übungsbeispiel war gar nicht so leicht zu lösen! Ich glaube, dass ich eine Lösung gefunden habe und lade sie Dir hiermit hoch.
https://www.herber.de/bbs/user/121382.xlsm
Es war allerdings nötig, am oberen Rand einige Zeilen einzufügen, damit das Ganze funktioniert. Außerdem gibt es von "L1" bis "O1" drei Einträge, die der Steuerung der Makros dienen. Die Eintragungen in der Spalte B müssen einen geschlossenen Block bilden. Leere Zellen zwischendurch müssen vermieden werden. Wenn in der Praxis doch Leerfelder vorkommen sollten, müssen diese durch ein weiteres Vorlaufprogramm zuvor eliminiert werden. Ist in einer Zelle eine Eintragung vorhanden und steht sie im Wege für die Übertragung, dann stoppt das Programm und es erfolgt eine Meldung.
Bitte mal ausprobieren. FeedBack wäre schön.
Mit freundlichem Gruß
Peter Kloßek

Beliebteste Forumthreads (12 Monate)

Spalte auslesen und in definierten bereich copy

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte auslesen und in definierten bereich copy

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

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread