Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

prüfen ob Zelle leer

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
Anzeige
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
Anzeige
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

Anzeige
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

302 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Kurze , dumme Frage: Prüfen, ob Zelle leer
Dieter

Hi,
wie kann ich denn prüfen , ob die Zelle B230 im Tabellenblatt "Umsatz" leer ist ?
(Wichtig, es ist nicht das Aktive Tabellenblatt)
Danke Dieter
29.01.2009 13:21:56
Thread-ID: 1044976
8 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Wert aus Matrix wenn Zelle nicht leer
petra

Hallo Zusammen,
brauche dringend Hilfe. Hoffe ihr wisst eine Lösung, also folgendes Problem:
Ich möchte aus einer zweidimensionalen Matrix einen Wert anhand von 2 Suchkriterien herausfiltern.
....A B C D E
1. a b c d e
2..x ö.1....5
3..y ä....4
4..z ü.3
Wenn...
15.04.2009 13:39:28
Thread-ID: 1068877
2 Beiträge

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
5
2
9
2
1
4
7
2
7
1
23
12
1
23
6
9
2
4
6
10
1
2
6
9
4