hat jemand eine Idee, wie ich eine Umschaltfläche in einer verbundenen Zelle zentrieren kann, nachdem ich Zeilen eingefügt habe und die Schaltfläche nun irgendwo im oberen Drittel der verbundenen Zelle hängt ?
Sub Makro2()
' Makro2 Makro
' Makro am 15.03.2009 von Andre aufgezeichnet
For Each btn In ActiveSheet.Shapes
If btn.Name = "ToggleButton1" Then
If btn.Left >= Cells(2, 2).Left And btn.Left = Cells(2, 2).Top And btn.Top
Gruß, Andre
' dann Anzahl der DS ermitteln
.MoveLast
lCount = .RecordCount
.MoveFirst
' Recordset ins Array kopieren
vRst = .GetRows(lCount)
Sub ComBox()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Dokumente und Einstellungen\Administrator\Desktop\db2.mdb"
rst.Open "SELECT DISTINCT [Set] FROM Mail ORDER BY [Set];", _
cnn, adOpenStatic
rst.MoveFirst
With Worksheets("A").ComboBox1
.Clear
Do
.AddItem rst![Set]
rst.MoveNext
Loop Until rst.EOF
End With
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
irgendwie müsste man dann also die comboBox gegen den Array austauschen ?
Was ist Nordwind eingentlich ?
Gruß Micha
Dim vRows
...
With rst
.MoveLast
.MoveFirst
vRows = rst.GetRows(.RecordCount)
.Close
End With
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen