Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kopieren wenn nicht leer

kopieren wenn nicht leer
12.10.2004 11:50:36
Josi
Guten Tag
Folgendes Problem
Mittels eines Makros soll wenn ich es ausführe die Zelle A1 wenn sie nicht leer ist kopiert werden und in Spalte G in der ersten nicht leeren Zeile eingefügt werden.
Vielen Dank für eure Hilfe
Schöne Grüße
Josi

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

Betreff
Datum
Anwender
Anzeige
AW: kopieren wenn nicht leer
WernerB.
Hallo Josi,
wie gefällt Dir das?

Sub Josi()
Dim laR As Long
If Range("A1").Value = "" Then Exit Sub
laR = Cells(Rows.Count, 7).End(xlUp).Row
If laR = 1 And Range("G1").Value = "" Then laR = 0
Range("G" & laR + 1).Value = Range("A1").Value
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Vielen Dank das wars
Josi
.
Anzeige

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige