Sub Aufruf
Dim SqlStr$
SqlStr="select * from Tabellenname 'Beispielsweise
SQLinTabelle(SqlStr,1,1) ' fügt ab Zeile1, Spalte1 ein
End Sub
Function SQLinTabelle(Statement$, AbZeile&, AbSpalte&)
Dim DB As New ADODB.Connection ' Datenbankobjekt
Dim CN ' Connection
Dim rs As New ADODB.Recordset ' RecordSet
Dim FieldCounter&
Dim I&, Spalte& ', Zeile&, Spalte&
On Error GoTo ErrHandler
If AbZeile = 0 Then AbZeile = 2
If AbSpalte = 0 Then AbSpalte = 1
DB.Open "DSN=Datenquelle;uid=datenbankbenutzer;pwd=Passwort"
Set rs = DB.Execute(Statement, CN)
FieldCounter = rs.Fields.Count
'J = AbZeile
Spalte = AbSpalte
Do
For I = 0 To rs.Fields.Count - 1
Cells(AbZeile, Spalte) = rs.Fields(I)
Spalte = Spalte + 1
Next
AbZeile = AbZeile + 1
rs.MoveNext
Spalte = AbSpalte
Loop While rs.EOF = False
Set rs = Nothing
DB.Close
Exit Function
ErrHandler:
'MsgBox (Err.Number)
Set rs = Nothing
DB.Close
If Err.Number = 1004 Then
MsgBox ("Keine Datesätze vorhanden!")
Else
MsgBox ("Fehler bei sql-Abfrage" & vbCrLf & Statement)
End If
End Function
Problemstellung
Wie kann ich über ein VBA-Makro in eine Zelle einen SVERWEIS() auf eine geschlossene Arbeitsmappe eintragen, wenn sich das Suchkriterium, der Dateiname, der Blattname und die Matrix-Adresse im aktiven Blatt befinden?
Problemstellung
Wie muß eine benutzerdefinierte Funktion aussehen, die eine SVERWEIS()-Suche über mehrere Bereiche durchführt?
Problemstellung
Wie kann ich mit der SVERWEIS()-Formel auf eine Artikelliste zugreifen? Die Datensätze sollen danach durch Drücken einer Schaltfläche in eine Umsatzliste übernommen werden.
Problemstellung
Wie kann ich in einer SVERWEIS-Formel mehrere Fundstellen als Zeichenfolge zusammenfassen?
Problemstellung
Wie sind die SVERWEIS-, WVERWEIS- und Matrixformeln zu handhaben?
Problemstellung
Was bewirken die Funktionen SVERWEIS, WVERWEIS, INDEX, VERGLEICH sowie die Zielwertsuche?
Problemstellung
Wie kann ich zu einer Reihe von SVERWEISEN automatisch Hyperlinks zu den Bezugstabellen anlegen?
Problemstellung
Bei Eintrag einer Nummer in Spalte A sollen - falls vorhanden - die entsprechenden Werte aus tab1 in die Spalten B:C eingetragen werden.