Msgbox wenn Zeile vorhanden

Forumthread: Msgbox wenn Zeile vorhanden
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Msgbox wenn Zeile vorhanden

Hallo,
habe folgendes Problem und hoffe ihr könnt mir helfen.
Habe schon folgendes Makro geschrieben


Sub Übertragung_in_Archiv()
Rows("2:2").Select
Selection.Copy
Sheets("Historie Auswertung").Select
Cells(1, 1).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Es überträgt die Werte einer Zeile von einer Tabelle in eine andere und sucht sich dabei die erste freie Zeile zum einfügen.
Nun hätte ich gerne noch, dass dies nur geschiet, wenn das Datum (welches immer in Spalte a steht) noch nicht im Archiv vorhanden ist. Ansonsten soll eine MsgBox erscheinen.
Schon einmal vielen Dank für eure hilfe.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Msgbox wenn Zeile vorhanden

Rudi
AW: Msgbox wenn Zeile vorhanden

Xandra

AW: Msgbox wenn Zeile vorhanden

27.10.2009 11:02:45

Rudi

Hallo,
hast du keinen Namen?

Sub Übertragung_in_Archiv()
If Application.CountIf(Sheets("Historie").Columns(1), Cells(2, 1)) > 0 Then
MsgBox "Schon da"
Else
Rows("2:2").Copy
Sheets("Historie Auswertung").Cells(1, 1).End(xlDown).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
End Sub

Gruß
Rudi

AW: Msgbox wenn Zeile vorhanden

27.10.2009 11:57:05

Xandra

Doch schon....
Vielen Dank funktioniert bestens.
Gruß Xandra