Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1628to1632
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
Inhaltsverzeichnis

leerzeile am ende einer Tabelle einfügen

leerzeile am ende einer Tabelle einfügen
22.06.2018 10:33:34
Thorben
Guten Morgen meine Herren,
vielleicht kann mir ja jemand von euch weiter helfen.
Ich arbeite im Moment an einer Kundenliste für unser Unternehmen.
Wie in der Beispieldatei zu sehen, gibt es eine Gesamtübersicht und eine Kundenspezifische Übersicht.
Jeder Vorgang wird in der Gesamtübersicht eingetragen und anhand der verschiedenen Kundendateien möchte ich diese dann nach Kunde filtern.
Jeweils als eigene Datei.
Nun kopiere ich mir die Kundenspezifischen Zeilen mittels "Zählenwenn" in die Kundendatei.
Dies funktioniert soweit auch so wie es soll.
Jedoch habe ich 2 Probleme.
1.
Die Zählenwenn Funktion funktioniert nur bei geöffneter Gesamtübersicht.
2.
Da die Tabellen laufend gedruckt werden müssen und ich den Mitarbeitern die dies so einfach wie möglich gestalten möchte, würde ich gerne in die formatierte Tabelle in der Kundendatei die Tabelle immer um eine leerzeile erweitern um neue Einträge in der Gesamtübersicht automatisch anzufügen. Somit würden beim Drucken auch nur die kopierten Zeilen angezeigt.
Ich würde mich sehr freuen falls mir da jemand weiter helfen kann.
Gesamtübersicht:
https://www.herber.de/bbs/user/122241.xlsx
Kundendatei:
https://www.herber.de/bbs/user/122242.xlsx

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: leerzeile am ende einer Tabelle einfügen
22.06.2018 11:35:56
Taege
Hallo Thorben,
viele Wege führen nach Rom.
Hier einer davon:
Sub zeile_unten_anfuegen()
For ii = 1 To 9999
inhalt = Worksheets(1).Cells(ii, 1).Value       ' Cells(zeile, spalte)!
If inhalt = "" Then
Worksheets(1).Cells(ii, 1).Value = "neue Zeile"
GoTo ende
End If
Next ii
ende:
End Sub
"Vorteil": Deine selektierte Zelle bleibt selektiert
Falls Du die neue Zelle selektiert haben willst,
füge vor "...."neue Zeile""
die Zeile
Worksheets(1).Cells(ii, 1).Select
ein.
Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige