Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalte a und b in anderes Sheet kopieren

Spalte a und b in anderes Sheet kopieren
12.11.2005 16:55:33
Wolfgang
Hallo zusammen,
ich muss aus dem Sheet AV ab Zeilen 42 alle Inhalte aus Spalte A,B ohne Duplikate nach sheet SEGEM kopieren.
Was habe ich falsch gemacht.
Gruß
Wolfgang

Sub Makro2()
Dim letzteZeile As Integer
Worksheets("AV").Activate
letzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
Worksheets("SEGEM").Activate
'    Sheets("SEGEM").Range(Rows(5), Rows(Rows.Count)).Clear
Sheets("AV").Range("A42:B" & letzteZeile).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("A5:B" & letzteZeile), Unique:=True
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte a und b in anderes Sheet kopieren
12.11.2005 17:22:54
DieterB
Hallo Wolfgang,
guckst du HIER
Gruß DieterB
AW: Spalte a und b in anderes Sheet kopieren
12.11.2005 17:41:33
Wolfgang
Hallo,
Die Spalten hängen ja zusammen.
Ich muss die Daten aus Tabellenblatt (AV)Spalte(AundB)ab Zeile 42 in das Tabellenblatt SEGEM ab Zeile 5 kopieren.
Das ganze aber ohne duplikate.
Gruß
Wolfgang
AW: Spalte a und b in anderes Sheet kopieren
13.11.2005 21:56:48
Peter
Hallo Wolfgang,
mit dem AdvancedFilter hab ich es auch nicht geschafft, aber mit dem beigefügten Makro sollte es gehen - bei mir funktioniert es jedenfalls.


'
'   es sollen aus dem Sheet "AV" ab Zeilen 42 alle Inhalte aus Spalte A, B
'   ohne Duplikate in das Sheet "SEGEM" ab A5 kopiert werden.
'
Sub KopierenOhneDoppelte()
Dim WkSh     As Worksheet  ' Ziel/Target Tabellenblatt
Dim lZeile   As Long       ' Index der aktuellen Zeile Quell/Source Tabellenblatt
Dim iSpalte  As Integer    ' Spalten Index
Dim lZeileZ  As Long       ' Index der aktuellen Zeile Ziel/Target Tabellenblatt
   Set WkSh = Worksheets("SEGEM")
   lZeileZ = IIf(WkSh.Range("A65536") <> "", 65536, WkSh.Range("A65536").End(xlUp).Row)
   WkSh.Range("A5:B" & lZeileZ).ClearContents
   
   lZeile = 42  ' Start Zeile im Quell/Source Tabellenblatt
   iSpalte = 1  ' gemeinsame Start Spalte
   lZeileZ = 5  ' Start Zeile im Ziel/Target Tabellenblatt
   
   Do Until IsEmpty(Cells(lZeile, iSpalte))
      Do Until IsEmpty(Cells(lZeile, iSpalte)) Or iSpalte > 2
         If WorksheetFunction.CountIf( _
            WkSh.Columns(iSpalte), Cells(lZeile, iSpalte).Value) = 0 Then
            WkSh.Cells(lZeileZ, iSpalte).Value = Cells(lZeile, iSpalte).Value
         End If
         iSpalte = iSpalte + 1
      Loop
      lZeileZ = lZeileZ + 1
      lZeile = lZeile + 1
      iSpalte = 1
   Loop
End Sub


Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige