Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2004to2008
2004to2008
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA Neue Zeile an Zeile 11 einfügen

Forumthread: VBA Neue Zeile an Zeile 11 einfügen

VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 10:26:47
Sommersonne97
Hallo zusammen!

Ich möchte gern via VBA einen Code schreiben, der Zeilen ab Zeile 11 mit Daten aus Textboxen einer UserForm befüllen.

Das klappt soweit mit diesem Code:

'ZEILE MIT DATEN BEFÜLLEN
'Auf welchem Blatt
Set ws = ThisWorkbook.Sheets("Übersicht")

'Letzte Zeile suchen
Dim letzteZeile As Long

letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).row + 1

ws.Rows(11).Insert Shift:=xlDown

'Datenübertragung aus TextBoxen des UserForms
ws.Cells(letzteZeile + 1, 3).Value = Me.TextBox1.Value
ws.Cells(letzteZeile + 1, 4).Value = Me.TextBox2.Value
ws.Cells(letzteZeile + 1, 6).Value = Me.TextBox3.Value

Allerdings habe ich folgendes Problem:
Es wird oberhalb Zeile 11 eine neue Zeile befüllt. Ich würde das aber gerne unterhalb einfügen lassen - geht das?
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 10:34:40
Oberschlumpf
Hi,

ws.Cells(ws.Rows.Count, 1).End(xlUp).row

bezieht sich auf Spalte 1, und in Spalte 1 in deiner Datei ist nicht Zeile 11 die letzte, benutzte Zeile.
Änder also im obigen Befehl die 1 um in die richtige Spaltennummer, oder...zeig per Upload eine Bsp-Datei mit genügend Bsp-Daten in den richtigen Zellen.

Hilfts?

Ciao
Thorsten
Anzeige
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 11:38:14
Yal
Hallo Sonne,

klare Sache.
Wenn
ws.Rows(11).Insert Shift:=xlDown
Dir eine Zeile vor der Zeile 11 einfügt, dann
ws.Rows(12).Insert Shift:=xlDown
fügt eine Zeile vor der Zeile 12, also nach der Zeile 11.

Beachte nur: diese Zeilenummer ist immer ein Momentaufnahme. Nach dem Einfügen von "Zeile nach 11", ist die Zeile 12 nun 13. usw.

VG
Yal
Anzeige
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 14:41:56
Piet
Hallo

nachdem ich mir alle Antworten durchgelesen habe komme ich zur folgenden Überlegung.
Dein Code in der 1. Anfrage ist doch schon richtig, bedarf nur zwei Korrekturen. Dann klappt es.

Wie Thorsten schon schrieb, bei LastZell die richtige Spalte benutzen. z.B. Spalte 3,4 oder 6
Den -ws.Rows(11).Insert- Befehl löschen! Du willst die Daten ja UNTEN anhängen.
Oder irre ich mich da?? Bin gespannt auf deine Rückmeldung. -> For Next ist überflüssig!!

mfg Piet
Anzeige
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 12:28:14
Sommersonne97
Hallo Yal,

danke, das hilft mir schon mal das Problem besser zu verstehen!

Gibt es einen Code, der das wiederholt?

Also dass es fortlaufend passiert?

Danke dir.
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 12:33:52
Yal
Hallo,

ja, das gibt es. Selbstverständlich. Es sind sogenannten Schleifen.

Es gibt die For-Schleife:
For i = 1 To 10
... 'hier kommt die Aufgabe die 10 mal (1 bis 10) wiederholt werden muss
Next

und die While (solang ...), die ich Anfänger abraten wurde, weil schnell zu endlosen Schleifen führt.

Aber beachte, dass wir gern für gezielte Problem helfen, aber für den Aufbau einer grundlegende VBA-Kompetenz auf dich selbst bestellt bist.

VG
Yal
Anzeige
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 12:40:07
Sommersonne97
Hi Yal,

ich möchte auch gar nicht, dass mir ein gesamter Code geschrieben wird.. Mir helfen Anreize, da ich das gerne selbst lernen und lösen möchte.

Die While Schleifen teste ich aus, da ich eben nicht möchte das dann auf einmal von 11-x alle Zeilen beschriftet werden. Das hatte ich die Tage schon :D

Viele Grüße!
Anzeige
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 14:26:26
Yal
wenn Du soweit bist, kannst Du deinen Code posten. Dann können wir dir Vorschläge machen.

For-Schleife: wenn der Anzahl an Wiederholung von Anfang an bekannt ist.

While-Schleife: wenn etwas wiederholt werden soll, bis ein bestimmte Situation erreicht wird. Es ist dabei zu achten, dass innerhalb der Schleife (also zwischen "Do While.." und "Loop"), die Variable, die das Ende der Schleife einleiten soll, geändert wird. Sonst: endlose Schleife.

Tipp: speichere immer deine Datei, bevor Du einen Code anstosst, der eine While-Schleife beinhaltet.

VG
Yal
Anzeige
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 10:47:17
Sommersonne97
Hi Oberschlumpf,

leider nein.

Ich schicke mal den ganzen Code.

Ziel ist es durch erzeugen eines neuen Blattes eine Zeile auf einem Übersichtsblatt ab Zeile 11 fortfolgend nach unten mit den Daten aus Userform zu befüllen.
Dann bei neuen Daten Zeile 12,13,14 usw., ohne, dass die Zeile überschrieben wird mit vorherigen Daten.

Private Sub CommandButton1_Click()

Dim Blattcount As Integer
Dim NeuesBlatt As Worksheet
Dim BlattName As String
Dim Thema As String
Dim Antragssteller As String
Dim Start As String
Dim neueZeile As Long
Dim ws As Worksheet


'Eingabewerte aus den TextBoxen holen
Thema = TextBox1.Value
Antragssteller = TextBox2.Value
Start = TextBox3.Value

'Überprüfen ob alle Felder ausgefüllt sind
If Thema = "" Or Antragssteller = "" Or Start = "" Then
MsgBox "Bitte alle Felder ausfüllen!", vbExclamation
Exit Sub

End If

'Zähle die Blätter im Arbeitsbuch
Blattcount = Sheets.Count

' Referenz auf das bestehende Blatt, das kopiert werden soll
Set ws = ThisWorkbook.Sheets("Blanko")

' Bestimmen der höchsten Nummer der bestehenden Blätter
letzteNummer = 0
For Each Blatt In ThisWorkbook.Sheets
If IsNumeric(Blatt.Name) Then
If CInt(Blatt.Name) > letzteNummer Then
letzteNummer = CInt(Blatt.Name)
End If
End If
Next Blatt

' Neuer Name für das Blatt
neuerName = CStr(letzteNummer + 1)

' Kopieren des bestehenden Blattes und Umbenennen
ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set NeuesBlatt = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
NeuesBlatt.Name = neuerName

'Übertrage die Werte in die Zellen des neuen Blattes
NeuesBlatt.Range("K6").Value = TextBox1
NeuesBlatt.Range("G4").Value = TextBox2
NeuesBlatt.Range("G5").Value = TextBox3

'ZEILE MIT DATEN BEFÜLLEN
'Auf welchem Blatt
Set ws = ThisWorkbook.Sheets("Übersicht")

'Letzte Zeile suchen
Dim letzteZeile As Long

letzteZeile = ws.Cells(ws.Rows.Count, 11).End(xlUp).row

ws.Rows(11).Insert Shift:=xlDown

'Datenübertragung aus TextBoxen des UserForms
ws.Cells(letzteZeile + 1, 3).Value = Me.TextBox1.Value
ws.Cells(letzteZeile + 1, 4).Value = Me.TextBox2.Value
ws.Cells(letzteZeile + 1, 6).Value = Me.TextBox3.Value

'Formartierung übernehmen
FormatQuelleZeile = 9

For i = 11 To letzteZeile
ws.Rows(i).Interior.Color = ws.Rows(9).Interior.Color
ws.Rows(i).Font.Name = ws.Rows(9).Font.Name
ws.Rows(i).Font.Size = ws.Rows(9).Font.Size
ws.Rows(i).Font.Color = ws.Rows(9).Font.Color
ws.Rows(i).HorizontalAlignment = ws.Rows(9).HorizontalAlignment
ws.Rows(i).VerticalAlignment = ws.Rows(9).VerticalAlignment
Next i

'Schließe die UserForm, wichtig, damit jedes Mal ein leeres UserForm geöffnet wird
Unload Me

End Sub


Zeile 9 ist beschrieben und soll so bleiben, als Bsp. Demnach auch die Formatierung. Zeile 10 soll leer bleiben und dann ab 11 die Datenübertragung.
Weitergehend soll eigentlich auch noch in Spalte B jeder beschriebenen Zeile auch noch ein Link zum neu erzeugten Blattes entstehen.. das ist dann auch noch eine Herausforderung.. ebenso wie die Numerierung. Die in Spalte A forlaufend dann vom neuen Blatt übernommen werden soll..

Viele Grüße!
Anzeige
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 11:12:45
Oberschlumpf
Hi,

und was soll ich jetzt damit?

Welchen Teil meines anderen Textes = "...oder...zeig per Upload eine Bsp-Datei mit genügend Bsp-Daten in den richtigen Zellen" hast du nicht gelesen?

Ciao
Thorsten
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 12:26:18
Sommersonne97
Ich habe Dir lediglich die Sachlage erläutert. Wir sind in einem Forum. Nicht mehr und nicht weniger. Was hast du daran nicht "gelesen"? ;)
Anzeige
AW: VBA Neue Zeile an Zeile 11 einfügen
18.02.2025 15:21:57
Oberschlumpf
genau, wir sind in einem Forum...mit der Möglichkeit, dass der Fragende zum - noch - besseren Verständnis seines Problems eine Bsp-Datei per Upload zeigen könnte!
Aber ok, dir wird ja anderweitig weitergeholfen, wenn auch...das...bis jetzt ja auch nur ein Hin und Her an Ideen-Tausch, aber noch nicht wirklich problemlösend war (is nich böse gemeint! - an yal gerichtet) - ihr schafft das schon - auch ohne Beispiel-Datei von dir
Anzeige

Forumthreads zu verwandten Themen

VBA Daten zentralisieren für weitere Verwendung
Tim

Hallo zusammen,
ich bin anscheinend zu dämlich nen Thread aus dem Archiv zurück zu holen, bitte steinigt mich nicht. Ich verzweifel momentan an etwas denkbar einfachem und komme mir derweil auch etwas blöd vor. Und zwar verzweifel ich an copy/paste/range.
Im anderen Thread wurde es mi...
15.07.2019 16:22:36
Thread-ID: 1702581
8 Beiträge
Anzeige
Erweitern einer Formel über VBA
Niko
Hallo zusammen,

so langsam stoße ich an meine Grenzen bezüglich Excel und VBA.

Kurze Beschreibung:

Meine Userform2 beinhaltet eine TextBox1 und einen CommandButton1. Über VBA soll nun nach betätigen des Button1 geprüft werden, ob der Eintrag in der TextBox1 in der Tabelle...
10.04.2024 19:23:15
Thread-ID: 1972973
25 Beiträge
Abgleich von Daten
Daten

Hallo,
ich habe ein Problem mit einem VBA Code.
Es sollen mehrere Prüfungen erfolgen.
Hallo,
ich habe leider ein VBA-Problem.
Ich möchte gerne zwei Tabellen miteinander vergleichen.
Es gibt drei Spalten mit jeweils 5 Zeilen (als Beispiel). Tabelle1 als "Historie" und Tab...
11.05.2016 14:06:42
Thread-ID: 1492749
1 Beitrag
VBA-Prüfung nach vergessenen Zellen
Sandra

Hallo zusammen,
zuerst einmal "EIN FROHES UND GESUNDES NEUS JAHR!!!"....
Ich bin schon wieder einmal dringend auf Eure Hilfe angewiesen.
Dank Euch habe ich folgendes Makro:
Option Explicit Sub Maengelliste_SKH() Dim oXlSM As Workbook, oXML As Workbook Dim nIndexXLSM, nIndexXML,...
08.01.2015 11:55:34
Thread-ID: 1401386
10 Beiträge
Hilfestellung für Schleife in VBA
Lara
Hallo zusammen,
ich arbeite gerade an einer Einsatzplanung unserer Mitarbeiter fürs nächste Jahr. Da auf die Datei alle Führungskräfte Zugriff haben will ich Sie so gut es geht Idiotensicher machen, sonst zerhauen die alles schneller als ich es wieder zurecht rücken kann.
In der Excel gibt...
22.10.2021 10:41:20
Thread-ID: 1853030
4 Beiträge
Zeile per Makro einfügen
Mola

Hallo liebe Forumgemeinde,
es regnet und nun ja, widme ich eben mal wieder meinen bescheidenen VBA-Wissen - kurz: habe mal wieder ein kleines Problem, wo ich Hilfe benötige...
Ich habe eine Tabelle in der zum Beispiel in der Zelle D17 "Plan1" steht. In B17 habe ich einen cmd-Button ein...
01.10.2005 17:29:22
Thread-ID: 675486
4 Beiträge
Übereinstimmung suchen und fehlende Einfügen
Benedikt

Hallo liebes Forum,
ich habe mal wieder ein Problem und komme mit meinen bescheidenen VBA Skills einfach nicht weiter.
Und zwar sieht meine Datei folgendermaßen aus:
2 Tabellenblätter
1. Checklist:
in Spalte A ist jeder Zeile eine Nummer zugeordnet
2. Status
in S...
28.11.2016 14:12:26
Thread-ID: 1527571
1 Beitrag
Hyperlink übernehmen
Jan

Ich bin absoluter Anfänger und habe ein Problem mit einem bestehenden VBA-Code
Beschreibung: Das Programm kopiert Daten von verschiedenen Datenblättern in ein anderes Datenblatt (Zusammenfassung). Unter anderem befinden sich darunter auch Hyperlinks.
Problem: Die Hyperlinks werden nur a...
21.08.2020 12:39:22
Thread-ID: 1778052
1 Beitrag
VBA / Tabellenblätter global mutieren
AdiDC

Hallo Zusammen
Ich stehe vor folgendem Problem, welches - so nehme ich schwer an - nur mittels VBA gelöst werden kann. Und da ich mich nicht als VBA-Spezialist bezeichnen kann, wende ich mich mit Hoffnung an euch, dass ihr mir weiterhelfen könnt:
Ausgangslage:
Meine Anlagebuchhaltun...
29.04.2020 12:35:17
Thread-ID: 1755627
3 Beiträge
Zeilen variabel einfügen
Bernie42

Hallo,
ich habe in meiner Tabelle einen VBA-Code eingefügt, damit ich mittels einer Schaltfläche Zeilen einfügen kann.
Hier der VBA-Code
Range("A8").Select
Application.Goto Reference:="R65536C1"
Selection.End(xlUp).Select
ActiveWindow.SmallScroll Down:=-9
...
01.11.2005 15:12:22
Thread-ID: 689757
1 Beitrag
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum