Automatische Erweiterung der Zeile :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Automatische Erweiterung der Zeile

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Ag.man
Besserwisser

Anmeldedatum: 19.07.2007
Beiträge: 96

Verfasst am: 05.02.2008, 01:35

Hallo liebe Freunde des besten Rechentools der Welt,

ich hätte da wieder einmal eine Idee. Allerdings liegt die Problematik darin, dass ich die Lösung zurzeit meilenweit von mir entfernt sehe.
Daher wende ich mich an Euch, um diese Strecke etwas zu verkürzen.

Es geht darum, dass ich in einer Tabelle eine Möglichkeit schaffen möchte, bei der ich die Tabelle automatisch erweitern lassen kann. Beim Klick auf den letzten Zellbereich in der Spalte B und einer Auswahl sollte automatisch eine Zeile unten drunter eingefügt werden mit den oberen Formeln.

Wenn die Zelle in der Spalte B, also die Auswahl mit Entf gelöscht wird, soll sich der entsprechende Bereich um eine leere Zeile mindern. Wie kann ich hier vorgenen?

Ich hoffe Ihr könnt mir helfen.

Mit dankbaren Grüßen

Ag.man

PS: ich nutze Excel 2003

20080205_Forum.xls

Beschreibung:

Download

Dateiname:

20080205_Forum.xls

Dateigröße:

22.5 KB

Heruntergeladen:

19 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5014

Verfasst am: 05.02.2008, 12:48

Hallo!

Der Code ist zwar noch nicht ausgereift, aber vielleicht reicht's zum weiterbasteln:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
If Target = "" Then
Target.EntireRow.Delete
Else
Target.EntireRow.Offset(1, 0).Insert (xlShiftDown)
Target.EntireRow.Copy Target.EntireRow.Offset(1, 0)
End If
Application.EnableEvents = True
End If
End Sub

Allerdings könnten die verbundenen Zellen in Spalte A Schwierigkeiten machen (wie immer...).
Also: Schmeiß sie raus und schreibe 100x "Ich soll keine verbundenen Zellen benutzen", "Ich soll keine verbundenen Zellen benutzen", "Ich soll keine verbundenen Zellen benutzen", ...

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Ag.man
Besserwisser

Anmeldedatum: 19.07.2007
Beiträge: 96

Verfasst am: 05.02.2008, 13:57

Danke Schatzi,

es geht in die richtige Richtung, in die ich auch wollte.
Aber ein wenig Arbeit bleibt noch ;)
Was würde ich ohne Dich und ohne Excel machen?

Liebe Grüße

Ag.man

PS: Ich werde keine verbundenen Zellen benutzen und ich werde keine verbundenen Zellen benutzen.

PPS: Ich werde nur einzelne Zellen benutzen.

Ag.man
Besserwisser

Anmeldedatum: 19.07.2007
Beiträge: 96

Verfasst am: 09.05.2008, 19:25

Hallo Schatzi,

ich habe bisher diese Lösung angewendet und mir ist aufgefallen, dass es teilweise zu Komplikationen kommen kann, wenn man nicht aufpasst und die Zeilen komplett löscht.

Wie kann ich dieser Problematik entgegenwirken? Es muss quasi mindestens eine erweiterbare Zeile nicht löschbar sein, aber dennoch benutzbar.

Liebe Grüße

Ag.man

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5014

Verfasst am: 09.05.2008, 20:19

Tja, da bin ich jetzt auch überfragt...

Dazu müsstest du irgendeine Abbruchbedingung einbauen, aber ich wüsste nicht wie diese auszusehen hat...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
If IrgendeineAbbruchbedingung Then Goto Ende
If Target = "" Then
Target.EntireRow.Delete
Else
Target.EntireRow.Offset(1, 0).Insert (xlShiftDown)
Target.EntireRow.Copy Target.EntireRow.Offset(1, 0)
End If
Ende:
Application.EnableEvents = True
End If
End Sub

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Ag.man
Besserwisser

Anmeldedatum: 19.07.2007
Beiträge: 96

Verfasst am: 10.05.2008, 22:31

Hallo Schatzi,

danke für den Tipp. Ich werde mich probieren, ob ich weiter komme.

Schöne Pfingstenzeit

Ag.man

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Automatische Gliederung	redtide	Microsoft Word Hilfe	1	16.07.2008, 17:16
	Zeile einfügen und Automatisch Formel...	superviser	Microsoft Excel Hilfe	2	15.07.2008, 10:24
	Aktuelle Zeile anzeigen	b.staehle	Microsoft Excel Hilfe	1	15.07.2008, 10:09
	Verschiedene Rechenformelen in einer ...	Gorebush	Microsoft Excel Hilfe	1	13.07.2008, 15:32
	Wie berechne, Vergleiche ich? Automat...	5520	Microsoft Excel Hilfe	14	09.07.2008, 12:41

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de