Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SQL - select distinct ...

Forumthread: SQL - select distinct ...

SQL - select distinct ...
21.06.2007 14:42:01
Bernd
Hallo,
kann ich per VBA ein SQL Statement auf ein eine Spalte in einem Tabllenblatt absetzen, um die Unikate zu ermitteln und das Ergebnis in eine andere Tabelle schreiben?
Danke für jeden Tip
Bernd

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SQL - select distinct ...
21.06.2007 15:17:30
Rudi
Hallo,
SQL weiß ich nicht. So geht's aber auch:

Sub tt()
Dim clTest As New Collection
Dim lngCounter As Long, myArray(), rngC As Range
With Sheets(1)
For Each rngC In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
Err.Clear
On Error Resume Next
clTest.Add rngC, rngC
If Err = 0 Then
lngCounter = lngCounter + 1
ReDim Preserve myArray(1 To lngCounter)
myArray(lngCounter) = rngC
End If
Next
End With
With Sheets(2)
.Range(.Cells(1, 1), .Cells(lngCounter, 1)) = WorksheetFunction.Transpose(myArray)
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige