Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

  Datenbank/Makro/Autofilter
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
Ferdi
Newbie
Newbie


Anmeldedatum: 26.10.2006
Beiträge: 2

BeitragVerfasst am: 26.10.2006, 10:12 Nach oben

Hallo,
habe ein kleines Problem. Ich möchte eine Datenbank in Excel erstellen, wobei die Steuerung zu einezelnen Blättern über Makros läuft. Habe ein Datenblatt mit allen Einträgen und filtere dieses mit Autofilter in der ersten Zeile. Diese Daten übertrage ich mit Makro (pasteSpezial) in ein neues geschütztes Arbeitsblatt. Probleme mit dem Blattschutz konnte ich selbst beheben und es sah so aus als ob es klappt, aber wenn ich neue Daten hinzufüge werden diese nicht in das zweite Arbeitsblatt übernommen. Mir steht nur Excel zur Verfügung.
Hoffe man kann mir noch helfen! Langsam habe ich von Excel die Schn.. voll.
Danke im Voraus
Ferdi
MS Office XP
Excel 2003
Benutzer-Profile anzeigenPrivate Nachricht senden
fridgenep
Office-Spezialist
Office-Spezialist


Anmeldedatum: 20.10.2006
Beiträge: 159

BeitragVerfasst am: 26.10.2006, 10:34 Nach oben

Hallo Ferdi,

Kopf hoch, Excel macht auch Spass. Very Happy

Gib mir deine Datei inklusive Code und versuche dir zu helfen.
Benutzer-Profile anzeigenPrivate Nachricht senden
Ferdi
Newbie
Newbie


Anmeldedatum: 26.10.2006
Beiträge: 2

BeitragVerfasst am: 27.10.2006, 07:25 Nach oben

Hallo nochmal,
ich habe die Datei bis auf das Nötige verkleinert. Jetzt fehlen zwar etliche Blätter, ist aber für das Problem nicht wichtig.

Code:
Sheets("Datenbank").Select
Selection.AutoFilter Field:=1, Criteria1:="6"
Range("B2:I1008").Select
Selection.Copy
Sheets("Daten_L6").Select
Range("A2:H1008").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("I1").Select
Sheets("Datenbank").Select
Range("J25").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("Daten_L6").Select
Das ganze würde ich gerne auf weitere 15 Arbeitsblätter anwenden, aber es klappt ja schon beim ersten nicht.
Vielen Dank im voraus
Gruss Ferdi


Leitungsnetz_01.xls
 Beschreibung:

Download
 Dateiname:  Leitungsnetz_01.xls
 Dateigröße:  241 KB
 Heruntergeladen:  126 mal

Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge Word 2007 Makro bringt Fehlermedlung ... Ted Microsoft Word Hilfe 0 21.11.2008, 21:31 Letzten Beitrag anzeigen
Keine neuen Beiträge WQord 2007 fehler beim Makro (kopilie... Ted Microsoft Word Hilfe 0 21.11.2008, 07:40 Letzten Beitrag anzeigen
Keine neuen Beiträge VBA-Makro: Kalendereintrag kopieren? SvenZ Microsoft Outlook Hilfe 9 18.11.2008, 10:16 Letzten Beitrag anzeigen
Keine neuen Beiträge Datenbank online stellen (PHP, SVERWE... golf1985 Microsoft Excel Hilfe 5 16.11.2008, 19:12 Letzten Beitrag anzeigen
Keine neuen Beiträge "In eine Zahl umwandeln" pe... Frederic Microsoft Excel Hilfe 4 13.11.2008, 15:46 Letzten Beitrag anzeigen


 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 | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



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