VBA Problem

Bild

Betrifft: VBA Problem
von: Sascha
Geschrieben am: 09.12.2003 11:41:50

Hallo liebe Freunde!!!
Habe ein kleines Problem:
Mit folgendem code :


Sub sort()
   Dim wks As Worksheet
   Dim iRow As Integer, iRowT As Integer
   Set wks = Worksheets("Tabelle2")
   wks.Columns("A").ClearContents
   iRowT = 3
   For iRow = 1 To Range("a65536").End(xlUp).Row
      If Cells(iRow, 1) <> " " Then
         If WorksheetFunction.CountIf(wks.Columns(1), _
         Cells(iRow, 1)) = 0 Then
            iRowT = iRowT + 1
            wks.Cells(iRowT, 1) = Cells(iRow, 1)
         End If
      End If
    Next
End Sub


Kann ich von aktivem Blatt Spalte A ohne doppelten in Tabelle 2 einfügen .
Ich möchte aber diese Makro aus Tabelle 3 betätigen .
Also egal aus welche Tabelle ich diese Makro starte soll immer Tabelle1 Spalte A ohne doppelten in Tabelle 2 eingefügt werden
Wer hilft mir weiter
Danke in voraus
Gruß Sascha
Bild


Betrifft: AW: VBA Problem
von: ChrisL
Geschrieben am: 09.12.2003 11:49:34

Hi Sascha

Option Explicit


Sub sort()
   Dim wks1 As Worksheet, wks2 As Worksheet
   Dim iRow As Integer, iRowT As Integer
   
   Set wks1 = Worksheets("Tabelle1")
   Set wks2 = Worksheets("Tabelle2")
   
   wks2.Columns("A").ClearContents
   iRowT = 3
   For iRow = 1 To wks1.Range("a65536").End(xlUp).Row
      If wks1.Cells(iRow, 1) <> " " Then
         If WorksheetFunction.CountIf(wks2.Columns(1), _
         wks1.Cells(iRow, 1)) = 0 Then
            iRowT = iRowT + 1
            wks2.Cells(iRowT, 1) = wks1.Cells(iRow, 1)
         End If
      End If
    Next
End Sub



Gruss
Chris


Bild


Betrifft: AW: VBA Problem
von: Nike
Geschrieben am: 09.12.2003 11:53:29

Hi,

mal so versuchen...

Public

Sub sort()
   Dim wks As Worksheet
   Dim wks2 As Worksheet
   Dim iRow As Integer, iRowT As Integer
   Set wks = Worksheets("Tabelle1")
   Set wks2 = Worksheets("Tabelle2")
   wks2.Columns("A").ClearContents
   iRowT = 3
   For iRow = 1 To wks.Range("a65536").End(xlUp).Row
      If wks.Cells(iRow, 1) <> " " Then
         If WorksheetFunction.CountIf(wks2.Columns(1), _
         wks.Cells(iRow, 1)) = 0 Then
            iRowT = iRowT + 1
            wks2.Cells(iRowT, 1) = wks.Cells(iRow, 1)
         End If
      End If
    Next
End Sub


Bye

Nike


Bild


Betrifft: AW: VBA Problem
von: Sascha
Geschrieben am: 09.12.2003 12:25:08

Danke an alle
Sascha


Bild

Beiträge aus den Excel-Beispielen zum Thema " VBA Problem"