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

Nur Zellen mit Inhalt übertragen

Nur Zellen mit Inhalt übertragen
14.11.2002 22:57:06
Rolf St
Hallo !
Ich möchte das bei folgenden Makro nur Zelleninhalte übertragen werden in dem sich eine Zahl befindet. Die leeren Zellen sollen nicht übertragen werden. Könnte mit jemand dieses Makro soweit ändern?

Option Explicit

Sub übertragen()
Dim aBereich As Range, bBereich As Range
Set aBereich = Range("O3:O1000")
Set bBereich = Range("D3:D1000")
bBereich.Value = aBereich.Value
bBereich.NumberFormat = aBereich.NumberFormat
End Sub

Vielen Dank für eure Hilfe!

Tschüß
Rolf




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

Betreff
Datum
Anwender
Anzeige
Re: Nur Zellen mit Inhalt übertragen
14.11.2002 23:08:11
chris b
Habs ein kleines bischen einfacher gelöst wenns ok ist kannst dus ja verwenden Chris !

Sub neu()

For x = 1 To 1000
If Cells(x, 15) = "" Then GoTo leer
Cells(x, 5) = Cells(x, 15)
leer:
Next

End Sub

Re: Nur Zellen mit Inhalt übertragen
15.11.2002 07:58:01
Rolf St
Hallo Chris!
Vielen Dank es funktioniert!

Tschüß
rolf

Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige