Anzeige
Archiv - Navigation
988to992
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
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei Leerzellen Werte kopieren verhindern

Bei Leerzellen Werte kopieren verhindern
04.07.2008 07:40:00
Holger
Guten Morgen Excel-Profis,
hab wieder mal ne Frage. Hab hier folgende Code gefunden, um bestimmte Werte aus Tabelle 1 in Tabelle 2 zu kopieren.
-------------------------------------------------

Sub Kopieren()
Dim loLetzte As Long
With Worksheets("Tabelle2")
loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .  _
_
Rows.Count) + 1
.Cells(loLetzte, 1) = Worksheets("Tabelle1").Range("A1")
.Cells(loLetzte, 2) = Worksheets("Tabelle1").Range("A2")
.Cells(loLetzte, 3) = Worksheets("Tabelle1").Range("A3")
End With
End Sub


--------------------------------------------------
Nun meine Frage: Wie muss der Code verändert werden, wenn der Befehl nur ausgeführt werden soll, wenn in A1:A3 Eintragungen sind. Oder anders, wenn in einem Feld von A1:A3 nichts steht, soll ne Meldung kommen "Es fehlen Eintragungen" oder sowas. Ich hoffe ihr versteht mich.
Ein schönes WE und Danke im voraus.
Holger

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Frag .Value vorher ab ...
04.07.2008 07:52:53
Matthias
Hallo Holger
Option Explicit

Sub Kopieren()
Dim loLetzte As Long
If Worksheets("Tabelle1").Range("A1").Value = "" Or Worksheets("Tabelle1").Range("A2").Value = " _
" Or Worksheets("Tabelle1").Range("A3").Value = "" Then MsgBox "Es fehlen Eintragungen": Exit Sub
With Worksheets("Tabelle2")
loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows. _
Count) + 1
.Cells(loLetzte, 1) = Worksheets("Tabelle1").Range("A1")
.Cells(loLetzte, 2) = Worksheets("Tabelle1").Range("A2")
.Cells(loLetzte, 3) = Worksheets("Tabelle1").Range("A3")
End With
End Sub


Gruß Matthias

Anzeige
AW: Frag .Value vorher ab ...
04.07.2008 08:30:10
Holger
Hallo Matthias,
Danke für die Hilfe. Klappt prima.
Ein schönes WE.
Gruß Holger

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige