Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 22:28:14
Formel Suche nur genauen Wert ausgeben
10.05.2024 19:12:28
Suche Formel für Monatsberechnung
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus anderem Tabellenblatt in MsgBox

Werte aus anderem Tabellenblatt in MsgBox
20.11.2016 12:37:16
Patrick
Hallo!
Habe eine kleine Frage.
Und zwar. Wenn ich in einer Zelle (B1, D1, F1, H1, ...) doppelklicke, soll eine MsgBox mit Werte aus einem anderen Tabellenblatt kommen.
Mit dem Code funktioniert das eigentlich recht toll. 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address(0, 0)
Case "B1"
MsgBox Worksheets("Drucken").Range("A2") & vbCrLf & Worksheets("Drucken").Range("B2") &  _
_
" " & Worksheets("Drucken").Range("C2")
Case "D1"
MsgBox Worksheets("Drucken").Range("A4") & vbCrLf & Worksheets("Drucken").Range("B4") &  _
_
" " & Worksheets("Drucken").Range("C4")
End Select
Cancel = True
End Sub

Da ich aber insgesamt 35 Zellen habe, wird das schreiben recht langwierig. Gibt es da eine einfachere Variante?
Danke Patrick

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus anderem Tabellenblatt in MsgBox
20.11.2016 12:44:52
Hajo_Zi
Hallo Patrick,
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
If Target.Row Mod 2 = 0 Then
MsgBox Worksheets("Drucken").Cells(Target.Row, 1) & vbCrLf & Worksheets("Drucken"). _
Cells(Target.Row, 2) & _
" " & Worksheets("Drucken").Cells(Target.Row, 3)
Cancel = True
End If
End If
End Sub


Anzeige
AW: Werte aus anderem Tabellenblatt in MsgBox
20.11.2016 12:56:01
Nepumuk
Hallo,
dazu brauche ich keine Datei. Test mal:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1,D1,F1,H1,J1,L1,N1,P1")) Is Nothing Then 'anpassen !!!
        With Worksheets("Drucken")
            MsgBox .Cells(Target.Column, 1) & vbLf & _
                .Cells(Target.Column, 2) & " " & .Cells(Target.Column, 3)
        End With
        Cancel = True
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Werte aus anderem Tabellenblatt in MsgBox
20.11.2016 13:02:34
Patrick
Danke dir Nepumuk.
Perfekt....erspart mir eine Menge an Arbeit.
Wie kommt man in so kurzer Zeit auf sowas :D beeindruckend
Vielen Dank
Danke auch dir Hajo!
Mfg Patrick
AW: Werte aus anderem Tabellenblatt in MsgBox
20.11.2016 13:00:59
Hajo_Zi
Zeile und Spalte wechselt. 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then
If Target.Column Mod 2 = 0 Then
MsgBox Worksheets("Drucken").Cells(Target.Column, 1) & _
vbCrLf & Worksheets("Drucken").Cells(Target.Column, 2) & _
" " & Worksheets("Drucken").Cells(Target.Column, 3)
Cancel = True
End If
End If
End Sub
Gruß Hajo
Anzeige
AW: Werte aus anderem Tabellenblatt in MsgBox
20.11.2016 13:22:03
Patrick
Danke auch dir.
Das geht ja noch flotter!!
Bin begeistert.
MFG
AW: Werte aus anderem Tabellenblatt in MsgBox
20.11.2016 19:56:04
Patrick
Hallo,
muss da noch was fragen bzgl. der MsgBoxen.
Wie mache ich das so wenig umständlich wie möglich, dass wenn ich im Bereich B2:BP6 auf eine Zelle doppelklicke, dass sich dann eine MsgBox mit den Werten der neben gelegenen Zelle öffnet.
Die Werte der gleich daneben liegenen Zelle sieht man nicht.
lg Patrick

336 Forumthreads zu ähnlichen Themen

Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 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
Anzeige
Ü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
Summenprodukt auf anderes Blatt beziehen
Reinhard

Hallo Wissende, diese Formel in einer bedingten Formatierung in Tabelle1 fuktioniert: =SUMMENPRODUKT(($C$1:$C$100=$A3)*($D$1:$D$100=$B3))>0 Vegebe ich aber z.B. für Tabelle2!$A:$A den Namen TabA Tabelle2!$B:$B den Namen TabB so tut sich nichts bei der bedingten Formatierung in Tabelle1 bei...
27.11.2008 11:02:50
Thread-ID: 1028275
3 Beiträge
Gültigkeit Liste mit Bezug auf eine andere Datei
Rafi

Hallo Zusammen,
ich habe ein Problem mit einer Gültigkeitsprüfung auf eine Liste die in einer anderen Datei steht.
Bislang hat das immer funktioniert, wenn ich die Liste der Externen Datei unter Namen definiert und bei der Gültigkeit/Liste mit Quelle="Name" angegeben habe. Geht aber nic...
16.12.2008 11:28:00
Thread-ID: 1033235
4 Beiträge
Referenzieren auf Tabellenblatt???
Maris

Hallo,
komische Frage! Ich habe eine Datei A in die täglich Daten eingegeben werden, an jedem Tag wird ein neues Tabellenblatt erstellt der Name des Tabellenblatts ist immer das Datum des Tages im Format: tt.mm.yy.
In einer anderen Datei B möchte ich auf die Daten der Tabelle zugreifen...
29.01.2009 15:46:09
Thread-ID: 1045053
20 Beiträge
Zugriff auf Zellen in anderer Tabelle mit Indirekt
Florian

Hallo,
ich hab mal wieder ein Problem, bei dem ich nicht weiterkomme.
Ich möchte, dass man in die Tabelle die Adresse einer Zelle eingibt, und dann der Wert dieser Zelle übernommen wird.
Die Zelle, deren Wert übernommen werden soll, liegt aber in einer anderen Tabelle (gleiche Mappe...
06.03.2009 21:27:57
Thread-ID: 1057475
3 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
4
2
2
2
6
6
2
3
19
2
8
3
5
1
2
4
6
8
8
3
4
2
4
2
6