Hallo,
habe nun ein neues Problem in meiner Excel Tabelle und benötige erneut eure Hilfe!
Es gibt mehrere Kunden mit Kundennummer. Unter jedem Kunde sind mehrere Objekte (hier Straßen) erfasst.
Nun soll, wie auch immer
die Anzahl der Straßen erscheinen, wenn man mit der Maus auf die Kundennummer geht - natürlich immer nur die Anzahl der Straßen zur passenden Kundennummer.
Hoffe ihr könnt mir wie beim letzten mal Helfen und ich bedanke mich schon mal bei allen, die es tun :19:
Hallo,
meinst Du das so?
[
attachment=11487]
Einfach eine Kundennummer selektieren. Ist natürlich nur ein Ansatz!
Hallo Jonas,
erst mal recht herzlichen Dank für Deine Hilfe. Leider kann ich die Datei nicht öffnen...lach...
Hallo,
warum nicht? Keine Berechtigung, kein Excel, Unvermögen,.....?
Mit dieser Aussage kann ich nichts anfangen. Ich kann sie normal herunterladen und öffnen, auch von einem anderen Rechner aus
(24.05.2017, 07:52)Jonas0806 schrieb: [ -> ]Hallo,
warum nicht? Keine Berechtigung, kein Excel, Unvermögen,.....?
Mit dieser Aussage kann ich nichts anfangen. Ich kann sie normal herunterladen und öffnen, auch von einem anderen Rechner aus
Hallo, sehr wahrscheinlich falsche Version... Der TE hatte eine *.xls geschickt... (!)
Hallo,
(24.05.2017, 08:08)Jockel schrieb: [ -> ][...]sehr wahrscheinlich falsche Version[...]
Das ist natürlich anhand der zur Verfügung gestellten .xls wahrscheinlich. Allerdings hat der TE in seinem Profil die Versionen bis xl2010 gepflegt...Daher meine Antwort als .xlsm.
Hier jedenfalls nochmal als .xls-Datei.
[
attachment=11507]
Hallo Jonas0806 / Hallo Jockel,
nochmals Danke für die Hilfe und das erneute zusenden.
Nun hat es auch geklappt mit dem öffnen - musste nur noch die Makros aktivieren.
Genau das ist es
was ich gesucht habe - nun musst du mir nur noch sagen/ beschreiben/ erklären, wie das funktioniert
)
Zum Thema "kann die Datei nicht öffnen"
Sorry für die dürfttige Rückmeldung ohne genauen Grund warum ich sie nicht öffnen konnte. Es war eine Kombination aus: ich hatte nicht das richtige Programm um eine xlsm Datei zu öffnen und Unvermögen.
Würde mich freuen wenn du einem Excel Neuling zumindest in Sachen "Erstellen von Makros" noch erklärst wie das geht.
Bis dahin DANKE und einen schönen Feiertag.
Hallo,
der Code ist eigentlich relativ simpel. Ich habe ihn dir mal mit Kommentaren zu den einzelnen Schritten versehen.
Code:
'Das steht nur dafür, dass Du Variablen deklarieren musst. Absolute Empfehlung meinersteits
Option Explicit
'Ein Event des Worksheets, welches ausgelöst wird, wenn Du eine Zelle anwählst (Selektion änderst)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Diese Abfrage ergibt nur True, wenn Du in den Bereich B:B klickst
If Not Intersect(Target, Range("B:B")) Is Nothing Then
'Ergibt nur True, wenn Du nicht auf KundenNr. und nicht auf eine leere Zelle geklickt hast
If Target.Value <> "KundenNr." And Target.Value <> "" Then
'Hier ist die eigentliche "Logik" Target representiert die Zelle, die Du angeklickt hast;
'.End(xlDown) hat den seleben Effekt wie Strg+Pfeil nach unten;
'.Row gibt die Zeilennummer wieder;
'Wir rechnen also die (Zeile von Strg+Pfeil nach unten) - (Zeile von der angeklickten Zelle)
'.Value gibt den Inhalt der angeklickten Zelle zurück
'Das geben wir direkt in einer Messagebox mit etwas Zusatztext aus
MsgBox "Es sind " & Target.End(xlDown).Row - Target.Row & " Objekte zur Kundennummer " & Target.Value & " vorhanden.", vbInformation + vbOKOnly
End If
End If
End Sub
Im internet gibt es zahlreiche, sehr gute, Tutorials zum Thema VBA. Einfach mal die Suchmaschine deines Vertrauens füttern ;)
Und beachte bitte, dass ich sagte, dass der Code nur ein Ansatz ist. Hier ist noch keinerlei Fehlerbehandlung und schon garkeine Optimierung inbegriffen.
Danke Dir
)
werde mich morgen mal damit beschäftigen und hoffen, dass ich es in die Original Datei eingefügt bekomme!
Wenn nicht, werde ich mich nochmal melden - bis dahin hast du mir echt sehr geholfen
:97: