Button erstellen zum Zeilen einf.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke schon mal für die schnelle Antwort.
Es geht darum wenn man zum Beispiel einen Block mit 4 Personen untereinander hat und darber zwei Leerzeilen das man alle eins hochschieben kann das nur noch eine Leerzeile dort ist und wenn man keine Leerzeile hat und eine benötigt das eine eine eingefügt wird. Ansonsten erstellt man ja mit Einfügen eine neue Zeile mit Abt usw.
Zu 1 und 2. : Ist leider so gewollt, da wenn ich zum Beispiel was in Februar ändere das nicht für Januar gelten soll. Es soll ja nicht immer in allen dann angepasst werden weil ja jemand zum Beispiel im Januar da ist und im Februar nicht mehr. Das einzige Problem was ich noch habe das wenn ich jemand neues hinzufüge das keine Ziffer vorne hingestellt wird und die anderen angepasst werden. Da muss ich mal sehen wie ich das realisiere.
Zu 3. Werde ich bearbeiten
Zu 4. Wie genau meinst du das ? ist das eine andere Buttonform ?
Zu 5. Auch das werde ich ändern =)
MfG

Hallo Florian,
Wenn ich deine nachträgliche Erklärung verstehe, die Änderungen die Du machen möchtest, sollen erst (z.B.) ab Mai gelten?
Dann wählt das Blatt "Mai" aus, wählt das Blatt "Dez" mit gedrückte Shift-Taste, dann sind alle Reiter Mai bis Dez ausgewählt, markiere eine oder mehrere Zeilen (ganze Zeile) und Drücke Strg+"+" (Zielen einfügen) oder Strg+"-" (Zeilen löschen).
Solche Basiswissen über Excel durch umständliche und unflexible VBA zu überlagern, wird sehr schnell als unnötig teuer vorkommen (es sei denn, Du möchtest VBA lernen). Du kannst schon dein nächste Forum-Frage gedenklich formulieren.
zu 4)
in jedes Blatt gibt es ein Cmdxy das aber nichts anderes macht als eine zentral definierte Vba-Makro auszurufen und der Name der betroffen Blatt zu übergeben.
In jedes Blatt:


Private Sub CmdKennwort()
Kennwort Me
End Sub

In einem Modul


Private Sub Kennwort(ByRef WS As Worksheet)
If WS.ProtectContents Then
WS.Unprotect
WS.Controls("CommandButton2").Visible = True
WS.Controls("CommandButton3").Visible = True
Else
WS.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, Password:=("KdoSAN")
WS.EnableAutoFilter = True
WS.Controls("CommandButton2").Visible = False
WS.Controls("CommandButton3").Visible = False
End If
End Sub

CommandButton2 und 3 werden nach Pkt 3) eine andere Name haben, aber dann muss Du den Code nur an einer Stelle anpassen.
VG
Yal

Beliebteste Forumthreads (12 Monate)

Button erstellen zum Zeilen einf.

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Button erstellen zum Zeilen einf.

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread