Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in erste leere Zeile einfügen

in erste leere Zeile einfügen
28.08.2019 07:29:26
Andre
Hallo Zusammen
Ich habe mal eine Frage und zwar habe ich Tabelle wo in Spalte B fortlaufende Nummern stehen. Zwischen diesen Nummern sind immer 5 leere Zeilen.
Nun möchte ich mithilfe einer Userform die laufende Nummer suchen diese befindet sich in Textbox1
Textboxinhalt 2,3,4 und 5 sollen dann in die erste freie Zeile eingetragen werden
unter der passenden laufenden Nummer
Hier mein Code der nicht so funktioniert wie ich möchte
Vielen Dank für eure Hilfe schon im voraus

Private Sub CommandButton1_Click()
Dim finden As Range
Dim intErsteLeereZeile As Long
Set finden = Columns(2).Find(what:=TextBox1)
Cells(finden.Row, finden.Column).End(xlUp).Row
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.TextBox1.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.TextBox2.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.TextBox3.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.TextBox4.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.TextBox5.Value
End Sub

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in erste leere Zeile einfügen
28.08.2019 07:50:00
ede
Guten Morgen,
du hast die Variable intErsteLeereZeile deklariert, aber keinen Wert zugewiesen!!! Stell bitte auch immer eine Beispieldatei bereit, dann kann man die besser helfen.
Gruss
ede
AW: in erste leere Zeile einfügen
28.08.2019 08:33:53
ede
Hallo nochmal,
in Deiner bereitgestellten Datei ist aber keine Userform enthalten! Bitte incl. Code (.xlsm) hochladen.
ede
AW: in erste leere Zeile einfügen
28.08.2019 08:57:02
ede
ich verstehe zwar nicht so richtig was du machen möchtest, aber so bekommst du die nächste freie Zeile laut ID aus Textbox1: 

Private Sub CommandButton1_Click()
Dim finden As Range
Dim intErsteLeereZeile As Long
Set finden = Columns(2).Find(what:=Me.TextBox1)
'  Cells(finden.Row, finden.Column).End(xlUp).Row + 1
intErsteLeereZeile = finden.Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.TextBox1.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.TextBox2.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.TextBox3.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.TextBox4.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.TextBox5.Value
End Sub

Du musst aber auch noch eine Fehlerbehandlung einbauen, wenn leer oder nicht gefunden!!!
ede
Anzeige
AW: in erste leere Zeile einfügen
28.08.2019 09:34:38
Andre
Hallo ede und Torsten
Erstmal vielen Dank euch beiden
das ist es was ich mir vorgestellt habe nur wen ich die laufende Nummer nochmal eingeben wird die Zeile überschrieben.
Es sind bis zu 5 Einträge pro laufende Nummer möglich
was muss ich noch verändern das der Code dann wieder eine Zeile nach unten rück
AW: in erste leere Zeile einfügen
28.08.2019 09:36:04
Torsten
Check meinen Code
AW: in erste leere Zeile einfügen
28.08.2019 09:39:04
ede
hat Torsten bereits mit behandelt: 

Private Sub CommandButton1_Click()
Dim finden As Range
Dim intErsteLeereZeile As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Tabelle1")                   'Tabellenblattname evtl.  _
anpassen
If Len(Me.TextBox1) > 0 And IsNumeric(Me.TextBox1) Then   'nur weiter bei numerische  _
Werte
Set finden = Columns(2).Find(what:=Me.TextBox1)
If Not finden Is Nothing Then                         'wenn ID gefunden
intErsteLeereZeile = finden.Row + 1
1:              If Cells(intErsteLeereZeile, 2) = "" Then
ws.Cells(intErsteLeereZeile, 2).Value = Me.TextBox1.Value
ws.Cells(intErsteLeereZeile, 3).Value = Me.TextBox2.Value
ws.Cells(intErsteLeereZeile, 4).Value = Me.TextBox3.Value
ws.Cells(intErsteLeereZeile, 5).Value = Me.TextBox4.Value
ws.Cells(intErsteLeereZeile, 6).Value = Me.TextBox5.Value
Else
intErsteLeereZeile = intErsteLeereZeile + 1
GoTo 1
End If
End If
End If
End Sub

Anzeige
AW: in erste leere Zeile einfügen
28.08.2019 09:15:51
Torsten
Hallo Andre,
hier komplett: 

Private Sub CommandButton5_Click()
Dim finden As Range
Dim intErsteLeereZeile As Long
Set finden = Columns(2).Find(what:=TextBox1)
intErsteLeereZeile = Cells(finden.Row + 1, 2).Row
1:      If Cells(intErsteLeereZeile, 2) = "" Then
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.TextBox1.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.TextBox2.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.TextBox3.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.TextBox4.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.TextBox5.Value
Else
intErsteLeereZeile = intErsteLeereZeile + 1
GoTo 1
End If
Unload UserForm1
End Sub

Gruss Torsten
Anzeige
AW: in erste leere Zeile einfügen
28.08.2019 09:39:03
Andre
Hallo Ihr zwei
alles gut läuft super der Code von Torsten
Ihr seid echt die besten hier im Forum
vielen vielen Dank
PS hatte mich mit den CommandButton vertan :(
gerne...
28.08.2019 09:43:07
Torsten
danke fuer die Rueckmeldung
AW: in erste leere Zeile einfügen
28.08.2019 10:15:18
Torsten
Hallo nochmal,
hier noch ne kleine Erweiterung. Da ja nur 5 Zeilen moeglich sind, hab ich noch eine Meldung eingebaut, wenn die 5 Zeilen erreicht sind. 

Private Sub CommandButton1_Click()
Dim finden As Range
Dim intErsteLeereZeile As Long, intFundZeile As Long
Set finden = Columns(2).Find(what:=TextBox1)
intFundZeile = Cells(finden.Row, 2).Row
intErsteLeereZeile = Cells(finden.Row + 1, 2).Row
1:      If Cells(intErsteLeereZeile, 2) = "" Then
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.TextBox1.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.TextBox2.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.TextBox3.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.TextBox4.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.TextBox5.Value
Else
intErsteLeereZeile = intErsteLeereZeile + 1
If intErsteLeereZeile = intFundZeile + 5 Then
MsgBox "Maximale Zeilenzahl fuer diese lfd. Nummer erreicht"
Exit Sub
End If
GoTo 1
End If
Unload UserForm1
End Sub

Gruss Torsten
Anzeige

317 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 Beiträge
Anzeige
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Einfügen Zellen VBA
Hugo

Hallo
Möchte die folgende Formel so anpassen, dass die einzufügende Zellenmenge über eine Variable bezogen wird.
ActiveCell.Offset(0, 0).Range("A1:E1").Insert Shift:=xlDown
DH:
Ich bestimme über folgende Formel die Spaltenzahl, ab welcher die Zellen stehen bleiben müssen.
...
12.12.2009 15:34:31
Thread-ID: 1123484
3 Beiträge
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
makro (NEUE Zeile)immer a.Ende
Penelope

Hallo,
hoffe sehr auf Hilfe . Habe ein Makro, das mir eine neue Zeile erzeugt mit Formaten und Formeln aber leider immer an derselben Stelle. Wie könnte ich es schreiben, dass es immer eine neue Zeile unten anfügt , unter der letzten neuen Zeile? Vielleicht eine Schleife, aber wie verbinden?...
10.04.2002 22:38:34
Thread-ID: 112272
11 Beiträge
checkbox in leere zeile einfügen
tatü

Hallo Forum.
Ich möchte in eine Tabelle unter die letzte beschriebene Zeile in der "B" Spalte eine Checkbox einfügen.
Die Checkbox soll in Zeile "A" stehen.
Unten stehenden Code habe ich schon gefunden. Das Makro fügt aber immer in einer festen Zeile, hier die Zeile 6 eine neue Ze...
16.02.2010 19:15:43
Thread-ID: 1139028
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
1
2
5
2
2
3
10
3
1
2
3
4
2
5
2
5
2
1
4
2
2
9
16