Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1100to1104
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
Inhaltsverzeichnis

zellen kopieren wenn wert in bestimmter zelle

zellen kopieren wenn wert in bestimmter zelle
Andreas
hallo zusammen
im jeweils aktuellen tabellenblatt möchte ich bestimmte zellen kopieren wenn in der zelle B39 ein wert steht. danach soll die prozedur prüfen ob in der zelle B40 ein wert steht. wenn ja, sollen wieder bestimmte zellen kopiert werden.
die kopien sollen jeweils untereinander ins tabellenblatt "Auflistung" erfolgen.
in der recherche habe ich leider nichts passendes gefunden.
kann mir jemand einen tipp geben?
vielen dank
andreas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
So könnte der Code aussehen!
03.09.2009 17:47:27
Backowe

Sub Kopieren()
Dim Zelle As Range
With ActiveSheet
For Each Zelle In .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
If Zelle  "" Then
Zelle.Copy _
Destination:=Sheets("Auflistung").Range("A" & _
Sheets("Auflistung").Cells(Sheets("Auflistung").Rows.Count, "A").End(xlUp).Row + 1)
End If
Next
End With
End Sub

Anzeige

353 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige