Sub KopierenOhneDoppelte

Bild

Betrifft: Sub KopierenOhneDoppelte
von: Sascha
Geschrieben am: 26.11.2003 23:11:47

Hallo Freunde!!
Mit folgendem Code :


Sub KopierenOhneDoppelte()
   Dim wks As Worksheet
   Dim iRow As Integer, iCol As Integer, iRowT As Integer
   Set wks = Worksheets("Tabelle2")
   iRow = 1
   iCol = 1
   wks.Columns("A").ClearContents
   Do Until IsEmpty(Cells(iRow, iCol))
      Do Until IsEmpty(Cells(iRow, iCol))
         If WorksheetFunction.CountIf( _
            wks.Columns(1), Cells(iRow, iCol).Value) = 0 Then
            iRowT = iRowT + 1
            wks.Cells(iRowT, 1).Value = Cells(iRow, iCol).Value
         End If
         iCol = iCol + 1
      Loop
      iRow = iRow + 1
      iCol = 1
   Loop
End Sub


Versuche ich werte aus Tabelle1 zu Tabelle2 zu kopieren. Es funktioniert super wenn alle Zellen in Tabelle1 Spalte A voll sind. Wenn Z.b.A14 leer ist dann wird nur bis A14 kopiert.
Es sollten alle lehre Zellen genau so wie doppelte eintrage entfallen und auch werte nach eine lehre Zelle kopiert seien.
Wer hilft weiter????
Danke
Gruß Sascha...
Bild


Betrifft: doppelt (o.T.)
von: PW
Geschrieben am: 27.11.2003 00:02:56




Bild


Betrifft: AW: doppelt (o.T.), na und
von: FCH
Geschrieben am: 27.11.2003 07:50:12

Hi,

was ist denn so schlimm an doppelten Einträgen? Kann doch mal passieren. Und die Helfer sind doch nicht blind, das sieht man doch, ohne dass ständig darauf rumgeritten wird.

Gruß
FCH


Bild


Betrifft: RICHTIG-o.Realnames ist schlimmer...o.w.T
von: Gabor
Geschrieben am: 27.11.2003 08:09:45

-)


Bild


Betrifft: Ich denke...
von: Franz W.
Geschrieben am: 27.11.2003 09:41:40

... "doppelt o.T." wird nur reingeschrieben, damit der Beitrag nicht mher in der Liste der "Offenen Fragen" steht, wo der doch an anderer Stelle schon beantwortet ist. Ist also, glaub ich, kein Gemecker :-)))

Grüße
Franz


Bild


Betrifft: AW: Ich denke...
von: FCH
Geschrieben am: 27.11.2003 10:03:04

Hi Franz,

Asche über mein Haupt, hast sicher Recht. In die Liste offener Beiträge schaue ich nie und vergesse das dann immer.

Gruß
FCH, dessen Realname hier viele kennen


Bild

Beiträge aus den Excel-Beispielen zum Thema " datei schutzen"