| |
Visual-Basic EinsteigerSuchen von Zellwerten | | | Autor: armina | Datum: 05.12.16 18:46 |
| Hallo,
habe Problem wo ich nicht weiterkomme, ich bitte um Hilfe.
Bei Doppelklick auf eine Zelle im Sheet "Tourenkalender" im Bereich von C5:Y37 (hier ist ein Kalender mit Cellwert des Datums)
soll der angeklickte Zellwert (Datum) in 2 weiteren Sheets ("Wandertouren" und "Radtouren" ) gesucht werden.
Bei "Wandertouren" steht das Datum in A39:A1000, und bei "Radtouren" in D131000.
Die gefundene Zelle (Datum) soll aktiviert werden.
Vielen Dank im Voraus!
Gruß armin | |
Re: Suchen von Zellwerten | | | Autor: effeff | Datum: 07.12.16 10:35 |
| Das folgende Beispiel geht davon aus, dass Deine gesuchten Daten in Tabellenblatt "Tabelle1" enthalten sind und auf den beiden Tabellenblättern "Tabelle2" und "Tabelle3" gefunden werden sollen!
Als Makro im Tabellenobjekt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MsgBox (ActiveCell.Value)
Dim ToFind As String
Dim Row As Integer
Dim Col As Integer
ToFind = ActiveCell.Value
Dim foundCell As Object
Set foundCell = Sheets("Tabelle2").Range("A1:Z2000").Find(What:=ToFind)
If Not foundCell Is Nothing Then
Row = foundCell.Row
Col = foundCell.Column
Sheets("Tabelle2").Activate
Sheets("Tabelle2").Cells(Row, Col).Select
Else
Exit Sub
End If
Set foundCell = Sheets("Tabelle3").Range("A1:Z2000").Find(What:=ToFind)
If Not foundCell Is Nothing Then
Row = foundCell.Row
Col = foundCell.Column
Sheets("Tabelle3").Activate
Sheets("Tabelle3").Cells(Row, Col).Select
Else
Exit Sub
End If
End Sub EALA FREYA FRESENA | |
Re: Suchen von Zellwerten | | | Autor: armina | Datum: 07.12.16 15:39 |
| Hallo,
vielen Dank für die Bearbeitung meiner Aufgabe.
Der Code klappt erst mal ganz gut.ich habe allerdings folgendes geändert: Dim ToFind As Date
Dim Row As Date
Dim Col As Date
und den Suchbereich eingeengt
auf die Datumsspalten.
Allerdings habe ich noch ein Problem.
Es wird nur immer der erste Teil des Codes abgearbeitet.
Also bezieht sich der Code zuerst auf das Sheet2, sucht und findet er das Datum in Sheet2.
Lasse ich im Sheet3 ein Datum suchen klappt das nicht.
Ändere ich den Code mit Bezug auf Sheet3 am Code Anfang,sucht und findet er das Datum in Sheet3.
Also, die Prozedur wird immer nur im ersten Teil abgearbeitet, als wäre der zweite Teil der Abfrage
nicht vorhanden.
Es wäre schön, wenn dies noch abgeändert werden könnte.
Vielen Dank und Grüße von armin
Nachtrag
Es wäre gut wenn der Bereich der aktiven Zelle im Sheet1 einggrenzt werden könnte, auf A3:Y38.
Beitrag wurde zuletzt am 07.12.16 um 15:58:31 editiert. | |
Re: Suchen von Zellwerten | | | Autor: Blackbox | Datum: 08.12.16 18:30 |
| Hallo,
ich finde du solltest dich mit dem Name-Objekt (Mnomics-Object) von Excel anfreunden. Ist in Excel gut dokumentiert. Du sparst sicher ein paar Zeilen VBA-Code | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevPopUp 2.0
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|