Button erstellen zum Zeilen einf.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich versuch es mal (bin aber schlecht im Erklären, nur als Warnung ;-) ):
Auf deinem Arbeitsblatt "Grundeinstellung" würde ich 2 Buttons einfügen (wie du es glaube auch vorhast), beide brauchen ein eigenes zugewiesenes Makro.
Beide Makros sind vom Grundsatz her gleich.
Erstmal dimensionierst du: 1. eine Zeile, unter der eingefügt werden soll, 2. die Tabellenblätter, 3. ein "Start"tabellenblatt.


Dim zeile As Long
Dim ws As Worksheet
Dim wsStart As Long

Du musst zum Einen sagen, unter welcher Zeile die Leerzeile eingefügt werden soll und zum Anderen, auf welchen Blättern das passieren soll.
Hierbei gehe ich davon aus, dass immer auf allen nachfolgenden Blättern eine Leerzeile eingefügt werden soll, richtig? Also, dass nicht z. B. von Januar-April und dann wieder von Juli-Dezember, sondern ab z. B. April durchgehend bis Dezember.
Für diese beiden Dinge benötigst du InputBoxen. Dafür hast du zu Beginn die Zeile und das Startblatt dimensioniert.


zeile = InputBox("Dein Text")
wsStart = InputBox("Dein Text?")

Nun musst du eine Schleife über die Blätter laufen lassen, da du die ersten X Blätter aber ausschließen willst, musst du VBA noch sagen, dass das Makro erst ab Blatt X laufen soll. Hierfür nimmst du am Einfachsten die Excel-Interne Bezeichnung, da diese durchnummeriert sind.
Bei meiner Variante musst du die Blattnummer (Januar wäre 2) eintragen, ab der die Zeile eingefügt werden soll.


For Each ws In Sheets
If ws.Index >= wsStart Then
With ws

Weiter sagst du, dass auf den von dir bestimmten Blättern jeweils eine Zeile eingefügt wird, unter der eingegebenen.


.Rows(zeile + 1).Insert

Das ist das Makro fürs Einfügen.
Das Makro zum Löschen ist genau gleich aufgebaut, nur dass dort ein Wort geändert werden muss.
Aber darauf kommst du sicher selbst ;-)
Das ist mal eine grundsätzliche Möglichkeit.
Das Makro abschließen schaffst du?
Gruß Pierre

siehste, hab schon eine Frage - deswegen ist mir das Zeigen von Bsp-Dateien am liebsten!
Zitat
Ich möchte hier einen Button realisieren indem ich angeben kann ob ich eine Zeile Einfügen(hier mit Name in der ersten Spalte) oder Löschen Möchte
Frage
In jeder der Monatstabellen ist in der 1. Spalte kein Name, sondern die lfd Nr.
(Name kommt erst in Spalte C)
Was also meinst du mit "hier mit Name in der ersten Spalte" ?
Dann noch etwas.
Leider hast du vergessen, in jeder Monatstabelle einen Button an der Stelle hinzuzufügen, wo du ihn haben willst.
Da auch ich keine Lust dazu habe :-), 12 Button zu erstellen, könnte das Ganze auch so programmiert werden, dass bei Auswahl einer Zelle in Spalte A (lfd Nr, nicht Name!) eine Abfrage erscheint, wieviele Zeilen unterhalb der angeklickten Zelle in Spalte A hinzugefügt oder gelöscht werden sollen - natürlich würde sich das auf jede Monatstabelle auswirken.
Danke für deine Antworten.

Dim i As Long, Zeile As Long Zeile = Application.InputBox("welche Zeile loeschen?", "Zeile loeschen", Type:=1) For i = ActiveSheet.Index To Worksheets.Count 'von aktuellem Blatt bis letztes Blatt Worksheets(i).Rows(Zeile).Delete Next

Dim i As Long, Zeile As Long Zeile = Application.InputBox("nach welcher Zeile einfuegen?", "Zeile einfuegen", Type:=1) For i = ActiveSheet.Index To Worksheets.Count Worksheets(i).Rows(Zeile).Insert xlDown Next

Dim i As Long, Zeile As Long Zeile = Application.InputBox("nach welcher Zeile einfuegen?", "Zeile einfuegen", 0, Type:=1) If Zeile = 0 Then Exit Sub Application.EnableEvents = False For i = ActiveSheet.Index To Worksheets.Count With Worksheets(i) .Rows(Zeile).Insert xlDown .Cells(Zeile, 2) = Application.InputBox("Abtl.", "Abt. einfuegen", Type:=2) .Cells(Zeile, 3) = Application.InputBox("Name", "Name eintragen", Type:=2) End With Next Application.EnableEvents = True

Dim i As Long, Zeile As Long Dim Abteilung As String, Name As String Zeile = Application.InputBox("nach welcher Zeile einfuegen?", "Zeile einfuegen", 0, Type:=1) If Zeile = 0 Then Exit Sub Application.EnableEvents = False Abteilung = Application.InputBox("Abtl.", "Abt. einfuegen", Type:=2) Name = Application.InputBox("Name", "Name eintragen", Type:=2) For i = ActiveSheet.Index To Worksheets.Count With Worksheets(i) .Rows(Zeile).Insert xlDown .Cells(Zeile, 2) = Abteilung .Cells(Zeile, 3) = Name End With Next Application.EnableEvents = True

Beliebteste Forumthreads (12 Monate)

Button erstellen zum Zeilen einf.

14
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.

14 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)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread