Zeilen überschreiben ohne Formel zu löschen

Hallo Liebe Experten,
ich stehe vor einem Problem in der VBA Programmierung und würde mich sehr freuen wenn sich jemand erbarmt und einen Vorschlag zur Lösung hat.
Was wir haben:
Eine Liste: G718:G797 (in jeder Zelle ist der Bezug zu einem anderen Tabellenblatt "Nutzungsdauern $B$19", also eine "Formel")
In diese Liste soll also immer das Rein was in der einen Zelle B19 steht.
Allerdings soll die Überschreibung in einzelnen Zellen innerhalb der Liste möglich sein ohne aber den Bezug zu B19 zu verlieren, bzw. wenn ich etwas rein schreibe und es danach wieder lösche, wieder der Bezug zu B19 da ist.
Ich habe ein Makro geschrieben, der aber nicht funktioniert.
Hier der Makro:


Sub Anlagen(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("G718:G797")) Is Nothing Then
Target = Sheets("Nutzungsdauern").Cells(19, 2)
Cancel = True
End If
End Sub

Dazu kommt: Dieser Makro soll auch für andere Listen erstellt werden, dann aber mit einer anderen Bezugszelle aus dem TB Nutzungsdauern... aber eins nach dem anderen
Vielen Dank im Voraus.
Viele Grüße
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Const adRelBer$ = "G718:G797" Const BlattListe$ = "Nutzungsdauern!Blatt2!Blatt3!…BlattX" 'BlattTitel in ZeilenRhf! Dim bix As Long, axBlaLi As Variant, relBer As Range, Ziel As Range On Error GoTo ex Set relBer = Intersect(Target, Range(adRelBer)) If Not relBer Is Nothing Then Application.EnableEvents = False axBlaLi = Split(BlattListe, "!") bix = relBer.Cells(1).Row - Range(adRelBer).Cells(1).Row For Each Ziel In relBer If Ziel = "" Then Ziel.Formula = "='" & axBlaLi(bix) & "'!$B$19" bix = bix + 1 Next Ziel ex: Application.EnableEvents = True Set relBer = Nothing End If

…Peter… ;-)
So, nun habe ich die EventProc doch noch selbst getestet und siehe da, sie fktioniert auf Anhieb, allerdings mit allen Zeilen und entsprd Anpassung an meine Testdatei. Die „ominöse“ Zeile 10 sollte bei richtiger Zählung die sein, die mit bix = anfängt. Die ist aber unerlässlich, um den jeweiligen Anfangsindex der Änderung festzustellen. Man kann nämlich auch mehrere Zellen gleichzeitig löschen und dann umfasst Target alle diese Zellen. Allerdings sollten die auch zusammenhängen, sonst könnte es Probleme geben.
Der neue Code sieht komplett bei mir unter Xl12 so aus:

Private Sub Worksheet_Change(ByVal Target As Range)
Const adRelBer$ = "G718:G797", adQBer = "$B$19"    '"A11:A18"
Const BlattListe$ = "Nutzungsdauern!Blatt2!Blatt3!Blatt5!Blatt4!Blatt9!Blatt7!" & _
"Blatt8!BlattX!BlattY!BlattZ"    'BlattTitel in ZeilenRhf!
Dim bix As Long, axBlaLi As Variant, relBer As Range, Ziel As Range
On Error GoTo ex
Set relBer = Intersect(Target, Range(adRelBer))
If Not relBer Is Nothing Then
Application.EnableEvents = False
axBlaLi = Split(BlattListe, "!")
bix = relBer.Cells(1).Row - Range(adRelBer).Cells(1).Row
For Each Ziel In relBer
If Ziel = "" Or Ziel

Falls sich mal die Bereiche ändern, musst du idR nur die Konstanten am PgmAnfang entsprd korrigieren. Die Einträge in der BlattListe müssen in der Reihenfolge ihrer Benutzung in den Verweisen der Spalte G erfolgen. Wird ein Blatt mehrmals benötigt, muss es auch mehrmals eingetragen wdn. Wird die Liste zu lang, kann man sie wie jetzt oben gezeigt trennen. Ich habe zum Testen die oben auskommentierte Bereichsangabe und flgd BlattListe benutzt:
"Tabelle2!Tabelle4!Tabelle9!Tabelle5!Tabelle6!Tabelle1!Tabelle8!Tabelle7"
Daran kann man erkennen, dass nicht die Reihenfolge der Blätter in der Mappe wichtig ist, sondern die Reihenfolge, in der sie in den Zellen benötigt wdn!
Übrigens würde es auch reichen, If Ziel zu schreiben, aber dann kann uU auch ="" bzw nur ' in eine relevante Zelle eingetragen wdn ohne dass das korrigiert wird! Falls dir das sogar recht wäre, kannst du das Pgm ja entsprd ändern. Bisher passiert das nur, falls ein Text eingetragen wird, aber das kann man auch abfangen, indem man statt Ziel = "" ⇒ Not IsNumeric(Ziel) schreibt.
Falls beliebige Mehrfach-ZellAuswahl-Löschungen (also auch unzusammenhängende) fehlerlos möglich sein sollen, muss das Pgm entsprd geändert wdn (könnte ich bei Bedarf noch machen).
Achtung! Das alles fktioniert nur bei manueller Änderung oder Einkopieren neuer Werte!
Gruß + schöWE, Luc :-?
PS: Noch ein Hinweis; guter PgmierStil ist es, eine EventProc nicht mit speziellen Pgmm zu überladen. Wenn sie mehrfach genutzt wdn soll, ist es besser, sie wie einen Verteiler zu benutzen, d.h., unter bestimmten GrundBedingg wird eine entsprd Subroutine (sog Makro) aufgerufen (ggf auch parametriert!), die entweder als Private ebenfalls im selben oder Public in einem allgemeinen Modul steht.
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

Zeilen überschreiben ohne Formel zu löschen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen überschreiben ohne Formel zu löschen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread