Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gefundene Zellen,Zeilen nach Tabelle2 kopieren

Gefundene Zellen,Zeilen nach Tabelle2 kopieren
23.07.2005 15:21:52
Egon
Hallo Experten!
Ich möchte einige Bereiche z.B. E11:K11 (die habe ich vorher mit For Each gefunden)
in Tabelle 2 in die jeweils nächste freie Zeile kopieren.

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Worksheets("Tabelle1").Range("E11:K11")
If c.Value <= Range("M11").Value Or c.Value >= Range("N11").Value Then
c.Interior.ColorIndex = 3
Else
c.Interior.ColorIndex = 4
End If
Next c
End Sub

In dieser Sub fehlt mir noch das kopieren der roten Zellen(Zeilen) nach Tabelle2
Wer kann helfen?
Gruß
Egon

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gefundene Zellen,Zeilen nach Tabelle2 kopieren
23.07.2005 15:32:11
Reinhard
Hi Egon,
alles kein Thema aber was willst du genau? Zellen/Zeilen irritiert stark
also e13 f17 g12 sind rot, wohin sollen sie geschrieben werden in Tabelle2? in die gleiche Zelladresse, oder untereinander oder oder...?
und schreiben geht z.B.: so
zei=zei+1
c.copy destination:=woksheets("Tabelle2").cells(zei,1)
Gruß
Reinhard
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige