Office: Daten in anderes Tabellenblatt übertragen

Hallo,
ich stelle mir folgendes vor: Ich trage in das Tabellenblatt 1 in die Felder A1 - A8 Werte ein.
Diese Werte sollen dann in das Tabellenblatt 2 in die nächste freie Zeile übertragen werden.
Gibt es dafür eine Lösung?
mfG
Bernd Herder

 

Hallo Bernd,

mit VBA schon, aber warum schreibst du die Werte nicht gleich dahin, wo sie hin sollen?

 

Hallo Klaus-Dieter,
das Tabellenblatt 2 soll gesperrt sein, damit die Eintragungen nicht mehr verändert werden können.
Geht das nicht ohne VBA, denn ich möchte nach Möglichkeit keine Makros haben, weil andere Anwender damit nicht klar kommen, und evtl. die Tabelle mit OpenOffice oder LibreOffice nutzen sollen.
mfG
Bernd Herder

 

Hallo Bernd,

der Datenschutz in Excel verdient, genau genommen, seinen Namen nicht. Einen Weg das zu umgehen, hast du ja schon genannt. Mit Formeln lässt sich dein Vorhaben nicht umsetzen. Bleibt also aus meiner Sicht nur eine Makro-Lösung.

 

Hallo Klaus-Dieter,
wie würde denn bitte das Makro aussehen? Würdest Du mir bitte eins erstellen?

 

Hallo Bernd,

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Option Explicit ' Variablendefinition erforderlich Private Sub Worksheet_Change(ByVal Target As Range) '*********************************************** '* H. Ziplies * '* 29.09.24 * '* erstellt von Hajo.Ziplies@webs@web.de * '* http://Hajo-Excel.de/ * '*********************************************** Dim RaBereich As Range ' Variable für Bereich Dim RaZelle As Range ' Variable für Zelle Dim LoZeile As Long ' Zeile in die geschrieben wird Dim InSplate As Integer Set RaBereich = Range("A1:A8") ' Bereich der Wirksamkeit Set RaBereich = Intersect(RaBereich, Target) If Not RaBereich Is Nothing Then With Worksheets("Tabelle2") LoZeile = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 For Each RaZelle In RaBereich .Cells(LoZeile, InSplate + 1) = RaZelle InSplate = InSplate + 1 Next RaZelle End With End If Set RaBereich = Nothing ' Variable leeren End Sub

 

Hallo Hajo,
danke für das Makro. Leider hilft weder Alt+F11 noch Strg+R, denn das funktioniert nicht. Liegt das vielleicht an Microsoft Office 2021? Würdest Du mir bitte mal "für Doofe" erklären, wie ich vorgehen muss?

 

Hallo Bernd,

schalte über Optionen die ntwicklungsumgebung ein, dort gibt es einen Schalter für Editor

der code sieht eigenartig aus.
Option Explicit ' Variablendefinition erforderlich

Private Sub Worksheet_Change(ByVal Target As Range)
'***********************************************
'* H. Ziplies *
'* 29.09.24 *
'* erstellt von Hajo.Ziplies@webs@web.de *
'* Homeseite - Hajo's Excelseiten *
'***********************************************
Dim RaBereich As Range ' Variable für Bereich
Dim RaZelle As Range ' Variable für Zelle
Dim LoZeile As Long ' Zeile in die geschrieben wird
Dim InSplate As Integer
Set RaBereich = Range("A1:A8") ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
With Worksheets("Tabelle2")
LoZeile = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
For Each RaZelle In RaBereich
.Cells(LoZeile, InSplate + 1) = RaZelle
InSplate = InSplate + 1
Next RaZelle
End With
End If
Set RaBereich = Nothing ' Variable leeren
End Sub

Gruß Hajo

 

Hallo Bernd,

Hajo hat eine Ereignisprozedur erstellt. Das Makro gehört in das Modul des Tabellenblattes, auf das es wirken soll. Es startet dann automatisch nach jeder Eingabe im Bereich A1:A8.

 

Hallo Hajo,
hallo Klaus-Dieter,
ich habe eben mit meinem Kollegen gesprochen. Er möchte auf keinen Fall mit einem Makro arbeiten. Daher ist die Sache leider erledigt.
Ich danke Euch für Eure Mühe und Hilfen, und wünsche noch einen schönen Rest-Sonntag.

 

Hallo Bernd,

gibt es dafür einen nachvollziehbaren Grund?

 

Hallo Klaus-Dieter,
ich bin ehrenamtlicher Schatzmeister. Wir haben ca. 300 Selbsthilfegruppen, die alle einen Kassenbericht erstellen müssen. Dafür brauchen wir Microsoft Office, wenn wir mit Makros arbeiten wollen.
Viele Kassierer haben aber OpenOffice oder LibreOffice, und da funktionieren leider keine Makros.
Deshalb müssen wir leider eine andere Lösung finden, oder meine Idee ist nicht durchführbar - leider.

 

Hallo Bernd,

eine Formellösung muss man da ausschließen. Dann bleibt es eben dabei, dass die Daten gleich an die richtige Stelle geschrieben werden. Der Blatt"schutz" von Excel leistet ohnehin nicht das, was der Name verspricht.

Nebenbei bemerkt kann man auch in LibreOffice mit Makros arbeiten, allerdings weichen die von den Microsoft Makros ab, so dass sie wohl zumindest angepasst werden müssen.