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:
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.
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.
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.
Gruß Jonas
Folgende(r) 1 Nutzer sagt Danke an Jonas0806 für diesen Beitrag:1 Nutzer sagt Danke an Jonas0806 für diesen Beitrag 28 • FRODO1977
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.
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
)