dyn. Tabelle auf anderes Tabellenblatt

[Serhat6161]

Hey atilla,

super sache. Funktioniert perfekt. vielen vielen dank eyyy....

krasse sache bin echt begeistert, genau das was ich brauch :19:

[Serhat6161]

Also muss sagen das Kopieren funktioniert perfekt...aber was wäre wenn jz mein Tabellenblatt2 geschützt wäre? was müsste ich dann an dem Code verändern, das excel praktisch das kopierte auch in ein Geschütztes tabellenblatt überträgt ?

[WillWissen]

Hallo Serhat,

dann füge nach "With sheets" folgende Zeile ein,

PHP-Code:

ActiveSheet.Unprotect Password:="xxx" 


falls du ein Kennwort benutzt und vor "End with"

PHP-Code:

ActiveSheet.Protect Password:="xxx" 


Ohne Kennwort lässt du einfach "Password:=...." weg

[atilla]

Hallo,

das "Entschützen" muss vorher passieren.
Ausserdem hatte ich nicht sauber codiert.

So sollte es insgesamt richtig sein:

Code:

Private Sub Worksheet_Activate()
 ActiveSheet.Unprotect "meinPasswort"
 ActiveSheet.Cells.Clear
 With Sheets("Tabelle1")
   .Range("A1:C1").Copy Range("A1")
   .Range("Tabelle1").Copy Range("A2")
 End With
 ActiveSheet.Protect "meinPasswort"
End Sub

An den Stellen, an denen "meinPasswort" steht musst Du, falls Du ein Passwort vergeben hast, Dein Passwort mit Anführungszeichen
eingeben.

[Serhat6161]

Super funktioniert perfekt...

kann ich excel eig auch sagen ab welchem bereich der den Clear befehl vom Code ausführen soll =?

[atilla]

Hallo Serhat,

ja, z.B. so:

Code:

Range("A1:C10").Clear

Das wäre aber statisch.

Man kann auch einen Bereich auslesen, in dem man die letzte beschrieben Zelle feststellt.

Das ginge dann mit dem bisherigen Code so:

Code:

Private Sub Worksheet_Activate()
 Dim lngLetzteZeile As Long
 ActiveSheet.Unprotect '"meinPasswort"
 lngLetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row 'letzte belegte Zeile in Spalte A (1)
 Range("A1:C" & lngLetzteZeile).Clear
 With Sheets("Tabelle1")
   .Range("A1:C1").Copy Range("A1")
   .Range("Tabelle1").Copy Range("A2")
 End With
 ActiveSheet.Protect '"meinPasswort"
End Sub

[Serhat6161]

Super funktioniert perfekt...

kann ich excel eig auch sagen ab welchem bereich der den Clear befehl vom Code ausführen soll =?

Option Explicit

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
ActiveSheet.UsedRange.Offset(2, 0).Clear

With Sheets("Tabelle1")
.Range("A2:C2").Copy Range("A2")
.Range("Tabelle1").Copy Sheets("Tabelle2").Range("A2")
ActiveSheet.Protect
End With
End Sub

HABS Rausgefunden :D:D

[Serhat6161]

Hallo Leute,

Also bevor ich alle Haare entgültig verliere, frag ich euch mal ob ihr mir diese funktion einbauen könnt. Unzwar meine Daten aus Tabellenblatt 1 sollen auch auf Tabellenblatt 2 übertragen werden. Nun sollen sich die Daten an Tabellenblatt 1 anpassen, aber die Überschrieften des Tabellenblatt 2 sollten verändert werden können. D.h. Tabellenblatt 1 (Deutsch) und Tabellenblatt 2 ( Englisch) und die Daten sollen wie geschrieben immer gleich sein. Die Funktion sollte auch dann gehen können wenn beide Schreibgeschützt sind.

Bisher: Ich habe eine Dynamische Tabelle wo sich durch ein Makro erweitern kann, daneben sorgt das Makro dafür das auch das aktuelle Datum gleich eingefügt wird in die neue Zeile.

Anbei nun mein kläglicher Versuch, nur eben Ohne Tabellenblatt 2 was gemacht werden müsste/ was ich nicht hiinbekomme :(
ich hoffe ihr könnt mir helfen.....PS mein blattschutz hat kein PW

[WillWissen]

Hi Serhat,

Angehängte Dateien
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]   Mappe_Serhat2.xlsm (Größe: 46,25 KB / Downloads: 0)

bist du sicher, dass die richtige Datei hochgeladen ist?

[Serhat6161]

Hi Serhat,

Angehängte Dateien
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]   Mappe_Serhat2.xlsm (Größe: 46,25 KB / Downloads: 0)

bist du sicher, dass die richtige Datei hochgeladen ist?

Hallo WillWissen,

jap das ist die Datei, da werde ich später noch paar kleinigkeiten ändern, mir ist hier nur wichtig wie gesagt die Kopie auf das Tabellenblatt2. Leider habe ich hier auch ein Makro z.b drinnen, d.h tabellenblatt 2 muss ständig aktualisiert werden. Dadurch das es später im Tabellenblatt auf englisch werden muss sollten also nur die Werte in den Zellen abhängig vom tabellenblatt 1 sein. ich hoffe ich konnte mein anliegen erläutern