Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1028to1032
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
Inhaltsverzeichnis

monatlich Wert auslesen

monatlich Wert auslesen
01.12.2008 02:52:00
Herbert
Hallo!
Ich habe in Zelle B46 eine Zahl die sich monatlich ändert.
Nun bräuchte ich eine VBA Lösung die mir diese Zahl an jeden 15´ten des Monats bzw. wenn die Mappe geöffnet wird den Wert untereinander in die Spalte Ö kopiert und links davon ds Datum.
Ich hoffe ihr könnt mir wieder helfen.
mfg
Herbert

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

Betreff
Datum
Anwender
Anzeige
hier das Beispiel mit dem 1. des Monats
01.12.2008 08:04:00
Matthias
Hallo Herbert
probier das mal:

Option Explicit
Private Sub Workbook_Open()
Dim Tag As Date
Dim LoRow As Long
Tag = Format(Date, "DD")
LoRow = Cells(Rows.Count, "O").End(xlUp).Row + 1
If Tag = 1 Then
MsgBox "heute ist der 1." & vbLf & "kopiert wird B46 nach O" & LoRow
Cells(46, 2).Copy
Cells(LoRow, 15).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Cells(LoRow, 14) = Now
End If
End Sub


hier das Beispiel:
https://www.herber.de/bbs/user/57266.xls
anstatt
If Tag = 1
musst Du eben
If Tag = 15
schreiben
Gruß Matthias

Anzeige
noch eine frage
01.12.2008 10:01:00
Herbert
Hallo!
Erst mal vielen Dank.
Nun habe ich noch eine frage, wo muß ich den Code jetzt einfügen wenn ich den Visual Basic-Editoer öffne?
Gruss
Herbert
in DieseArbeitsmappe oT
01.12.2008 10:21:00
Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige