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

ähnliche zellen kopieren

ähnliche zellen kopieren
27.05.2006 17:08:11
Sebastian
Hallo,
ich möchte gerne per Makro aus einer Tabelle jene Zeilen herauskopieren, deren Wert in Spalte A mit dem Wert aus Zelle A3 beginnt:
z.B.:
A3 = 50
A4 = 50.1
A5 = 50.2
A6 = 51
Also soll er die Zeilen 4 und 5 in Tabelle 2 kopieren.
Vielen Dank im Voraus,
Gruß Sebastian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ähnliche zellen kopieren
ransi
Hallo Sebastian
versuchs mal...


Option Explicit
Public Sub getestet()
Dim letzte As Long
Dim L As Long
Worksheets("Tabelle1").Range("A4:A65536").Copy _
Worksheets("Tabelle2").Range("A1")
letzte = Worksheets("Tabelle2").Range("A65536").End(xlUp).Row
For L = letzte To 1 Step -1
    If Int(Worksheets("Tabelle2").Cells(L, 1)) = Worksheets("Tabelle1").Range("A3") Then _
    Worksheets("Tabelle2").Rows(L).Delete
Next
End Sub


erst alles kopieren und was du nicht brauchst löschen...
ransi
Anzeige
AW: ähnliche zellen kopieren
27.05.2006 17:56:21
Sebastian
Hallo ransi,
vielen herzlichen Dank für die schnelle kompetente Antwort. Allerdings tritt noch ein Fehler auf:
Er kopiert alles was in Spalte A nach der Zeile A3 folgt, soll aber nur die Zeilen kopieren, die mit dem Wert aus A3 beginnen. Im obigen Beispiel also die Zeile A6 nicht mehr!
Wäre echt super, wenn du mir da auch nochmal helfen könntest!
Gruß, Sebastian
AW: ähnliche zellen kopieren
27.05.2006 17:56:42
Sebastian
Hallo ransi,
vielen herzlichen Dank für die schnelle kompetente Antwort. Allerdings tritt noch ein Fehler auf:
Er kopiert alles was in Spalte A nach der Zeile A3 folgt, soll aber nur die Zeilen kopieren, die mit dem Wert aus A3 beginnen. Im obigen Beispiel also die Zeile A6 nicht mehr!
Wäre echt super, wenn du mir da auch nochmal helfen könntest!
Gruß, Sebastian
Anzeige
nicht ransi, aber...
27.05.2006 19:05:43
K.Rola
Hallo,
vielleicht hilft es trotzdem.
Option Explicit
Sub versiv()
Dim z As Long, lz As Long, rc As Long, ws As Worksheet, z2 As Long
Set ws = Sheets("Tabelle1")
rc = ws.Rows.Count
lz = IIf(ws.Cells(rc, 1) <> "", rc, ws.Cells(rc, 1).End(-4162).Row)
For z = 4 To lz
If ws.Cells(z, 1) >= ws.[a3] And _
ws.Cells(z, 1) < ws.[a3] + 1 Then
'Wenn sie lückenlos untereinander sein sollen:
'     z2 = z2 + 1
'     ws.Cells(z, 1).Copy Sheets("Tabelle2").Cells(z2, 1)
'Wenn sie an die selbe Stelle kopiert werden sollen
ws.Cells(z, 1).Copy Sheets("Tabelle2").Cells(z, 1)
End If
Next
End
End Sub
Gruß K.Rola

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige