Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.10.2025 13:48:12
Outlook-Fenster in Vordergrund bringen
01.10.2025 13:28:07
.csv-Datei importieren / Daten abrufen
01.10.2025 13:23:46
Gesamtdiagramm - tricky
30.09.2025 21:34:46
VBA - Sharepoint den Pfad der lokalen Synchronisation ermitt
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code anpassen

Forumthread: VBA Code anpassen

VBA Code anpassen
26.10.2020 06:34:29
Charly
Hallo zusammen
Kann mir bitte mal jemand den folgenden Code (nicht von mir) anpassen.
sh. Beispieldatei
https://www.herber.de/bbs/user/141086.xlsm
Code funktioniert auch - ABER nur wenn die Begriffe in B10:B16 durch eine Formel erzeugt werden.
Wie muss der Code lauten wenn die Begriffe als Text in B10:B16 stehen?
Vielen Dank vorab.
Gruss Charly
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code anpassen
26.10.2020 08:01:40
ralf_b 

With .Controls.Add(msoControlButton, , , , True)
Set varTemp = Range("M2:M" & Cells(Rows.Count, "M").End(xlUp).Row).Find(what:=Target. _
Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not varTemp Is Nothing Then
.Caption = "Population: " & varTemp.Offset(, 1).Text
End If
End With

Anzeige
Danke Ralf ...
26.10.2020 08:54:09
Charly
... macht genau was ich wollte.
Schoenen Tag noch.
Gruss aus Chiang Mai
Charly
AW: VBA Code anpassen
26.10.2020 08:11:34
Regina
Hi Charly,
teste mal so:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim varTemp As Variant
Dim rng_fund As Range
If Not Intersect(Target, Range("B10:B16")) Is Nothing Then
Cancel = True
On Error Resume Next
Application.CommandBars("CBar_X").Delete
On Error GoTo 0
With Application.CommandBars.Add("CBar_X", msoBarPopup, , True)
With .Controls.Add(msoControlButton, , , , True)
varTemp = Target.Value
Set rng_fund = Columns(13).Find(varTemp)
If Not rng_fund Is Nothing Then
.Caption = "Population: " & Format(Cells(rng_fund.Row, 14), "#,##0")
End If
End With
.ShowPopup
.Delete
End With
End If
End Sub
Gruß Regina
Anzeige
AW: VBA Code anpassen
26.10.2020 08:51:03
Charly
Hallo Regina
Vielen Dank
Perfekt
Gruss aus Chiang Mai
Charly
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige