Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1008to1012
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

Zeile kopieren wenn wert in Zelle

Zeile kopieren wenn wert in Zelle
07.09.2008 20:32:00
Andreas
hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das jemand zeigen könnte.

Sub Bei_leer_kopieren()
Columns("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Copy Destination:=Worksheets("Tabelle2") _
_
.Range("A1")
End Sub


andi

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile kopieren wenn wert in Zelle
07.09.2008 20:47:36
Ramses
Hallo
Sub Copy_x()
    Dim i As Long, suchCol As Long
    Dim strSearch As String
    Dim srcWks As Worksheet, tarWks As Worksheet
    'Tabellennamen anpassen
    'srcWks wo gesucht werden soll
    Set srcWks = Worksheets("Tabelle1")
    'tarWks wo hinkopiert werden soll
    Set tarWks = Worksheets("Tabelle2")
    '8 = Spalte H
    suchCol = 8
    'strSearch = was gesucht werden soll
    strSearch = "x"
    With srcWks
        For i = 1 To .Cells(Rows.Count, suchCol).End(xlUp).Row
            If .Cells(i, suchCol).Text = strSearch Then
                Rows(i).Copy Destination:=tarWks.Cells(tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
            End If
        Next i
    End With
End Sub


Gruss Rainer
Anzeige
Klasse, vielen Dank
07.09.2008 21:07:15
Andreas
Klasse, vielen Dank Rainer

347 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige