Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

1 mal im Monat automatisch in andere Sheet speiche

1 mal im Monat automatisch in andere Sheet speiche
05.09.2019 08:46:06
Annika
Halluu,
ich komm iwie nicht weiter..
Ich möchte immer wenn es der 25. des Monats ist, das 2 Spalten kopiert werden und
in ein andere Sheet gespeichert werden.
Wenn der nächste Monat antrifft, dann neben den 2 Spalten wieder gespeichert werden.
und das jeden monat im loop
Die Lösung sollte in VBA Realisierbar sein
Kann mir Jemand helfen bitte...
Mfg
Anni

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1 mal im Monat automatisch in andere Sheet speiche
05.09.2019 09:08:55
Bernd
Servus Anni,
teste mal (Codebereich: "DieseArbeitsmappe")...
Tabellen und Zellbereiche musst du noch anpassen!

Private Sub Workbook_Open()
If Day(Date) = 25 Then
With Sheets("Tabelle2")
If .Cells(1, .Cells(2, Columns.Count).End(xlToLeft).Column).Value  Date Then
.Cells(1, .Cells(2, Columns.Count).End(xlToLeft).Column + 1).Value = Date
Sheets("Tabelle1").Range("A1:B" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row) _
.Copy
.Cells(2, .Cells(2, Columns.Count).End(xlToLeft).Column).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Thisworkbook.Save    ' alternativ, falls sofort gespeichert werden soll
End If
End With
End If
End Sub
Der Code setzt allerdings voraus, dass diese Datei auch jeden Monat zum 25. geöffnet wird.
Grüße, Bernd
Anzeige
AW: 1 mal im Monat automatisch in andere Sheet speiche
05.09.2019 09:36:52
Annika
Hey Bernd,
und wenn es z.b der 25.10 ist , werden die 2 Spalten in Tabelle2 nicht überschrieben sondern stehen nebeneinander in etwa so.
25.09 
A         B
25.10 
A         B     C           D

25.11 
  A         B     C           D      E        F

Weil leider kann ich das nicht prüfen .
Aber wenn es dann am 25.10 nebeneinander steht , Topp!! ,bedanke ich mich rechtherzlich für deine Hilfe :)
Anzeige
AW: 1 mal im Monat automatisch in andere Sheet speiche
05.09.2019 10:38:55
Bernd
Servus Annika,
du hast recht, da war noch ein kleiner Bug drin.
Teste das mal:

Private Sub Workbook_Open()
If Day(Date) = 25 Then
With Sheets("Tabelle2")
If .Cells(1, .Cells(1, Columns.Count).End(xlToLeft).Column).Value  Date Then
.Cells(1, .Cells(2, Columns.Count).End(xlToLeft).Column + 1).Value = Date
Sheets("Tabelle1").Range("A1:B" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row) _
_
.Copy
.Cells(2, .Cells(1, Columns.Count).End(xlToLeft).Column).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
'        ThisWorkbook.Save    ' alternativ, falls sofort gespeichert werden soll
End If
End With
End If
End Sub
Zum Testen musst du nur die Zahl bei 

If Day(Date) = 25
auf den heutigen Tag (also = 5) ändern. Dann Datei neu starten oder alternativ den code durch F5/F8 manuell starten.
Anschliessend das protokollierte Datum aus Tabelle2 von heute verändern (also z.B. vom 05.09.2019 auf 04.09.2019) und das Makro erneut ausführen...
Grüße, Bernd
Anzeige
AW: 1 mal im Monat automatisch in andere Sheet speiche
05.09.2019 11:00:44
Annika
Jetzt hab ich nur noch das Problem das die Spalten nicht nebeneinander sind sondern.
SpalteA und Spalte K ( nicht a bis k ) ..
hmm?
AW: 1 mal im Monat automatisch in andere Sheet speiche
05.09.2019 15:11:46
Werner
Hallo Annika,
warum nicht einfach: 
Worksheets("Tabelle1").Range("G:G,Z:Z").Copy Worksheets("Tabelle2").Range("A1")
Gruß Werner
AW: 1 mal im Monat automatisch in andere Sheet speiche
06.09.2019 07:39:14
Bernd
Servus Annika,
bitte zukünftig gleich alle Anforderungen/Informationen bereitstellen. Das spart dir und uns allen viel Zeit. :-)

Private Sub Workbook_Open()
If Day(Date) = 25 Then
With Sheets("Tabelle2")
If .Cells(1, .Cells(1, Columns.Count).End(xlToLeft).Column).Value  Date Then
.Cells(1, .Cells(2, Columns.Count).End(xlToLeft).Column + 1).Value = Date
Sheets("Tabelle1").Range("A1:A" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row) _
.Copy
.Cells(2, .Cells(1, Columns.Count).End(xlToLeft).Column).PasteSpecial Paste:=xlValues
Sheets("Tabelle1").Range("K1:K" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row) _
.Copy
.Cells(2, .Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial Paste:= _
xlValues
Application.CutCopyMode = False
'        ThisWorkbook.Save    ' alternativ, falls sofort gespeichert werden soll
End If
End With
End If
End Sub
Grüße, Bernd
Anzeige

299 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Zeitspanne übers Datum in Stunden berechnen
Erich


Liebe Excelianer!
Hätte folgendes Problem ... hier gleich mal der Link: https://www.herber.de/bbs/user/56586.xls
Es geht darum: ich habe zwei verschiedene Datum(s) mit unterschiedlicher Uhrzeit. Ich brauch jetzt die Zeitspanne dazwischen im Format Stunden und Minuten.
Ich hab...
07.11.2008 10:22:00
Thread-ID: 1022564
2 Beiträge
Anzeige
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
String mit 0xZahl in Dezimal umrechnen
Melanie

Hallo,
ich habe z.b in zelle A1 : 0x000123A2 stehen (ist also ein string mit einer Hexadezimalen zahl)
und in zelle B1 will ich den dezimalen Wert haben ... die Hexindez() funktion kann aber nichts mit dem 0x anfangen.
Wer kann helfen ?
Gruss
Melanie
10.12.2008 11:01:00
Thread-ID: 1031615
3 Beiträge
Anzahl der Minuten zwischen 2 Uhrzeiten
Christian

Hallo Bin gerade dabei mir excel beizubringen. Hab mal ne Frage. Ich habe für meine Freundin einen Minutenrechner "programmiert". Wenn ich aber die Zeit eingeben z.B. 9:00 - 9:20 rechnet er mir 19 Minuten aus nicht 20. Wo ist der Fehler ?
12.12.2008 23:03:17
Thread-ID: 1032541
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
3
2
3
1
8
4
3
2
2
3
6
4
7
14
3
1
6
11
5
5
16
9
4
3
4