Office: VBA Listboxauswahl - bestimmte Werte Eintrag in ausgewählten Blättern

Guten Tag,

ich habe eine Datei mit ca 180 Blättern (ein Blatt pro Kunde) die auch durch andere Makros erweitert werden wenn neue Kunden angelegt werden.
Das erstellen der Listbox im VBA Editor mit den Kunden funktioniert auch. Auch die Mehrfachauswahl mit setzen der Häkchen.
Nun aber zu meinem Problem:
Ich möchte bei den Ausgewählten Kunden auf die entsprechenden Blätter springen und dort dann in einer Zeile (Lastrow) einen Eintrag vornehmen.
Ich weiß das dieses irgendwie in einer schleife Laufen muss, habe aber keinen richtigen Gedanken dazu.
Die Listbox hat den Namen: Namen.

kann mir jemand etwas auf die Sprünge helfen?

Freundliche Grüße und vorab schon mal danke
H.-J. Hefer

 

Hallo,

beispielhaft könnte dann folgender VBA-Code verwendet werden:

Code:

Sub Auswahl_KundenblattSuche()
 
  Dim WsKunde As Worksheet
  Dim Ausgewählter_Kunde As String
  Dim letzteZeile As Long
 
  'Das Ergebnis der Listbox-Auswahl sei in der String-Variablen "Ausgewählter_Kunde" enthalten:
  'Das Arbeitsblatt des ausgewählten Kunden sollte dann genauso heißen.
 
  'Mit folgender Anweisung wird dann das Arbeitsblatt "WsKunde" ermittelt:
  Set WsKunde = Worksheets(Ausgewählter_Kunde)
 
  With WsKunde
     'Im Arbeitsblatt des Kunden kann zB. in Spalte A die letzte Zeile gesucht werden, die Daten enthält.
     'Mit folgender Anweisung kann in der Variablen "LetzteZeile" diese Zeilennummer ermittelt werden:
     letzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
   
     'Wenn zB. in Spalte B dieser letzten Datenzeile der Wert auf "Letzte Zeile SpalteB" gesetzt werden soll:
     .Cells(letzteZeile, 2).Value = "Letzte Zeile SpalteB"
 
     'usw. ... etc...
  End With
 
End Sub

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Eine abgespeckte Version hochladen.

 

Hallo Hajo_Zi hallo allerseits

Anbei nun einmal die bisherige abgespeckte Version meiner Datei.
Es geht um das Modul Mehrfachauswahl.

Freundliche Grüße
H.-J. Hefer