Command Buttons

Hallo Mirko,
muss ich den Code in jeden einzelnen Button schreiben?
Nein, nicht IN den Button. In die Workbook-Open
Zitat: Wenn du die width und height auskommentierst -- heisst auf "0" setzen?
NEEEEEEIN! Auskommentieren heisst: ein Hochkomma ' davor setzen. Die Zeile wird dann grün und im Code nicht mehr beachtet.
und wenn ich mehrere Command Button 1 habe?
Dann ist dein Tabellenaufbau mies.
Ich seh grad dein VBA-Level ... ich mach mal besser ein Beispiel:
Du willst alle Buttons im Blatt "Tabelle3" zurück setzen. Die Zellpositionen der Buttons sind bekannt. Es gibt 4 Buttons, benannt CommandButton1 bis 3 sowie CommandButtonHalloWelt

Sub ButtonsZurueck()
Dim rng As Range
With Sheets("Tabelle3")
Set rng = .Range("A1")
With .OLEObjects("CommandButton1")
.Top = rng.Top
.Left = rng.Left
End With
Set rng = .Range("C1")
With .OLEObjects("CommandButton2")
.Top = rng.Top
.Left = rng.Left
End With
Set rng = .Range("Z7")
With .OLEObjects("CommandButton3")
.Top = rng.Top
.Left = rng.Left
End With
Set rng = .Range("Y15")
With .OLEObjects("CommandButtonHalloWelt")
.Top = rng.Top
.Left = rng.Left
End With
End With
End Sub

Den Code einmal ausgeführt, und alle Buttons im Tabelle3 sind da wo sie hingehören. Den Code einfach Copy&Paste und immer das richtige "Range" angeben für jeden Button.
Anmerkung1:
Das ganze ist nicht optimiert oder elegant, aber ich hoffe es ist so verständlich. Optimieren kann man immer noch, nachdem man verstanden hat :-)
Anmerkung2:
Du solltest dir dringends (!!!) angewöhnen, allen Buttons eindeutige Namen zu geben. Überleg dir eine Konvention dafür. Wenn du zB einen Button hast der Zeilen nach Datums ausblendet, nenn ihn "CmB_ZeilenDatumAusblenden". Dann weisst du auch in 10 Jahren noch, wofür der Button eigentlich gut ist.
Grüße,
Klaus M.vdT.

wenn ich das wüsste?
Der Code für das zwischenspeichern lautet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 10 Or Target.Column = 21 Then
Set data = New DataObject
If ActiveCell.Value = "KS" Then
data.SetText Date & " " & ActiveSheet.Cells(Target.Row - 3, Target.Column - 3).Value
Else
data.SetText ActiveSheet.Cells(Target.Row, Target.Column - 9).Value & Chr(10) _
& Tabelle2.Range("E2").Value & ", Team " & _
Tabelle2.Range("C2").Value & " - " & _
Tabelle2.Range("D2").Value & ", " & _
Tabelle2.Range("F2").Value & ", " & Date
End If
data.PutInClipboard
End If
End Sub

Diesen Code habe ich damit per Klick alle Blätter geschützt werden und wieder aufgehoben werden können
Sub Schutz_Ein_Aus()
End Sub

Private Sub CommandButton1_Click()
Dim ws As Worksheet, PW$
PW = InputBox("Bitte das Passwort eingeben!", "PASSWORT")
If PW = "" Then Exit Sub
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "Tabelle2" Then
If ws.ProtectContents = True Then
ws.Unprotect PW
Else
ws.Protect PW
End If
End If
Next ws
End Sub

Hoffe du kannst mir helfen - dies ist nervig wenn sich die Buttons alle verschieben.
Wäre dies mit einer Userform besser?
VG Mirko

Forumthread: Command Buttons

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Command Buttons

Forumthread: Command Buttons

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread