Variable Festlegung von Zeilen
05.05.2020 18:41:00
Zeilen
ich versuche eine Tabelle zu programmieren, die über eine Eingabemaske befüllt wird. Anschließend soll die Tabelle (nur die Spaltenüberschriften) kopiert werden und in dem selben Arbeitsblatt einige Zeilen unter dem letzten Eintrag wieder eingefügt werden. Das Befüllen und Kopieren funktioniert.
Jetzt möchte ich die zweite Tabelle erneut mit anderen Daten befüllen. Mein Problem hierbei ist, dass ich eine bestimmte Zeile festlegen musste, in denen Excel schreiben soll. Wenn ich die Tabelle kopiere und einfüge, ändert sich diese Festlegung natürlich nicht, womit ich die Tabelle nicht so wie gewollt befüllen kann.
Meine Frage: ist es möglich, die Zeilenfestlegung so zu programmieren, dass ich in der UserForm über eine Textbox die Festlegung bestimmen kann?
Meinen Code habe ich unten eingefügt. Überall, wo jetzt "Zeile = 14" oder "Zeile = 11" steht möchte ich quasi haben "Zeile =X" und dieses X über eine beliebige Eingabe in meiner Eingabemaske definieren.
Private Sub CommandButton1_Click() 'Neuer Eintrag
Dim Zeile As Long
'Wenn der Benutzer einen neuen Eintrag erzeugen möchte,
'erstellen wir einen neuen Eintrag in der ListBox1 und markieren
'diesen, damit der Benutzer die Daten eintragen kann
Zeile = 14 'Start in Zeile 14, Zeile 12 sind ja die Überschriften
'Schleife solange etwas in der dritten Spalte der Tabelle2 drin steht
Do While Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) ""
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
'Nach Durchlauf dieser Schleife steht Zeile in der ersten leeren Zeile von Tabelle1
'Neuen Eintrag in die Tabelle2 schreiben, Spalte Bezeichnung muss gefüllt sein, damit
'unsere Routine die Zeile wiederfinden!
Tabelle2.Cells(Zeile, 3) = CStr("Neuer Eintrag Zeile " & Zeile)
'Und neuen Eintrag in die UserForm eintragen
ListBox1.AddItem CStr("Neuer Eintrag Zeile " & Zeile)
'Den neuen Eintrag markieren mit Hilfe des ListIndexes
ListBox1.ListIndex = ListBox1.ListCount - 1
'Durch das Click Ereignis der ListBox werden die Daten automaisch geladen
End Sub
Private Sub CommandButton2_Click() 'Löschen
Dim Zeile As Long
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Zum Löschen benötigen wir die Zeilennummer des ausgewählten Datensatzes
Zeile = 14 'Start in Zeile 14, Zeile 13 sind ja die Überschriften
'Schleife solange etwas in der dritten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) ""
'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
If ListBox1.Text = Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) Then
'Eintrag gefunden, die ganze Zeile wird nun gelöscht
Tabelle2.Rows(CStr(Zeile & ":" & Zeile)).Delete
'Die ListBox muss nun neu geladen werden!
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub
Private Sub CommandButton3_Click() 'Speichern
Dim Zeile As Long
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Wir müssen prüfen, ob die Bezeichnung Spalte auch gefüllt ist!!
If Trim(CStr(TextBox4.Text)) = "" Then
'Meldung ausgeben
MsgBox "Sie müssen eine Bezeichnung eingeben!", vbCritical + vbOKOnly, "FEHLER!"
'Abbrechen der Speicherroutine
Exit Sub
End If
'Ausbauoption: Prüfen, ob die Signierung in Tabelle2 Spalte 4 schon vorhanden ist!
'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
Zeile = 14 'Start in Zeile 14, Zeile 13 sind ja die Überschriften
'Schleife solange etwas in der dritten Spalte in Tabelle 2 drin steht
Do While Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) ""
'Datensatz Signierung Spalte mit selektiertem Eintrag der ListBox vergleichen
If ListBox1.Text = Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) Then
'Eintrag gefunden, TextBoxen in die Zellen schreiben
Tabelle2.Cells(Zeile, 3).Value = Trim(CStr(TextBox4.Text))
Tabelle2.Cells(Zeile, 2).Value = TextBox2.Text
Tabelle2.Cells(Zeile, 3).Value = TextBox4.Text
Tabelle2.Cells(Zeile, 4).Value = TextBox6.Text
Tabelle2.Cells(Zeile, 5).Value = TextBox8.Text
Tabelle2.Cells(Zeile, 1).Value = TextBox13.Text
'Die ListBox muss nun neu geladen werden
'allerdings nur, wenn sich der Name (Signierung) geändert hat
If ListBox1.Text Trim(CStr(TextBox4.Text)) Then
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End If
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub
Private Sub CommandButton5_Click() 'Benennung Inhaltsliste
Dim Zeile As Long
'Wenn der Benutzer einen neuen Eintrag erzeugen möchte,
'erstellen wir einen neuen Eintrag in der ListBox1 und markieren
'diesen, damit der Benutzer die Daten eintragen kann
Zeile = 11 'Start in Zeile 11, da da die Überschrift stehen soll
'Schleife solange etwas in der dritte Spalte der Tabelle2 drin steht
Do While Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) ""
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
'Nach Durchlauf dieser Schleife steht Zeile in der ersten leeren Zeile von Tabelle1
'Neuen Eintrag in die Tabelle2 schreiben, Spalte Signierung muss gefüllt sein, damit
'unsere Routine die Zeile wiederfinden!
Tabelle2.Cells(Zeile, 3) = CStr("Neuer Eintrag Zeile " & Zeile)
'Und neuen Eintrag in die UserForm eintragen
ListBox1.AddItem CStr("Neuer Eintrag Zeile " & Zeile)
'Den neuen Eintrag markieren mit Hilfe des ListIndexes
ListBox1.ListIndex = ListBox1.ListCount - 1
'Durch das Click Ereignis der ListBox werden die Daten automaisch geladen
End Sub
Private Sub CommandButton6_Click() 'Speichern Inhaltsliste
Dim Zeile As Long
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Wir müssen prüfen, ob der Überschriftenbereich auch gefüllt ist!!
If Trim(CStr(TextBox11.Text)) = "" Then
'Meldung ausgeben
MsgBox "Sie müssen eine Überschrift eingeben!", vbCritical + vbOKOnly, "FEHLER!"
'Abbrechen der Speicherroutine
Exit Sub
End If
'Ausbauoption: Prüfen, ob die Überschrift in Tabelle2 schon vorhanden ist!
'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
Zeile = 11 'Start in Zeile 11, da da die Überschriften stehen sollen
'Schleife solange etwas in dem Bereich der Tabelle 2 drin steht
Do While Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) ""
'Datensatz Signierung Spalte mit selektiertem Eintrag der ListBox vergleichen
If ListBox1.Text = Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) Then
'Eintrag gefunden, TextBoxen in die Zellen schreiben
Tabelle2.Cells(Zeile, 3).Value = Trim(CStr(TextBox11.Text))
'Die ListBox muss nun neu geladen werden
'allerdings nur, wenn sich der Name (Signierung) geändert hat
If ListBox1.Text Trim(CStr(TextBox11.Text)) Then
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End If
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub
Private Sub CommandButton7_Click() 'Kopieren
Dim Zeile As Long
Zeile = 13 'In zeile 13 stehen die zu kopierenden Überschriften
Rows(Zeile).Copy
Do While Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) ""
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
Rows(Zeile + 4).Insert
End Sub
Private Sub ListBox1_Click() 'Auflistung der Eingaben mit Befüllung der Textboxen
Dim Zeile As Long
'Wenn der Benutzer einen Namen anklickt, suchen wir
'diesen in der Tabelle1 heraus und tragen die Daten
'in die TextBoxen ein.
'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
TextBox2 = ""
TextBox4 = ""
TextBox6 = ""
TextBox8 = ""
TextBox13 = ""
'Nur wenn ein Eintrag selektiert/markiert ist
If ListBox1.ListIndex >= 0 Then
Zeile = 14 'Start in Zeile 14, Zeile 13 sind ja die Überschriften
'Schleife solange etwas in der dritten Spalte in Tabelle 2 drin steht
Do While Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) ""
'Wenn wir den Namen aus der ListBox1 in der Tabelle2 Spalte 3
'gefunden haben, übertragen wir die anderen Spalteninhalte
'in die TextBoxen!
If ListBox1.Text = Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) Then
'TextBoxen füllen
TextBox4 = Trim(CStr(Tabelle2.Cells(Zeile, 3).Value))
TextBox2 = Tabelle2.Cells(Zeile, 2).Value
TextBox6 = Tabelle2.Cells(Zeile, 4).Value
TextBox8 = Tabelle2.Cells(Zeile, 5).Value
TextBox13 = Tabelle2.Cells(Zeile, 1).Value
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
End If
End Sub
Private Sub UserForm_Initialize() 'Auflistung der Eintragungen in der Listbox von eingegebenen _
Werten
Dim Zeile As Long
'Alle TextBoxen leer machen
TextBox2 = ""
TextBox4 = ""
TextBox6 = ""
TextBox8 = ""
TextBox13 = ""
'In dieser Routine laden wir alle vorhandenen
'Einträge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
Zeile = 14 'Start in Zeile 14, Zeile 13 sind ja die Überschriften
'Schleife solange etwas in der vierten Spalte in Tabelle 2 drin steht
Do While Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) ""
'Aktuelle Zeile in die ListBox eintragen
ListBox1.AddItem Trim(CStr(Tabelle2.Cells(Zeile, 3).Value))
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub