VBA - Makro um Tabelle aufzufüllen

Hallihallo!
Ich liebe Excel und brauche ganz dringend einen VBA-Kurs, denn diesbezüglich bin ich nach wie vor ein völliger Anfänger.
Aber gut, das nur abseits des Problems:
Folgendes Minimalbeispiel: https://www.herber.de/bbs/user/81228.xlsm
Ich habe eine Wertetabelle, (im Minimalbeispiel: Wochentage/Wochen), die täglich mit 4 Werten (im Minimalbeispiel: linker 4er-Block) angefüllt werden soll. Wenn ich das Makro ausführe, soll Folgendes passieren:
1. Das Makro soll in die Wertetabelle schauen und "Tag für Tag" feststellen, ob schon Werte vorhanden sind oder nicht. Oder anders formuliert: Es soll den "nächsten" 4er-Block freier Zellen dort finden.
2. In diesen freien 4er-Block sollen die Werte des linken 4er-Blocks kopiert werden.
3. Die Werte im linken 4er-Block sollen gelöscht werden.
Die Schritte 2 und 3 kriege ich notfalls noch hin, wenn ich das Makro soweit aufzeichne und mir den Code etwas näher zu Gemüte führe. Doch hat irgendjemand eine Idee für Schritt 1?
Liebe Grüße
Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub moveInput() Dim rngInput As Range Dim vntInput As Variant Dim lngRow As Long, lngCol As Long With ActiveSheet Set rngInput = .Range("B3:C4") For lngCol = 6 To 112 Step 2 For lngRow = 2 To 14 Step 2 If Application.CountA(.Cells(lngRow, lngCol).Resize(2, 2)) = 0 Then rngInput.Copy .Cells(lngRow, lngCol) rngInput = "" rngInput(1, 1).Select Exit Sub End If Next Next End With End Sub

Hallo noch einmal!
Ich habe leider etwas vergessen zu erwähnen bei meiner Anfrage gestern:
Der besagte linke 4er-Block beinhaltet Formeln. Was aber in die Wertetabelle rüberkopiert werden soll, sind die ausgegebenen Werte dieser Zellen. Zudem (auch das hab ich leider vergessen) sollten die möglichst unformatiert rüberkopiert werden, sofern das möglich ist.
Hab versucht das als Makro aufzuzeichnen, fand dort aber nur diesen Passus im Code:

Selection.Copy
Range("F8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Womit ich ehrlich gesagt nicht allzu viel anfangen kann. Bzw. ich kann einigermaßen erkennen, was es bedeutet, aber nicht, ob oder wie ich das in Deiner Lösung da anwenden oder integrieren kann.
Gibts da vielleicht einen (einfacheren) Weg?
Liebe Grüße nochmal!
Sebastian

Beliebteste Forumthreads (12 Monate)

VBA - Makro um Tabelle aufzufüllen

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread