Werte aus angeklickter Zelle übertragen

Forumthread: Werte aus angeklickter Zelle übertragen

22.02.2007 11:19:00

Michael

Hallo xl-Forum,
kann man per VBA den Wert einer angeklickten Zelle oder den Wert der ersten Zeile der Spalte in der sich die angeklickte Zelle befindet in eine andere Zellen auf anderen Blättern übertragen?
Sobald eine andere Zelle angeklickt wird, sollen natürlich dann diese Werte an die entsprechende Position übertragen werden.
Es ist ziemlich schwierig zu beschreiben, deshalb hab ich eine Bsp. Datei gemacht.
https://www.herber.de/bbs/user/40617.xls
Gruß
Michael

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte aus angeklickter Zelle übertragen

22.02.2007 12:18:52

Julia
AW: Werte aus angeklickter Zelle übertragen

22.02.2007 12:23:24

otto

AW: Werte aus angeklickter Zelle übertragen

22.02.2007 12:18:52

Julia

Hallo Michael,
ich verstehe es irgendwie nicht so ganz, versuche dir mal trotzdem zu helfen. Sag mir ob es so richtig ist:
Du willst den Wert aus B2 "Matrix" nach "Wert2" in die farbige Zelle anzeigen oder kopieren.
Und dann eine beliebig markierte Zelle nach "Wert1" in die farbige Zelle anzeigen lassen.
Wenn du immer die Zelle B2 in "Wert2" anzeigen lassen willst, dann reicht es auch, wenn du in das farbige Feld schreibst: "=Matrix!B2"
Das gleiche würde für "Wert1" auch gehen, je nach dem... wenn du immer die angeklickten zellen aus "Matrix" nehmen willst, kann ich dir da nicht helfen. Vielleicht jemand anders?

AW: Werte aus angeklickter Zelle übertragen

22.02.2007 12:23:24

otto

Hi,
ActiveCell.Value = Sheets("Matrix").Cells(ActiveCell.Row, 1)
Den rest kannst du dir dann anpassen.
Gruß
otto

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den Wert einer angeklickten Zelle in eine andere Zelle auf einem anderen Blatt zu übertragen, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke im Projektfenster mit der rechten Maustaste auf das Arbeitsblatt, auf dem du die Funktion verwenden möchtest, und wähle "Code anzeigen".

Füge den folgenden VBA-Code ein:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim ZielBlatt As Worksheet
   Set ZielBlatt = ThisWorkbook.Sheets("Zielblatt") ' Ersetze "Zielblatt" durch den Namen deines Zielblattes
   ZielBlatt.Cells(1, 1).Value = ActiveCell.Value ' Überträgt den Wert in Zelle A1 des Zielblattes
End Sub

Schließe den VBA-Editor und kehre zurück zu deinem Arbeitsblatt.
Klicke auf eine Zelle, um den Wert zu übertragen.

Dieser Code überträgt den Wert der angeklickten Zelle in die Zelle A1 eines anderen Blattes. Du kannst die Zielzelle anpassen, indem du die Zeilen- und Spaltennummer änderst.

Häufige Fehler und Lösungen

Fehler: Der Wert wird nicht übertragen.
- Lösung: Überprüfe, ob der Blattname im Code korrekt ist. Achte darauf, dass kein Tippfehler vorliegt.
Fehler: Der VBA-Code wird nicht ausgeführt.
- Lösung: Stelle sicher, dass du den Code im richtigen Arbeitsblatt-Modul eingefügt hast und dass die Makros aktiviert sind.

Alternative Methoden

Wenn du keine VBA-Lösung verwenden möchtest, gibt es auch alternative Methoden:

Verwendung von Formeln: Du kannst die Funktion =Matrix!B2 verwenden, um den Wert einer speziellen Zelle aus einem anderen Blatt zu übernehmen. Diese Methode erfordert keinen VBA-Code und ist einfach anzuwenden.
Datenübertragung per Copy-Paste: Du könntest auch manuell den Wert kopieren und in die Zielzelle einfügen, was jedoch weniger automatisiert ist.

Praktische Beispiele

Beispiel mit VBA: Wenn du den Wert aus Zelle B2 in das Zielblatt übertragen möchtest, ändere den VBA-Code wie folgt:
```
ZielBlatt.Cells(1, 1).Value = Sheets("Matrix").Cells(2, 2).Value ' Überträgt den Wert von B2
```
Beispiel mit Formel: Wenn du immer den Wert aus Zelle B2 in eine Zelle auf einem anderen Blatt anzeigen lassen möchtest, schreibe einfach in die Zielzelle:
```
=Matrix!B2
```

Tipps für Profis

Verwende Application.EnableEvents: Wenn du häufige Ereignisse wie das Selektieren von Zellen verwendest, kannst du Application.EnableEvents = False verwenden, um unnötige Ausführungen des Codes zu verhindern.
Fehlerbehandlung hinzufügen: Um den Code robuster zu gestalten, füge Fehlerbehandlungsroutinen hinzu. Das hilft, unerwartete Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich den Wert in mehrere Zellen übertragen?
Ja, du kannst den Code anpassen, um den Wert in mehrere Zellen zu übertragen, indem du die Zielzellen im Code entsprechend änderst.

2. Funktioniert das auch in Excel 365?
Ja, der VBA-Code und die Formeln funktionieren in Excel 365 sowie in anderen Versionen, die VBA unterstützen. Achte darauf, dass die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Werte aus angeklickter Zelle übertragen

Forumthread: Werte aus angeklickter Zelle übertragen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Werte aus angeklickter Zelle übertragen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread