Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Auswahl dann automatisch Inhalt aus anderem Tabellenblatt
zurück: Zeile einfügen und Werte in Zellen schreiben weiter: Datumsformat ändern ohne Zellen zu aktivieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Eric1983
Gast


Verfasst am:
09. Okt 2012, 17:41
Rufname:

Auswahl dann automatisch Inhalt aus anderem Tabellenblatt - Auswahl dann automatisch Inhalt aus anderem Tabellenblatt

Nach oben
       Version: Office 2010

hallo zusammen,

ich komm leider nicht weiter und hoffe auf paar tolle Ratschläge:

Ich mache es leicht und nehme ein Beispiel aus dem Leben, da mein Betriebsproblem sehr komplex ist Wink


Mein Bsp.:

Auf einem Tabellenblatt A wähle ich aus 50 Möglichkeiten in einem Auswahlfeld z.B. die Auswahl: Deutsche Bundesliga, dann wird aus Tabellenblatt B (Input) der jeweilige Spalteninhalt für die Liga gepickt und im Tabellenblatt A neben dem Auswahlfeld angezeigt (z.B. in die Spalte B geladen). Also eine Art Verknüpfung von Spalte A - BC. 50 Makros aufzeichnen mit der Verknüpfungssystematik ist nicht gerade einfach und übersichtlich.

Wie löse ich es am einfachsten, dass er die Spalte mit den richtigen Inhalt( wie Verknüpfung) automatisch füllt?

Vielen Dank
DanDan
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Okt 2012, 09:50
Rufname:


AW: Auswahl dann automatisch Inhalt aus anderem Tabellenblat - AW: Auswahl dann automatisch Inhalt aus anderem Tabellenblat

Nach oben
       Version: Office 2010

Moin,

ich würds mal mit dem Change event deines Auswahlfeldes versuchen:

Code:

Sub deinecombobox_change()
Dim i As Integer
Dim last_column As Integer
Dim last_row As Integer
Dim spalte As Integer
spalte = 0
last_column = ThisWorkbook.Worksheets("B").Cells(1, 256).End(xlToLeft).Column 'letzte spalte ermitteln
For i = 1 To last_column
    If ThisWorkbook.Worksheets("B").Cells(1, i).Value = deinecombobox.Value Then
        spalte = i 'spalte in B finden in der die Daten stehen
    End If
Next i
If spalte = 0 Then
    Exit Sub
End If
last_row = ThisWorkbook.Worksheets("B").Cells(65536, spalte).End(xlUp).row ' alle daten erfassen
For i = 2 To last_row
    ThisWorkbook.Worksheets("A").Cells(i, 2).Value = ThisWorkbook.Worksheets("B").Cells(i, spalte).Value 'Daten kopieren
Next i

End Sub


habs jetzt nicht getestet, aber sollte so in der art funktionieren.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Datum automatisch einfügen lassen ? 5 Olaf 3925 26. Aug 2005, 09:25
KingPing Datum automatisch einfügen lassen ?
Keine neuen Beiträge Excel Formeln: Runden über Tabellenblatt kopieren 2 CK_one_Gast 1489 27. Jul 2005, 10:01
CK_one_Gast Runden über Tabellenblatt kopieren
Keine neuen Beiträge Excel Formeln: Automatisch immer die Werte aus letzter Spalte übernehmen??? 31 Provaeth 4031 19. Jul 2005, 13:29
ae Automatisch immer die Werte aus letzter Spalte übernehmen???
Keine neuen Beiträge Excel Formeln: SVERWEIS auf ein anderes Tabellenblatt? 4 Wandelröschen 1091 06. Jun 2005, 11:12
c0bRa SVERWEIS auf ein anderes Tabellenblatt?
Keine neuen Beiträge Excel Formeln: Zellen Automatisch Farbig hinterlegen 1 DirkR 1493 31. Mai 2005, 14:59
monika2402 Zellen Automatisch Farbig hinterlegen
Keine neuen Beiträge Excel Formeln: Daten aus anderem Tabellenblatt übernehmen 5 Grubi 2120 05. Mai 2005, 21:52
Grubi Daten aus anderem Tabellenblatt übernehmen
Keine neuen Beiträge Excel Formeln: Zeile automatisch einfügen (ab Excel 97) 1 frechmops6 1799 16. Apr 2005, 22:22
Kuwe Zeile automatisch einfügen (ab Excel 97)
Keine neuen Beiträge Excel Formeln: Zählen wenn nicht leer über ganzes Tabellenblatt 5 musli99 1309 05. Apr 2005, 11:30
Thomas Ramel Zählen wenn nicht leer über ganzes Tabellenblatt
Keine neuen Beiträge Excel Formeln: inhalt einer zelle anhand von verweisen auslesen 5 vortax 1501 02. Apr 2005, 23:04
Gast inhalt einer zelle anhand von verweisen auslesen
Keine neuen Beiträge Excel Formeln: FRAGE:daten in ein andres Tabellenblatt übernehmen?register? 1 maniwahn 1630 18. März 2005, 19:21
Hübi FRAGE:daten in ein andres Tabellenblatt übernehmen?register?
Keine neuen Beiträge Excel Formeln: Werte aus 2. Datei/Tabellenblatt übertragen //Zusatzfrage 6 original-m 1708 25. Feb 2005, 11:25
Sigrid Werte aus 2. Datei/Tabellenblatt übertragen //Zusatzfrage
Keine neuen Beiträge Excel Formeln: Zelle im 14 Tage Rhythmus automatisch generieren lassen 2 MrMr 2413 21. Feb 2005, 07:55
AnBo Zelle im 14 Tage Rhythmus automatisch generieren lassen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript