Zahlen in Zelle nebendran kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Beispiel() Dim rngCopy As Range Dim lngCol& With Tabelle1 'Tabelle anpassen If .Cells(33, .Columns.Count) "" Then MsgBox "keine Spalte mehr frei" Exit Sub End If lngCol = .Cells(33, .Columns.Count).End(xlToLeft).Column + 1 'wenn nächste

Vielen Dank Tino, funktioniert optimal.
Jetzt nur noch 2 kleine Sachen:
1. Anstatt des Datumformates TT.MM.YYYY soll nur der Monat und das jahr angezeigt werden. (Also: August 14, September 14 ....)
2. Das Ausführen des Makros soll nur funktionieren, wenn bisher noch keine Werte aus dem aktuellen Monat kopiert worden sind. Sprich: Wenn ich das Makro jetzt ausführe, soll als Datum August 2014 und darunter die kopierten Werte erscheinen. Wenn ich das Makro dannach nochmal ausführe, soll nichts geschehen, da die Werte für August schon übertragen worden sind. Erst ab September darf es wieder funktionieren usw. Im Endeffekt soll einfach verhindert werden, dass der gleiche Monat nochmal erscheint.

Sub Beispiel() Dim rngCopy As Range Dim lngCol&, Datum As Date With Tabelle1 'Tabelle anpassen If .Cells(33, .Columns.Count) "" Then MsgBox "keine Spalte mehr frei" Exit Sub End If lngCol = .Cells(33, .Columns.Count).End(xlToLeft).Column + 1 'wenn nächste 16 Then Datum = .Cells(33, lngCol - 1) If Month(Date) = Month(Datum) Then MsgBox "Daten wurden in diesem Monat schon kopiert" Else 'Bereich der kopiert werden soll Set rngCopy = .Range("K34:K36") 'kopieren rngCopy.Copy .Cells(34, lngCol) 'Datum eintragen With .Cells(33, lngCol) .NumberFormat = "MMMM YY" .Value = Date End With End If End With End Sub

Hallo Nastja,
dann muss man beim Kopieren nur Formate und Werte einfügen.
Gruß
Franz

Sub Beispiel()
Dim rngCopy As Range
Dim lngCol&, Datum As Date
With Tabelle1 'Tabelle anpassen
If .Cells(33, .Columns.Count)  "" Then
MsgBox "keine Spalte mehr frei"
Exit Sub
End If
lngCol = .Cells(33, .Columns.Count).End(xlToLeft).Column + 1
'wenn nächste  16 Then Datum = .Cells(33, lngCol - 1)
If Month(Date) = Month(Datum) Then
MsgBox "Daten wurden in diesem Monat schon kopiert"
Else
'Bereich der kopiert werden soll
Set rngCopy = .Range("K34:K36")
'kopieren
rngCopy.Copy
With .Cells(34, lngCol)
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
'Datum eintragen
With .Cells(33, lngCol)
.NumberFormat = "MMMM YY"
.Value = Date
End With
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Zahlen in Zelle nebendran kopieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen in Zelle nebendran kopieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread