SQL - select distinct ...

Forumthread: SQL - select distinct ...
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: SQL - select distinct ...

21.06.2007 16: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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: SQL - select distinct ...

21.06.2007 17:17:30

Rudi

AW: SQL - select distinct ...

21.06.2007 17: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