Tabellenzeile automatisch hinzufügen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2007] Tabellenzeile automatisch hinzufügen

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

Autor

Nachricht

noctis
Office-Hilfe.com-Neuling

Anmeldedatum: 17.06.2009
Beiträge: 18

Verfasst am: 23.06.2009, 17:44

Habe ich irgendwie die möglichkeit, wenn in einer Tabelle z.B. etwas in Zeile 3 Steht, automatisch eine 4te Zeile unten ranhängen zulassen? (Formatierung der Tabelle sollte dabei erhalten bleiben).

Bzw diese auch wieder zu löschen wenn kein Inhalt in dieser Zeile vorhanden ist.

Oder ist das nur mit VBA in excel zu realisieren ?

Pseudocode hätte ich ja, aber in VBA vermag ich das leider noch nicht zu übersetzen.

Exl121150
Office-Hilfe.com-Profi

Anmeldedatum: 24.11.2008
Beiträge: 731

Verfasst am: 24.06.2009, 08:38

Hallo noctis,

da Du schreibst, dass Du Excel2007 hast, nehme ich an, dass Du mit 'Tabelle' die neue Möglichkeit einer (Daten)tabelle innerhalb eines Arbeitsblattes meinst.
Im folgenden Makro habe ich Dir ein ausgiebig dokumentiertes Musterbeispiel für die VBA-Programmierung dieser Tabellen angefügt.

Code:

Sub Makro31()
Dim MySheet As Worksheet
Dim MyTable As ListObject
'Angenommen: Ich habe ein Arbeitsblatt 'Tabelle1'
Set MySheet = ActiveWorkbook.Worksheets("Tabelle1")
'In diesem habe ich eine Tabelle 'MeineTabelle' im Bereich D12:F15
'wobei diese eine Kopfzeile im Bereich D12:F12 hat
'und ferner eine Ergebniszeile im Bereich D15:F15,
'womit Platz für 2 Datenzeilen im Bereich D13:F14 bleibt.
Set MyTable = MySheet.ListObjects("MeineTabelle")
'Mit folgender Anweisung füge ich eine Leerzeile an
'als letzte Datenzeile im Bereich D15:F15 noch vor
'der Ergebniszeile, die damit in den Bereich D16:F16 verschoben wird.
MyTable.ListRows.Add
'In dieser angefügten Leerzeile (Datenzeile 3 = Bereich D15:F15)
'werden die Zellen mit Daten befüllt (Spalte 1-3),
'wobei diesen Daten automatisch die Formatierung der jeweiligen
'Tabellenspalte zugewiesen wird:
With MyTable.ListRows(3).Range
.Cells(1) = -3: .Cells(2) = 3333: .Cells(3) = -55.4
End With
'Mit folgender Anweisung lösche ich die Datenzeile 2 (=Bereich D14:F14)
'wodurch die Datenzeile 3 und die Ergebniszeile um 1 Zeile
'noch oben geschoben werden.
MyTable.ListRows(2).Delete
'usw. ....
End Sub

All das kann man natürlich auch interaktiv (=ohne Makro) im Arbeitsblatt selbst ausführen. Insbesondere wenn man an bestehende Datenzeilen noch weitere Datenzeilen anfügen will. Tut man dies, sollte man, um sich das Leben zu vereinfachen, eine eventuelle Ergebniszeile ausschalten.
Fügt man dann Daten in der nächsten Leerzeile an, wird automatisch wie im Makro die Formatierung der Datenspalten der Tabelle angewandt.

Will man nur Zeilen der Tabelle (nicht auch die des umgebenden Tabellenblattes!) löschen (=entfernen), muss man unbedingt darauf achten, dass nur der Zeilenbereich innerhalb der Tabelle markiert ist (Mauszeiger am linken Rand des Zeilenbereiches positionieren; der Mauszeiger wird zu einem horizontalen Pfeil nach rechts; Linksklick mit der Maus --> Zeilenbereich ist korrekt markiert).

_________________
Liebe Grüße
Exl121150

Win XP Professional SP3
Office 2007 Professional SP2

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
	Ein Hauptddokument automatisch in meh...	PetraZeidler	Microsoft PowerPoint Hilfe	0	08.03.2010, 15:36
	(Excel 2003) Zellen in Spalte automat...	Pali	Microsoft Excel Hilfe	0	08.03.2010, 13:17
	Seite Automatisch ausfüllen	Neo68	Microsoft Excel Hilfe	4	08.03.2010, 08:01
	Makro bei Zellenänderung automatisch ...	Wolfee	Microsoft Excel Hilfe	6	01.03.2010, 16:09
	Webabfrage automatisch speichern?	Fladdo	Microsoft Excel Hilfe	0	01.03.2010, 02: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

Haftungsausschluss/Disclaimer

SMS kostenlos versenden | Tuning Forum | krankenversicherungsvergleich | Wii Modchip Xbox 360 Konsole

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