Prozedur durch Umschaltfläche anstossen
28.02.2006 12:21:09
Chriz
ich kann mir die Eigenschaft von ToggleButton1_Click einfach n icht erklären: über die Umschaltfläche möchte ich eine Tabelle um Spalten bereinigen, die in ihrer obersten Zeile den Namen "Kostenarten" trägt. Mein Makro funktioniert außerhalb der ToggleButton1_Click Umgebung gut, wenn auch nicht schnell. Wie schaffe ich es, dass dieses Makro auch durch Betätigung einer Umschaltfläche funktioniert? Vielen Dank im voraus für jeden Ratschlag.
Private Sub ToggleButton1_Click()
'TakeFocusOnClick = False
ThisWorkbook.Worksheets(4).Select
Dim i As Integer
Dim j As Integer
Dim iMax As Integer
Dim jMax As Integer
Dim Max As Integer
iMax = ActiveSheet.UsedRange.Columns.count
jMax = ActiveSheet.UsedRange.Rows.count
For i = 3 To iMax
If InStr(Cells(13, i), "Kostenarten") > 0 Then
Range(Cells(13, i), Cells(jMax, iMax)).Delete Shift:=xlToLeft
End If
Next i
Max = iMax + 1
Cells(14, Max).Formula = "Summe"
For j = 15 To jMax
Cells(j, Max).Formula = "=Sum(" & Cells(j,3) & "," & Cells(j,iMax) & ")"
Next j
'TakeFocusOnClick = True
End Sub
Vielen Dank für jeden Tipp! Grüsse, Chrizzi