Microsoft Excel

Herbers Excel/VBA-Archiv

Daten kopieren mit Bedingung

Betrifft: Daten kopieren mit Bedingung von: Jens
Geschrieben am: 07.08.2008 09:28:56

Hallo Excelfreunde,

ich möchte aus einer Datei nur bestimmte Daten herauskopieren und in eine neue Arbeitsmappe
einfügen.
Es sollen nur die Zeilen in eine neue Arbeitsmappe kopiert werden, wo in Spalte J rechstbündig = "Summe" steht.

Wer kann mir helfen?
Besten Dank im voraus.

Jens

  

Betrifft: AW: Daten kopieren mit Bedingung von: Hanz P.
Geschrieben am: 07.08.2008 09:55:45

Hallo Jens,
mit dieser Schleife sollte es gehen:

Sub Jens

   For i = 1 To 1000
       If Cells(i, 10).Value = "Summe" And Cells(i, 10).HorizontalAlignment = xlRight Then
         'Hier den Kopierbefehl rein
       End If
    Next

End Sub



Gruß Worti


  

Betrifft: AW: Daten kopieren mit Bedingung von: Jens
Geschrieben am: 07.08.2008 11:34:57

Hallo Excelfreund,

herzlichen Dank für die schnelle Hilfe.

Einen schönen Tag
wünscht Jens


 

Beiträge aus den Excel-Beispielen zum Thema "Daten kopieren mit Bedingung"