Makro :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Werbung: CD/DVD Bedrucken Pressen Kopieren Hüllen

[Excel 2003] Makro

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

Autor

Nachricht

taad
Office-Hilfe.com-Neuling

Anmeldedatum: 23.06.2009
Beiträge: 13

Verfasst am: 29.06.2009, 17:22

Hallo

ich möchte per Knopfdruck in einem Excelfile ein Register mit einem bestimmten Namen (wie: Upload) erstellen können.

Mit einem anderen Knopf soll es möglich sein ein bestimmtes Register (wie: Upload) -wenn vorhanden- wieder zu löschen.

Wie kann man das machen?

Danke für die Hilfe.

Hajo_Zi
MVP für Microsoft Office Excel

Anmeldedatum: 26.05.2008
Beiträge: 1243
Wohnort: Neubrandenburg

Verfasst am: 29.06.2009, 17:24

Sheets.Add.Name = "Upload"
keine Prüfung ob schon vorhanden

_________________
Betriebssystem: Windows 7 - 64 Bit, Office 2010. Bitte Version angeben. Bei keiner Angabe gehe ich von meinem Angaben aus. Mails nur nach Aufforderung.

taad
Office-Hilfe.com-Neuling

Anmeldedatum: 23.06.2009
Beiträge: 13

Verfasst am: 29.06.2009, 17:35

Dürfte ich noch ne Frage stellen

Wie kann ich Zeilen, die in der Spalte M ein bestimtes Kriterium erfüllen, löschen?

Danke

Hajo_Zi
MVP für Microsoft Office Excel

Anmeldedatum: 26.05.2008
Beiträge: 1243
Wohnort: Neubrandenburg

Verfasst am: 29.06.2009, 17:39

analog zu diesem
löschen wenn Spalte A kein Datum enthält
folgender Vorschlag (die Spalte A wird auf Datumsinhalte überprüft):
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step –1
If Not IsDate(Cells(i, 1).Text) Then Rows(i).Delete
Next

_________________
Betriebssystem: Windows 7 - 64 Bit, Office 2010. Bitte Version angeben. Bei keiner Angabe gehe ich von meinem Angaben aus. Mails nur nach Aufforderung.

taad
Office-Hilfe.com-Neuling

Anmeldedatum: 23.06.2009
Beiträge: 13

Verfasst am: 29.06.2009, 17:56

Irgendwie funktioniert das nicht

For i = Cells(Rows.Count, 13).End(xlUp).Row To 9 Step –1
If Cells(i, 13).Value = "x_x" Then Rows(i).Delete

Next i

Könnten Sie mir sagen, wo der Fehler liegt?

Hajo_Zi
MVP für Microsoft Office Excel

Anmeldedatum: 26.05.2008
Beiträge: 1243
Wohnort: Neubrandenburg

Verfasst am: 29.06.2009, 17:59

es steht nicht zufälli "X_X" in der Zelle?
If Ucase(Cells(i, 13))= "X_X" Then Rows(i).Delete

_________________
Betriebssystem: Windows 7 - 64 Bit, Office 2010. Bitte Version angeben. Bei keiner Angabe gehe ich von meinem Angaben aus. Mails nur nach Aufforderung.

taad
Office-Hilfe.com-Neuling

Anmeldedatum: 23.06.2009
Beiträge: 13

Verfasst am: 29.06.2009, 18:05

Super. Ja in der Spalte M sind die zu löschenden Zeilen mit "x_x" ausgewiesen.

Aber irgend wie kommt bei mir der debugg mit einem Laufzeitfehler.

Hajo_Zi
MVP für Microsoft Office Excel

Anmeldedatum: 26.05.2008
Beiträge: 1243
Wohnort: Neubrandenburg

Verfasst am: 29.06.2009, 18:12

ich habe deinen Code kopier, ich mußte die -1 löschen und neu hinschreiben und es war in Ordnung.

_________________
Betriebssystem: Windows 7 - 64 Bit, Office 2010. Bitte Version angeben. Bei keiner Angabe gehe ich von meinem Angaben aus. Mails nur nach Aufforderung.

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
	Makro für Zahlenanordnung gesucht...	tobstein	Microsoft Excel Hilfe	5	27.08.2010, 07:16
	Daten aus Zwischenablage per Makro ei...	schelmno.1	Microsoft Excel Hilfe	8	26.08.2010, 17:06
	Makro zum löschen von Inhalten -DRINGEND	Excelking	Microsoft Excel Hilfe	2	26.08.2010, 16:09
	Makro an wechselnde Daten anpassen! M...	PieWie83	Microsoft Excel Hilfe	1	19.08.2010, 15:38
	Makro starten von der Zelle, wo Zelle...	htumm	Microsoft Excel Hilfe	8	13.08.2010, 15:46

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