Supportnet / Forum / Tabellenkalkulation

Wunder schönen guten tag ich hab mal ne frage Excel betreffend. nehmen wir mal an ich hab in der tabelle 1 habe ich verschiedene stadtnamen und halt daten dahinter. nun würd ich gerne mehrere Tabellen Blätter eine pro Stadt haben und das Blatt sollte dann das erste tabellen blatt durchsuchen und dann die eine gewisse stadt dann immer in sich rein kopieren. ich hoffe das ihr mir helfen könnt danke schön Marco

Hi Maco,

helfen kann man Dir sicherlich. Da aber bis jetzt noch niemand auf Deinen Beitrag geantwortet hat, liegt das sicherlich daran, dass niemand versteht, so geht es jedenfalls mir, was Du eigentlich möchhtest.

Wer legt das Blatt für die Stadtnamen an? Du oder soll das automatisch passieren?

Was verstehst Du unter "gewisse Stadt" und "in sich rein kopieren"? Wer legt den die gewisse Stadt fest und wohin soll der Stadtname kopiert weden?

Also wie Du siehst, ews entstehen durch Deinen mageren Beitrag ein menge Fragen und das, so nehme ich an, nicht nur bei mir. Schreib doch bitte mal genauer, unter Angabe von einigen Details zu Deiner Datei (z.B. wo stehen die Stadtnamen usw.), was Du möchtest. Dann kommen hier mit Sichrheit eine Hand voll Vorschläge und auch einer von mir. Aber so wirst Du auf eine Lösung sicher noch warten müssen.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Davon Ausgend das es eine Datai ist

Tabelle 1:
Vesrschiedene Städte Namen( Berlin; Nochum , Bonn usw.)
Dahinter verschiedene Daten also die Zeile voll geschrieben

Tabelle 2: Ist nach der einer Stadt bennannt zB Berlin

Tabelle 3: Ist nach der einer Stadt bennannt zBBonn

Tabelle 4: USW


nun soll die tabelle 2 in die Tabelle 1 gucken und wenn berlin dabei ist sich diese Zeile Quasi rein kopieren hoffe das, dass möglich ist weil bis jetzt muste ich das immer manuell tun und Tabelle 1 nimmt zu zeit sehr an volumen zu



Danke schön

Marco

Moin Marco,

schön wäre noch gewesen, wenn Du auch geschrieben hättest, in welcher Spalte die Stadtnamen stehen. Ich bin in meinem VBA Code mal davon ausgegangen, dass die in Spalte A stehen. Kopiere nachfolgenden Code in das VBA Projekt der Tabelle, in dem die ganzen Stadtnamen stehen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Letzte_Zeile_Tab1 As Long, Letzte_Zeile_Tab2 As Long, _
Wiederholungen_Blätter As Long, Wiederholungen_Stadtnamen As Long, _
Stadtname As String
Application.ScreenUpdating = False
Letzte_Zeile_Tab1 = Range("A65536").End(xlUp).Row
Anzahl_Blätter = ThisWorkbook.Worksheets.Count
For Wiederholungen_Blätter = 2 To Anzahl_Blätter
Sheets(Wiederholungen_Blätter).Cells.ClearContents
For Wiederholungen_Stadtnamen = 2 To Letzte_Zeile_Tab1
Stadtname = Cells(Wiederholungen_Stadtnamen, 1)
If Sheets(Wiederholungen_Blätter).Name = Stadtname Then
Letzte_Zeile_Tab2 = Sheets(Stadtname).Range("A65536").End(xlUp).Offset(1, 0).Row
Rows(Wiederholungen_Stadtnamen).Copy Sheets(Stadtname).Cells(Letzte_Zeile_Tab2, 1)
End If
Next
Next
End Sub

Bei dem Code wird durch zwei For/Next Schleifen die Stadtnamen auf Übereinstimmungen geprüft. Wenn es zu dem Stadtnamen ein Tabellenblatt gibt, wird die gesamte Zeile in die nächste freie Zeile der Blattes mit dem Stadtnamen kopiert. Das ganze wird immer dann ausgeführt, wenn in dem Tabellenblatt eine Änderung eintritt.

Ich hoffe, das hilft Dir schon mal weiter. Bei Fragen, Problemen oder Änderungswünschen zu denm VBA Code, melde Dich.

Wenn Du nicht wweißt, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann Anleitung zum VBA Projekt “Tabelle" nach. Dort befindet sich eine bebilderte Anleitung dazu.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• Excel Makro
• Aus Word-Dateien einen Index erstellen