prüfen ob Zelle leer

Forumthread: prüfen ob Zelle leer

28.10.2005 23:49:28

Thomas

Hallo,
wenn ich das Macro das 2. mal mache klaut es mir vom ersten Macro immer die
letzte Zeile es muss also geprüft werden ob die Zelle leer ist wenn nicht leer die nächste leere zelle finden und dann einfügen.
Kann mir da jemand helfen?
Gruß Thomas


Sub Test()
Range("S15:Y20").Select
Selection.Copy
Sheets("Tabelle2").Select
Dim i As Integer, x As Long
i = 2
x = Cells(65535, i).End(xlUp).Row
Cells(x, 2).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: prüfen ob Zelle leer

28.10.2005 23:55:42

Matthias
AW: prüfen ob Zelle leer

29.10.2005 00:03:45

Thomas
AW: prüfen ob Zelle leer

29.10.2005 00:06:48

Dieter
AW: prüfen ob Zelle leer

29.10.2005 00:18:41

Thomas
AW: prüfen ob Zelle leer

29.10.2005 00:22:19

Dieter
AW: prüfen ob Zelle leer

29.10.2005 01:08:48

Thomas
AW: prüfen ob Zelle leer

29.10.2005 01:42:13

Dieter
AW: danke Dieter hat geklappt

29.10.2005 12:39:48

Thomas
AW: prüfen ob Zelle leer

29.10.2005 00:00:27

Dieter

AW: prüfen ob Zelle leer

28.10.2005 23:55:42

Matthias

Hallo Thomas,


x = Cells(65535, i).End(xlUp).Row + 1

War's das?
Gruß Matthias

AW: prüfen ob Zelle leer

29.10.2005 00:03:45

Thomas

Hallo Matthias,
x = Cells(65535, i).End(xlUp).Row + 1
nein, denn wenn ich das macro das erste mal ausführe bleibt die erste zeile leer.
gruss thomas

AW: prüfen ob Zelle leer

29.10.2005 00:06:48

Dieter

Hallo,
du musst dann halt abfragen, ob x = 1, wenn nein, x + 1, sonst x.
Grüße Dieter

AW: prüfen ob Zelle leer

29.10.2005 00:18:41

Thomas

hallo dieter,
ich weiß nicht wie man das macht mit der abfrage.

AW: prüfen ob Zelle leer

29.10.2005 00:22:19

Dieter

Hallo,
Option Explicit


Sub Test()
Dim i As Integer, x As Long
Range("S15:Y20").Copy
i = 2
x = Sheets("Tabelle2").Cells(65535, i).End(xlUp).Row
If x = 1 Then
Sheets("Tabelle2").Cells(x, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else
Sheets("Tabelle2").Cells(x + 1, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If
End Sub

Grüße Dieter

AW: prüfen ob Zelle leer

29.10.2005 01:08:48

Thomas

hallo dieter,
habe es so gemacht wie du geschrieben hast und es funktioniert.
Dann will ich aber das macro test2 ausführen von einen anderen tabellenblatt, aber es wird der test1 ausgeführt was muss geändert werden?


Sub Test1()
Dim i As Integer, x As Long
Range("S15:Y20").Copy
i = 2
x = Sheets("Tabelle2").Cells(65535, i).End(xlUp).Row
If x = 1 Then
Sheets("Tabelle2").Cells(x, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else
Sheets("Tabelle2").Cells(x + 1, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If
End Sub


Sub Test2()
Dim i As Integer, x As Long
Range("L32:R40").Select
i = 2
x = Sheets("Tabelle2").Cells(65535, i).End(xlUp).Row
If x = 1 Then
Sheets("Tabelle2").Cells(x, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else
Sheets("Tabelle2").Cells(x + 1, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If
End Sub

AW: prüfen ob Zelle leer

29.10.2005 01:42:13

Dieter

Hallo,
du musst den Blattnamen angeben oder das Blatt aktivieren und lass das select weg!
Grüße Dieter

AW: danke Dieter hat geklappt

29.10.2005 12:39:48

Thomas

Danke
Gruß Thomas

AW: prüfen ob Zelle leer

29.10.2005 00:00:27

Dieter

Hallo,
gewöhn dir gar nicht erst dieses überflüssige Select und activate an:
Option Explicit


Sub Test()
Dim i As Integer, x As Long
Range("S15:Y20").Copy
i = 2
x = Sheets("Tabelle2").Cells(65535, i).End(xlUp).Row + 1
Sheets("Tabelle2").Cells(x, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

Grüße Dieter

Beliebteste Forumthreads (12 Monate)

Forumthread: prüfen ob Zelle leer

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread