Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Sandra.Mueller vom 22.05.2020, 10:19 Options

Excel

Hallo,

ich habe eine Tabelle mit 2 Tabellenblättern. In der Spalte A sind in Tabelle 1 und Tabelle 2 die gleichen Daten hinterlegt. Ich möchte dass ich über ein Button in Tabelle 1, welcher sich in einer Spalte dahinter befindet, bei Klick in Tabelle 2 gleich in die richtige Zeile komme.

Kann leider nicht programmieren, weiß aber wie man ein Button erstellt und ein Makro bearbeitet.... Leider nicht mehr.

Sandra

Antwort schreiben

Antwort 1 von rainberg vom 22.05.2020, 11:11 Options

Hallo Sandra,

anbei ein Beispiel welches anstatt eines Button mit einem Doppelklick arbeitet.

http://upload.npcfighter.de/files/36/9986/Sandra.xls

Gruß
Rainer

Antwort 2 von Sandra.Mueller vom 22.05.2020, 11:20 Options

Vielen Dank,

das wäre durchaus auch eine Lösung, jedoch sind die Werte in anderer Reihenfolge und was das unpraktikabel macht, ist es befinden sich nicht alle Werte aus Tabelle1,Spalte1 in Tabelle2, Spalte2.

Hoffe auf Hilfe.

Sandra

Antwort 3 von rainberg vom 22.05.2020, 17:52 Options

Hallo Sandra,

sorry. hatte übersehen, dass Du bereits geantwortet hattest.

Du schriebst, dass sich in den beiden Tabellen die gleichen Werte befinden, deshalb nahm ich an, Du willst auch in die gleiche Zeile springen.

Probier' mal folgenden Code, er wird ebenfalls durch Doppelklick auf den relevanten Wert gestartet.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim varWert As Variant, lngZeile As Long
   If Not Intersect(Target, Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
      varWert = Target.Value
      lngZeile = WorksheetFunction.Match(varWert, Worksheets("Tabelle2").Range("A:A"), 0)
      Worksheets("Tabelle2").Select
      ActiveSheet.Range("B" & lngZeile).Select
   End If
End Sub

Gruß
Rainer

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken