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

  Einzelne Zellen auslesen/exportieren per VBA
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
toshi_ba
Newbie
Newbie


Anmeldedatum: 31.07.2008
Beiträge: 16

BeitragVerfasst am: 06.08.2008, 12:41 Nach oben

Hi Michael,

die zu füllenden zellen habe ich natürlich entsperrt. Naja, ist auch nicht so wichtig, ich kann das Formular auch entsperrt lassen. Wird schon hinhauen ;) Wenn nicht, werd ich versuchen die Zellen kurz zu entsperren, so wie du es vorgeschlagen hast.

Die Fehlermeldung tritt wirklich so verstümmelt auf. Vielleicht läuft mir die Lösung ja irgenwann über den Weg Very Happy Für den Moment bin ich jedoch sehr zufrieden...

Deshalb danke ich dir auch sehr für deine freundliche und stets überaus kompetente Hilfe! Ich würde dich glatt schatzi nennen, wenn dieser Name nicht schon anderweitig hier im Forum vergeben wäre Wink

Macht weiter so hier im Forum, ist eine super Sache!

Gruß
Babsi
Benutzer-Profile anzeigenPrivate Nachricht senden
miriki
Schlauberger
Schlauberger


Anmeldedatum: 05.03.2007
Beiträge: 439
Wohnort: Kiel

BeitragVerfasst am: 07.08.2008, 06:47 Nach oben

toshi_ba hat Folgendes geschrieben:
ich kann das Formular auch entsperrt lassen.

Um einzugrenzen, ob es am Blattschutz liegt und an welcher Stelle genau, kannst Du die folgenden beiden Zeilen
Code:
sht1.unprotect

am Anfang der Routine und
Code:
sht1.protect

am Ende der Routine einfügen. Sämtliche Parameter sind optional.

Damit hebst Du den Blattschutz kurz auf und setzt ihn danach wieder. Tritt der Fehler dann nicht mehr auf, liegt es am Blattschutz, der den Ablauf der Routine beeinflußt.

Und dann kannst Du die beiden Zeilen ja immer enger zusammen setzen, um den Bereich der Routine einzugrenzen, wo genau der Fehler auftritt.

Gruß, Michael
Benutzer-Profile anzeigenPrivate Nachricht sendenICQ-Nummer
toshi_ba
Newbie
Newbie


Anmeldedatum: 31.07.2008
Beiträge: 16

BeitragVerfasst am: 07.08.2008, 21:26 Nach oben

Hi nochmal,

das mit dem sht1.unprotect klappt, allerdings hab ich ein anderes Makro, bei dem ich kurzzeitig die ganze Mappe entsperren muss. Hab bereits mit Codes wie z.B.
Code:
ThisWorkbook.unprotect
herumexperimentiert, aber es will nicht funktionieren... auch
Code:
workbooks("...").Unprotect
hat nicht geholfen. Gibt es hierfür vielleicht einen speziellen Code?

Gruß
Babsi
Benutzer-Profile anzeigenPrivate Nachricht senden
miriki
Schlauberger
Schlauberger


Anmeldedatum: 05.03.2007
Beiträge: 439
Wohnort: Kiel

BeitragVerfasst am: 08.08.2008, 07:01 Nach oben

toshi_ba hat Folgendes geschrieben:
Gibt es hierfür vielleicht einen speziellen Code?

Du kannst sowas relativ gut herausfinden, indem Du den Makro-Recorder benutzt.

Ich hab mir mal eine neue Arbeitsmappe erstellt und sie mit laufendem Recorder geschützt (Extras - Schutz - Arbeitsmappe schützen) und wieder entsperrt. Dann hab ich eine weitere Arbeitsmappe erstellt und diese ebenfalls von der 1. aus geschützt und entsperrt. Das resultierende Modul1 hatte danach folgenden Inhalt (Kommentare entfernt):

Code:
Option Explicit

Sub Makro1()
    ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

Sub Makro2()
    ActiveWorkbook.Unprotect
End Sub

Sub Makro3()
    Windows("Mappe2").Activate
    ActiveWorkbook.Protect Structure:=True, Windows:=False
    Windows("Mappe1").Activate
End Sub

Sub Makro4()
    Windows("Mappe2").Activate
    ActiveWorkbook.Unprotect
    Windows("Mappe1").Activate
End Sub


Das sollte ein guter Ansatz sein, um ihn auszubauen. Ich würde z.B. "windows(..." durch "workbooks(..." ersetzen. Bezüge auf "Mappe1" würde ich sogar mit "thisworkbook" ersetzen. Und um die Sache "stabiler" zu machen, würde ich in den Makros 1 und 2 noch die Zeile "thisworkbook.activate" einfügen.

Ich hab da noch nicht viel mit gemacht, aber vielleicht geht es wirklich nur mit der jeweils "aktiven" Mappe? Ansonsten müßten die Makros 1 und 2 auch jeweils mit "thisworkbook" klappen.

btw: "thisworkbook" bezieht sich immer auf die Mappe, in der sich der Code befindet, unabhängig davon, welche Mappe gerade "im Vordergrund" (aktiv) ist. Dahingegen "activeworkbook" bezieht sich immer auf die Mappe,, die gerade den Fokus hat, also "im Vordergrund" bzw. "aktiv" ist, auch wenn sich der gerade laufende Code in einer ganz anderen Mappe befinden kann (aber nicht muß). "thisworkbook" kann also ggf. auch gleichzeitig das "activeworkbook" sein.

Gruß, Michael
Benutzer-Profile anzeigenPrivate Nachricht sendenICQ-Nummer
toshi_ba
Newbie
Newbie


Anmeldedatum: 31.07.2008
Beiträge: 16

BeitragVerfasst am: 11.08.2008, 22:45 Nach oben

Hi Michael,

hm, das funktioniert zwar alles so wie du beschrieben hast, allerdings scheinbar nicht in meinem Makro/Sheet/Workbook :). Erstelle ich eine neue Arbeitsmappe, klappt es bestens. Naja auch nicht so schlimm, es geht auch so...aber wie schon gesagt, vielen Dank für Deine/Eure große Hilfe! Macht weiter so!

Gruß
Babsi
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 Wie kann ich Daten auslesen? stud_thomas Microsoft Excel Hilfe 1 05.11.2008, 01:38 Letzten Beitrag anzeigen
Keine neuen Beiträge VBA Programmierung für eine Zelle auf... davenport Microsoft Excel Hilfe 10 03.11.2008, 09:09 Letzten Beitrag anzeigen
Keine neuen Beiträge Wert zweier Zellen vergleichen und dr... Frederic Microsoft Excel Hilfe 4 31.10.2008, 14:07 Letzten Beitrag anzeigen
Keine neuen Beiträge Inhalt mehrer Zellen in eine Zelle nitro87 Microsoft Excel Hilfe 3 30.10.2008, 20:59 Letzten Beitrag anzeigen
Keine neuen Beiträge Daten aus einem Tabellenblatt in ande... Silverraider Microsoft Excel Hilfe 1 30.10.2008, 16:02 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