Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Kopierte Zellen markieren
#31
Guten Abend Ralf und Uwe,
habe versucht, eure Vorschläge bei mir zu integrieren.
Leider ohne Erfolg. Ich erhalte Fehlermeldung:

Erwartet bei #Gen_19, varSp88 :    Then oder GoTo, obschon vorhanden.
oder bei      #Gen_20, varSp89 :  keine Meldungs- und Funktionsausführung
Die Änderungen sind bei varSp88 varSp89 eingetragen
Irgendwas mache ich falsch darum bitte ich nochmals um Hilfe.
Mit dankbaren Grüssen
Martin


.xlsm   Fehlerabfragen Generationen.xlsm (Größe: 200,33 KB / Downloads: 3)
Antworten Top
#32
Hallo Martin,

teste mal. Ich habs rausgeschmissen und neu geschrieben.

.xlsm   Fehlerabfragen Generationen.xlsm (Größe: 193,93 KB / Downloads: 3)

Gruß Uwe
Antworten Top
#33
Guten Tag Uwe,
danke für deine Hiilfe. Leider funktioniert die Änderung bei mir nicht.
Wenn ich die Spaltenüberschriften (#Gen_19 und 20) lösche, erhalte
ich bei einer Dateneingabe die Meldung Laufzeitfehler '13', Typen unvertäglich
aber keine MsgBox Meldung. Auch beim Debuggen ist keine Fehlermeldung
anstehend. Wenn ich anschliessend die Spaltenüberschriften wieder eintrage
werden Änderungen nicht mehr ausgeführt. Das ganze ist blockiert.
Auf weitere Hilfe hoffend grüsst
Martin
Antworten Top
#34
Hallo Martin,

mit diesem Satzteil:

Zitat:Wenn ich die Spaltenüberschriften (#Gen_19 und 20) lösche
habe ich verstanden was du willst.
Dann so:

.xlsm   Fehlerabfragen Generationen.xlsm (Größe: 201,73 KB / Downloads: 12)

Diese Datei scheint schon einen knacks weg zu haben. Wenn nach öffnen der Datei zum ersten mal ein Change Ereignis feuert, dann bleibt VBA ohne Fehler in Behlszeile einfach stehen. Wenn man F5 drückt läuft anschließend und zukünftig alles normal. Das passiert nur nach dem öffnen diese Datei einmalig.

Gruß Uwe
Antworten Top
#35
Guten Abend Uwe,
Heart  lichen 98 es läuft 35 .
Danke für deine Hilfe. Ich wünsche noch
schöne Xmas20 und ein Xmas27

Gruss Martin
Antworten Top
#36
Hallo Klaus-Dieter und Uwe
Habe mit if..Else ein wenig experimentiert. Leider ohne Erfolg.
Darum bitte ich nochmals um Hilfe bei der Problenlösung.
 
Hier etwas Ausführlicher was ich realisieren möchte.
 
Tabelle links hat immer 20 Spalten mit Überschriften.
In Tablle rechts ist die Spaltenzahl variabel, ( 5 bis 20 Spalten )
Nach dem Kopieren der Daten von Tabelle rechts nach Tabelle links,
haben beide  Generationenspalten  15 Einträge.
Wenn ich in Tabelle links eine Person hinzu füge (zB. 1 John), sollte die
Fehlermeldung erscheinen, da in Tabelle rechts Spalte fehlt. Nach dem Eintrag
der neuen Spalte sollte, nach erneuter Eingabe des neuen Namen korrekt
kopiert und markiert werden . Das sollte in Tabelle links  bis zur letzten Spalte
funktionieren.
Miit dankbaren Grüssen
Martin


Angehängte Dateien
.xlsm   Fehlerabfragen Generationen.xlsm (Größe: 170,86 KB / Downloads: 5)
Antworten Top
#37
Hallo Martin,
 
anbei ein Weg, der zumindest in dieser Datei funktioniert. Nach der Msgbox wird aus der Prozedur gesprungen. Sollte das andere Funktionalitäten behindern, muss man das anders anstellen. Kann ich aber mit dem was du hochgeladen hast, so nicht abklären.
 
Was Klaus-Dieter betrifft:
Da habe ich in einem anderen Forum zufällig gelesen, dass er sich wohl hier von einem Kommentar eines Users angegriffen gefühlt hat und sich wohl deswegen hier nicht mehr als Helfer beteiligt. Seinen letzten Besuch hat er versteckt.
Ich denke schon, dass er hier noch mit liest nur eben nicht mehr reagiert.
Wie es halt so ist: Austeilen und Einstecken sind 2 Paar Schuhe.
Wie auch immer teste mal, ob es so ausreichend ist.

.xlsm   Fehlerabfragen Generationen(1).xlsm (Größe: 171,45 KB / Downloads: 13)

Gruß Uwe
Antworten Top
#38
Guten Abend Uwe
  98 für die Info und für die Modifikation.
Irgendwo scheint noch ein Bug vorhanden zu sein.

Wenn ich links ein Name eingebe, meldet sich die MsgBox korrekt.
Dann rechts Spalte einfügen mit Überschrift, links Name eingeben, kopiert und markiert korrekt.

Wenn ich links wieder ein Name eingebe, ohne dass die Spalte rechts vorhanden ist kommt die
Fehlermeldung    Laufzeeitfehler 13 , Typen unvertäglich. Ohne Exit und neu starten funktioniert
nichts mehr.
Gruss Martin
Antworten Top
#39
Guten Tag Uwe
habe in der alten Mappe ein Fehler bei If IsError..  gefunden (If IsError(varSp86) Then).

Habe eine neue anonyme Originalmappe erstellt.
Es funktioniert immer noch nicht richtig.
Hoffe um Hilfe
Gruss Martin


Angehängte Dateien
.xlsm   Kopieren mit Überschriften mit GenerationenFehlerabfrage(2).xlsm (Größe: 1,46 MB / Downloads: 8)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste