Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellwert auf anderes Tabellenblatt übernehmen

Zellwert auf anderes Tabellenblatt übernehmen
10.03.2009 15:49:15
Jan
Hallo zusammen
ich habe in den Zellen A10:A10010 diverse Werte stehen. Jetzt möchte ich, dass wenn man auf so einen Wert draufklickt, in der Zelle A8 eines anderen Tabellenblattes genau dieser Wert erscheint... Ist das irgendwie machbar mit einem Makro oder so? Wenn ja, dann wäre ich um jede Hilfe dankbar, da ich mir VBA rein gar nichts anfangen kann..leider..:(
wünsche noch einen schönen Nachmittag!
Gruss Jan

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellwert auf anderes Tabellenblatt übernehmen
10.03.2009 15:57:12
Reinhard
Hallo Jan,
Rechtsklick unten auf den Blattnamen des Blattes mit A10:A10010, "Code anzeigen" anklicken, nachfolgenden Code reinkopieren, ggfs Blattnamen anpassen, Editor schließen.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Cells.Count  1 Then Exit Sub
If Intersect(Target, Range("A10:A10010")) Is Nothing Then Exit Sub
Worksheets("Tabelle2").Range("A8").Value = Target.Value
End Sub


Gruß
Reinhard

AW: Zellwert auf anderes Tabellenblatt übernehmen
10.03.2009 16:00:37
Jan
funktioniert ja schonmal einwandfrei..vielen Dank Reinhard:)
aber trotzdem noch die kleine Frage: Gibt es auch eine Möglichkeit, das Excel gleich ins andere Tabellenblatt rüberspringt?
Anzeige
AW: Zellwert auf anderes Tabellenblatt übernehmen
10.03.2009 16:00:50
Josef
Hallo Jan,
in das Modul der Tabelle mit den Daten diesen Code kopieren (Rechtsklick auf das Blattregister > Code anzeigen > in das rechte Fenster den Code einfügen), den Tabellennamen "andereTabelle" musst du an den Namen der Zieltabelle anpassen!
' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A10:A10010")) Is Nothing Then
    Cancel = True
    Sheets("andereTabelle").Range("A8") = Target
  End If
End Sub

Gruß Sepp

Anzeige
AW: Zellwert auf anderes Tabellenblatt übernehmen
10.03.2009 16:01:20
Jan
wäre somit noch offen, habe mich verklickt..:)
AW: Zellwert auf anderes Tabellenblatt übernehmen
10.03.2009 16:02:54
Josef
Hallo Jan,
Selection_Change ist meiner Meinung nach ungeeignet.
So kommst du per Doppelklick gleich in das andere Tabellenblatt.
' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A10:A10010")) Is Nothing Then
    Cancel = True
    Sheets("andereTabelle").Range("A8") = Target
    Application.Goto Sheets("andereTabelle").Range("A8")
  End If
End Sub

Gruß Sepp

Anzeige
AW: Zellwert auf anderes Tabellenblatt übernehmen
10.03.2009 16:07:20
Jan
Vielen Dank für deine Hilfe Sepp!
so sollte es doch funktionieren oder?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A10:A10010")) Is Nothing Then
Cancel = True
Sheets("Diagramm").Range("A8") = Target
Application.Goto Sheets("Diagramm").Range("A8")
End If
End Sub


kommt leider eine Fehlermeldung..

Ist "Diagramm" geschützt? o.T.
10.03.2009 16:08:23
Josef
Gruß Sepp

AW: Ist "Diagramm" geschützt? o.T.
10.03.2009 16:10:32
Jan
genau das war das Problem:) Vielen Dank euch beiden Cracks und noch einen schönen Tag!
Anzeige

338 Forumthreads zu ähnlichen Themen

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Cursor auf anderes Blatt springen lassen
KlausF

Schönen Freitag-Morgen Leute!
In einer Datei kontrolliere ich in Tabelle 20 errechnete Werte. Entsprechen diese nicht meinen Vorstellungen, so muß ich in Tabelle 1 in der korrespondierenden Zelle (d.h. die mit der gleichen Adresse wie die aktuelle Zelle in Tab.20) Korrekturwerte eingeben.
26.09.2008 08:02:06
Thread-ID: 1012475
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo ,
erstmal vielen Dank für Eue Hilfen.
Ich würde gerne bei folgendem Blatt von der jeweiligen unteren Zelle einen Übertrag auf die Obere Zelle machen. Wie es normal geht weiß ich.
Meine Frage ist nun kann ich den Wert übernehmen wenn ich das Blatt kopiere.
https://www.herb...
02.10.2008 14:42:14
Thread-ID: 1013889
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo,
ich habe diese Frage schon einmal gestellt aber leider komme ich mit der Antwort nicht zurecht.

Ich möchte gerne aus ein Zelle November M47 den Wert in Dezember D9 übernehmen.
Normal würde es funktionieren mit ='November 2008'!M47. Man könnte nun ganz einfach die Stunden...
06.10.2008 11:50:21
Thread-ID: 1014393
7 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo
ich habe da ein kleines Problem.
Ich benutze folgende Formel
=INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
die funktioniert auch so weit ganz gut.
Nun habe ich...
03.11.2008 16:50:00
Thread-ID: 1021376
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
2
1
2
2
6
1
6
2
6
19
2
4
1
4
1
1
4
4
3
8
5
3