VB code für Zeilen einfügen

Computer: Software & Programmierung Visual Basic
#1

Hallo,

2 Fragen

1.In eine Excel Tabelle soll zwischen zwei bestimmte ausgefüllte Zeilen eine neue, leere eingefügt werden, wenn ein CommandButton geklickt wird - eben genau das gleiche wie „Einfügen“, „Zeilen“. Wie ist die Sub für CommandButton_Click() dafür?

Wenn ich zusätzlich mit dieser neuen Zeile ein neues VB-Objekt (eine Checkbox) einfügen will, wie müsste es dann aussehen?

  1. Ich will von einer Tabelle in eine andere Zeilen kopieren. Wie ich in einer Tabelle Zeilen hin und her kopiere, weiß ich, wie ist der Code für zwischen Tabellen kopieren?

Danke für die Antworten

#2

Hallo!

Einfügen einer Leerzeile mit Checkbox:

Sub Schaltfläche1\_BeiKlick()
Dim oben As Double, links As Double, breite As Double, höhe As Double
Dim Zeile As Integer
Dim Tabelle As String
Dim SpalteCheckbox as Integer
dim cb as object

Tabelle = "Tabelle1" 'hier den Namen des Tabellenblatts
Zeile = 6 ' hier die Zeilennummer der einzufügenden Zeile
SpalteCheckbox = 1 'hier die Spaltennummer für die Checkbox eintragen

Worksheets(Tabelle).Rows(Zeile).Insert Shift:=xlDown
oben = Rows(Zeile).Top
links = Rows(Zeile).Cells(1, SpalteCheckbox).Left
breite = Rows(Zeile).Cells(1, SpalteCheckbox).Width
höhe = Rows(Zeile).RowHeight

Set cb = Worksheets(Tabelle).CheckBoxes.Add(links, oben, breite, höhe)
cb.Caption = "Beschriftung" 'hier die Beschriftung für das Kontrollkästchen festlegen
End Sub

2. Bereich von einem Tabellenblatt in ein anderes Tabellenblatt kopieren

Sub Kopie()
 Worksheets("Tabelle1").Range("A6:C7").Copy
 Worksheets("Tabelle3").Range("a1").Select
 Worksheets("Tabelle3").Paste
End Sub
#3

Super, das hat mir enorm geholfen. Noch eines: Wie lautet die Anweisung dafür, alle leeren Zeilen aus einem Dokument zu entfernen?