Office: VBA problem mit UsedRange

Hallo Excel Profis
ich als VBA Neuling habe da ein Problem.
Ich habe eine Eingabemaske gestaltet mit deren Hilfe ich Termine in eine Tabelle schreiben möchte.
So weit so gut funktioniert auch fast richtig. Allerdingswerden die Eingaben erst ab Reihe 71 gespeichert!
In der Spalte "A" habe ich Formeln platziert mit deren Hilfe ich Automatisch den Monatsnamen generiere. Also müsste UsedRange in der zweiten Spalte zählen.
Aber auch wenn ich Spalte "A" leere, speichert Excel erst ab Reihe 71!
Liegt das an den anderen Makros zur Hintergrund einfärbung? Die Range ist auch bis 70.
Die Datei ist angehängt.
Vielen Dank
MfG
Posuane

 

Hi Posaune...

schaue Dir mal Deine Datei an, in der Spalte J habe ich eine Formel
ergänzt, die Dir die nächste zu verwendende Zeile berechnet. Die Formel
müsstest Du ggf. um mehr Zeilen erweitern. Und dann Spalte verstecken.

Den Wert aus J8 holt sich dann der Dialog und wird somit unabhängig
von UsedRange (der stellt den verwendeten Bereich dar, der auch leere
Zellen enthalten kann).

Gruß

 

Hallo
Danke für die Hilfe funktioniert bei mir aber nicht.
Das Datum über die Mske eingegeben ergibt im Terminkalender dann wohl einen Text, obwohl die Formartierung Datum ergigt.
Auch in Spalte A wird kein Monat als Ergebnis mehr ausgegeben sondern das Datum Aus Spalte B.
Die Formel in J erkennt das Datum ebenfalls nicht als Zahl.
Keine Ahnung warum.
Gibt man direkt im Terminkalender ein funktionieren zumindest alle Formeln wieder, sprich das Datum in Spalte B wird auch als solches erkannt.

 

Hi nochmal...

Du müsstest bitte das Problem konkretisieren.

Ich war vom Code ausgegangen, der drin war und habe diesen entsprechend geändert. Und habe jetzt erst gesehen,
dass Du Dich auf die Tabelle "Standardtermine" in der Tabelle "Terminkalender" beziehst.
Wo sollen denn die Daten aus dem Formular hin?

Gruß

 

Hallo sorry für die späte Antwort, habe plötzlich einen Trauerfall in der Familie.
Aber nun zum Problem.
Im Register "Terminkalender" möchte ich einen Terminkalender für einen Verein erstellen. Es gibt Standardtermine die jedes Jahr am selben Tag stattfinden. Diese habe ich im Register "Standardtermine" hinterlegt und hole sie mir mit Formeln in den Terminkalender. das Funktioniert auch.
Neue unregelmäßige Termine kann man jetzt einfach in den Terminkalender schreiben und über den Button "Sortieren" sortiern. Funktioniert auch.
Nur möchte ich die Tabelle Terminkalender schützen um unbeabsichtigtes Löschen von Standardterminen (sprich Formeln) zu verhindern.
Deswegen habe ich über den Button "Neue Daten" eine Eingabemaske kreiert.
Nun das Problem ist in Spalte "A" sind Formeln versteckt die den jeweiligen Monat einfach zeigen.
Und nun werden neue Termine über die Eingabemaske erst ab Zeile 71 eingefügt (der eigentliche Terminkalender geht bis zur Zeile 70).
Mit dem gänderten Code und den Hilfsformeln wird in Spalte "B" aber eine Textformartierung gesetzt die sich auch nicht ändern läßt, dadurch funktioniert das Eingebe via Eingabemaske nicht mehr(jedenfalls wenn man mehrere Termine eingibt).
Ich hoffe das Problem ist jetzt deutlicher.
Gruß und Danke
Posaune

 

Hi Posaune...

zunächst mein Beileid, was den Trauerfall angeht. Ich habe mal eine neue Version hochgeladen, ist das mehr in Deinem Sinn?

PS: Wenn Du nur das Bearbeiten von Formeln oder Zellen verhindern möchtest, kannst Dua uch die Zellen schützen. Markiere alle Zellen, die NICHT geschützt sein sollen und wähle 'Zellen formatieren' und dann den Reiter Schutz. Entferne das Häkchen und Ok. Sobald Du im Hauptmenü Extras->Schutz->Blattschutz wählst und mit oder ohne Kennwort das Blatt schützt, kannst Du auch nur die Zellen bearbeiten, die ungeschützt sind. Bei VBA achten, dass Zellen, die von VBA beschrieben werden ungeschützt sind.

 

Hallo Maninweb
danke für die Hilfe es klappt jetzt so wie ich es wollte. Habe aber ein paar Änderungen noch gemacht aber super. Dein VBA Code ist jetzt die Lösung.
Gruß Posaune