Werte in Spalten einfügen

Forumthread: Werte in Spalten einfügen

22.06.2006 06:18:38

Frederic

Guten Morgen,
könnt Ihr mir wieder mal helfen?
Ich habe ein Sheet("Import"). In diesem stehen Werte von D2:D60. Diese ändern sich tagtäglich.
Nun existieren weitere Sheets ("Auszüge1") bis ("Auszüge12).
In diesen gibt es Spalten von B - AF (Tag 1 - Tag 30/31).
Nun möchte ich den Prozess des Werte-Kopierens von "Import" in das jeweilige Sheet (Auszug1 - Auszug12) weitestgehend so automatisieren, dass das Makro die Werte der Range D2:D60 automatisch in das richtige Sheet in der richtigen Spalte plaziert, und zwar abhängig vom Tagesdatum (=HEUTE() ).
Beispiel:
Heute ist der 22.06.2006.
Heute sollen also die Werte von "Import" in das Sheet ("Auszüge6") in Spalte W2:W60 kopiert werden. Morgen dann in Spalte X2:X60 usw.
GIbt es da eine Lösung?
Danke für Eure Hilfe.
Frederic

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte in Spalten einfügen

22.06.2006 08:25:33

Harald
AW: Werte in Spalten einfügen

22.06.2006 08:51:56

harry
AW: Werte in Spalten einfügen

22.06.2006 09:42:30

Frederic

AW: Werte in Spalten einfügen

22.06.2006 08:25:33

Harald

Moin Frederic,
hier eine mögliche Lösung.


Sub uebertragen()
Dim Lcol As Integer
Sheets("Import").Range("D2:D60").Copy
On Error GoTo errh
'erste freie Spalte in Zeile 1 von Blatt Auszug und Monat
Lcol = Sheets("Auszug" & Month(Now())).Cells(1, Columns.Count).End(xlToLeft).Column + 1
'steht das heutige Datum in der Spalte links davon ? dann aussteigen
If Sheets("Auszug" & Month(Now())).Cells(1, Lcol - 1).Value = Format(Now, "dd.mm.yy") Then
MsgBox "Die heutigen Daten wurden schon kopiert", vbInformation
GoTo errh
End If
'Daten einfügen, Datum darüber, Spaltenbreite anpassen
With Sheets("Auszug" & Month(Now()))
.Cells(2, Lcol).PasteSpecial Paste:=xlValues
.Cells(1, Lcol) = Format(Now, "dd.mm.yy")
.Columns.AutoFit
End With
errh:
Application.CutCopyMode = False
If Err.Number = 9 Then MsgBox "Tabellenblatt wurde nicht gefunden"
End Sub

Gruss Harald

AW: Werte in Spalten einfügen

22.06.2006 08:51:56

harry

Hallo Frederic,
so könnte es funktionieren:


Sub test()
Dim tag As Integer
Dim monat As String
Dim blatt As String
tag = Left(Now, 2)
monat = Right(Left(Now, 5), 2)
blatt = "Auszüge" & monat
For x = 2 To 60
Sheets(blatt).Cells(x, tag).Value = Sheets("import").Range("d" & x).Value
Next
End Sub

Gruß
Harry

AW: Werte in Spalten einfügen

22.06.2006 09:42:30

Frederic

Hallo Harald,
ja super.....Danke!
Hat perfekt funktioniert....
Frederic

Beliebteste Forumthreads (12 Monate)

Forumthread: Werte in Spalten einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread