Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
04.05.2024 08:24:07
Sortieren und übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1356to1360
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
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

erste leere Zeile erkennen und "Muster"-Zeile einf

erste leere Zeile erkennen und "Muster"-Zeile einf
14.04.2014 11:26:13
Karo
Hallo,
ich hatte bereits in einem anderen Beitrag mein Problem geschildert, nun aber zu lange gebraucht mit einer Antwort und der Beitrag wurde wahrscheinlich schon geschlossen. Ich versuchs nun hier nochmal und habe auch die erwünschte Beispieldatei:
https://www.herber.de/bbs/user/90146.xlsm
Was ich machen möchte ist Folgendes:
Ich habe eine bestehende Tabelle, die nach unten hin immer weiter erweitert werden soll. In der ersten Spalte steht zum Beispiel eine Art Maßnahme und danach Erläuterungen, Nummern, etc.. Nun möchte ich den Button "Neue Maßnahme" mit einem Makro versehen, der beim klicken automatisch eine neue Zeile in dem selben Stil der vorhandenen einfügt.. Die in den bereits vorhandenen Zeilen bestehenden Dropdow-Menüs o.ä. sollten dann auch vorhanden sein..
Vielen Dank im Voraus!!

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erste leere Zeile erkennen und "Muster"-Zeile einf
14.04.2014 11:52:48
Rudi
Hallo, 
Private Sub CommandButton1_Click()
Rows(2).Resize(5).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
Cells(Rows.Count, 1).End(xlUp).Resize(5).EntireRow.ClearContents
End Sub

Gruß
Rudi

AW: erste leere Zeile erkennen und "Muster"-Zeile einf
14.04.2014 11:59:04
Oberschlumpf
Hi Karo
ja, hier ist dein erster Beitrag
https://www.herber.de/forum/archiv/1356to1360/1356470_erste_Leerzeile_erkennen__quotMusterquotZeile_einfuegen.html
Schön ist, dass du ne Bsp-Datei zeigst.
Zumindest für mich nicht schön ist, dass ich die Datei zwar ansehen, aber nicht bearbeiten kann.
Der Grund ist, dass ich noch Excel 2003 nutze.
Deswegen meine Bitte: Kannst du die Datei noc mal als Dateityp XLS abspeichern und hier zeigen?
Und dann schon mal einige Fragen?
1. Dropdown
Können sich die Werte für Dropdown-Standort + Status auch ändern oder erweitern?
Also kann es sein, dass weitere Städte und/oder Stati hinzukommen können/gelöscht werden, oder bleibt diese Auswahl fest?
Wenn sich daran nix ändert, könnte man alle Werte fest im Code übernehmen (man kann auch mit Code Gültigkeitslisten erstellen) und die Hilfs-Tabelle "Dropdown" könnte gelöscht werden.
2. Der Button ist ungünstig platziert.
Könnte man den Button auch oberhalb der Datentabelle platzieren?
Wenn nein, müsste der Button immer weiter mit nach unten "verschoben" werden, was zusätzlichen Programmieraufwand erfordert.
Danke schon mal für die xls-Datei.
Ciao
Thorsten

Anzeige
AW: erste leere Zeile erkennen und "Muster"-Zeile einf
14.04.2014 23:10:01
Karo
Hallo Oberschlumpf,
zu deinen Fragen:
1. Die Dropdownliste ist fest und wird nicht nachträglich erweitert.
2. Der Button kann auch gerne an den Anfang gesetzt werden.
Die Datei folgt...

AW: erste leere Zeile erkennen und "Muster"-Zeile einf
15.04.2014 00:18:47
Oberschlumpf
Hi Karo
hier meine Idee
https://www.herber.de/bbs/user/90163.xls
Ein Klick auf den Button kopiert immer den Bereich A3:K7 und fügt diesen dann direkt unterhalb der letzten benutzten Zeile ein.
Und es werden alle Inhalte, außer in Spalte F, gelöscht.
Hilfts?
Ciao
Thorsten

Anzeige
AW: erste leere Zeile erkennen und "Muster"-Zeile einf
15.04.2014 09:41:37
Karo
Hallo Thorsten,
das ist super! Vielen Dank! Ich habe nur ein paar kleine Änderungen an der Tabelle zu machen.. Was muss ich aus dem Code verändern, wenn es nun 8 Standorte (statt vorher fünf) sind? Wie ich das in den Dropdowns ändern muss, weiß ich..
Außerdem kommt noch eine Spalte hinzu..
Nach meinen Änderungen hat das Makro nicht mehr in die letzte Zeile kopiert, sondern den bestehenden Text überschrieben..

AW: erste leere Zeile erkennen und "Muster"-Zeile einf
15.04.2014 17:48:09
Oberschlumpf
Hi Karo
a) +3 Standorte und +1 Spalte
ändere diese Zeile 

Range("A3:K7").Copy Range("A" & lloLast)

um in 

Range("A3:L10").Copy Range("A" & lloLast)
b) jetzt ist es noch wichtig zu wissen, in welcher Spalte befinden sich die Standorte?
Wenn die Standorte weiterhin in Spalte F sind, dann ändere diese Zeile 

Range("A" & lloLast & ":E" & lloLast & ",G" & lloLast & ":K" & lloLast).Value = ""

um in 

Range("A" & lloLast & ":E" & lloLast & ",G" & lloLast & ":L" & lloLast).Value = ""

Wenn die Standorte jetzt in Spalte G sind, dann ändere diese Zeilen 

lloLast = Cells(Rows.Count, 6).End(xlUp).Row + 1
Range("A" & lloLast & ":E" & lloLast & ",G" & lloLast & ":K" & lloLast).Value = ""

um in 

lloLast = Cells(Rows.Count, 7).End(xlUp).Row + 1
Range("A" & lloLast & ":F" & lloLast & ",H" & lloLast & ":L" & lloLast).Value = ""

Hilfts?
Ciao
Thorsten

Anzeige
na, willste hier auch wieder nich antworten?...owT
14.04.2014 20:08:28
Oberschlumpf

303 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
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Anzeige
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Die erste belgte Zelle in Spalte F finden
Kurt

Guten Abend,
ich möchte die 1. belegt Zelle in der Spalte F finden angefangen ab Zeile 3.
Dann möchte ich den Bereich von Spalte A bis Spalte H ab Zeile6 bis zu der 1.
belegten Zelle selectieren unm dann zu kopieren,
gruß mfg Kurt
20.11.2008 20:24:39
Thread-ID: 1026539
8 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
4
2
2
2
15
9
7
4
2
7
3
3
1
7
3
2
8
3
19
2
7
5
3
1