MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 20.09.2016, 15:00   #1
Shifty173
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - Mittels Target mehrere Zellen übertragen

Hallo Allerseits und ein herzliches Grüß Gott (bin ja neu)!

Ich habe folgendes Problem:
Ich habe Tabellenblatt - Ebene mittels Private Sub eine Prozedur geschrieben, bei welcher mittels Target beim ändern einer Zelle diese in der entsprechenden Spalte und der ersten freien Zeile eines anderen Tabellenblattes der Wert übertragen wird. Dies funktioniert, solange ich immer nur einen einzelnen Wert ändere. Wenn ich allerdings mehrere Zellen gleichzeitig ändere (z.B. Strg V) bekomme ich den Laufzeitfehler 13 - Typen unverträglich.
Mir ist klar, dass es so ist, da die Variable, in welche ich den Wert von Target einspiele, als Integer deklariert ist, komme aber leider nicht auf die Lösung.

Anbei mal mein Code:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Call Werte

Set Target = Application.Intersect(Target, AT10Bereich)

If Target Is Nothing Then Exit Sub

Worksheets(AT10Tabelle).Unprotect 'Blattschutz aufheben für Tabellenblatt "Jahresplaner AT10"

AT10FAUF = Target.Value 'speichert in der Variable die aktuelle FAUF - Nummer

AT10Tag = Target.Column 'speichert in der Variable die Spaltennummer der aktuell bearbeiteten Zelle

AT10zuGesamtErsteFreieZeile = ErsteZeileFAUFs

'Finden der ersten freie Zeile des aktuellen Tages in der Tabelle "Jahresplaner Gesamt"
Do Until Worksheets(GesamtTabelle).Cells(AT10zuGesamtErsteFreieZeile, AT10Tag).Value = ""
AT10zuGesamtErsteFreieZeile = AT10zuGesamtErsteFreieZeile + 1
Loop


Worksheets(GesamtTabelle).Unprotect 'Blattschutz aufheben für Tabellenblatt "Jahresplaner Gesamt"
Worksheets(GesamtTabelle).Cells(AT10zuGesamtErsteFreieZeile, AT10Tag).Value = AT10FAUF 'FAUF - Nummer in "Jahresplaner Gesamt" eintragen
Worksheets(GesamtTabelle).Cells(AT10zuGesamtErsteFreieZeile, AT10Tag).Interior.Color = AT10Farbe 'Farbe in Zelle im "Jahresplaner Gesamt" für AT10 hinterlegen
Worksheets(GesamtTabelle).Cells(AT10zuGesamtErsteFreieZeile, AT10Tag).Locked = True 'Zelle im "Jahresplaner Gesamt" sperren
'Worksheets(GesamtTabelle).Protect


Target.Interior.Color = AT10Farbe 'Farbe in Zelle im "Jahresplaner AT10" für AT10 hinterlegen
Target.Locked = True 'Zelle im "Jahresplaner AT10" sperren
'Worksheets(AT10Tabelle).Protect 'Blatt "Jahresplaner AT10" schützen

Call SpeichernOhneSchließen

End Sub

Ich hoffe jemand von euch hat ne Idee.

Vielen Dank im Vorraus!

LG!
Shifty
Shifty173 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.09.2016, 15:36   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo und willkommen Shifty ,

auch mit himmlischen Bestand - wobei der wohl eher aus Redmond kommt - wirst Du hier kaum Hilfe finden, denn Du fragst in der falschen Forumsecke.

Hier befassen wir uns nur mit traditionellem VB bis zur Version 6 aber nicht mit Office-VBA, wie es auch schon am Eingang zu lesen ist.

Wende Dich mit Deinen Fragen an die Excel-Ecke.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.09.2016, 06:04   #3
Shifty173
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo haklesoft!

Danke für den Hinweis!

LG!
Shifty
Shifty173 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:58 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.