Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe folgendes Problem und hoffe auf eure Hilfe. in Tabellenblatt 1 habe ich in den Spalten A B Kundennr. Kundenname 123 NameC 124 NameD 127 NameG 128 NameH In Tabellenblatt 2 habe ich in den Spalten A B Kundennr. Kundenname 121 NameA 123 NameC 125 NameE 127 NameG 128 NameH Diese Daten sollen in Tabelle 3 untereinander erscheinen. Vielleicht könnt ihr mir mit einer Formel weiterhelfen. Danke und Gruß Manzur

Ich weiss keine Lösung (ausser reinkopieren), aber meine Frage dürfte für jede Lösung Bedeutung sein:
Was heisst "untereinander":
a) Die beiden Blöcke untereinander?
b) Die Kundennummern in ihrer numerischen Reihenfolge untereinander?

... von Bedeutung ...

Die Daten sollen der Kundennr. nach, untereinander erscheinen mit dem dazugehörigen Namen.


Gruß

Wie gesagt - was auf jeden Fall geht:
Erst den Block aus dem einen Blatt in ein neues kopieren,
Dann den Block aus dem 2. darunter,
Dann das ganze sortieren (Daten, sortieren - der Anweisung folgen).
Das ist so natürlich nur sinnvoll, wenn man es eine einmalige oder seltene Aktion ist.

Hallo nostalgiker6,

vielen dank für deine Mühe,
allerdings sind hinter den Kuntennamen weitere Daten mit denen ich über verweise arbeite. Ich wollte diese nicht manuell kopieren.

Wichtig ist halt, dass die Kundennr. und der Kundenname die in in beiden Tabellen vorkommen in der 3. Tabelle automatisch erscheinen.

Gruß


Manzur

Wenn es sich um einen überschaubaren Nummernkreis handelt (z.B. 100 - 999, auch mehr, aber eben noch überschaubar), dann könnte man ALLE Nummern (durch Ziehen recht einfach) in die dritte Tab schreiben und den Namen mit einem verschachtelten SVERWEIS aus der einen, wenn dort nicht vorhanden, ais der anderen Tabelle holen.
Schliesslich könnte man die Nummern, zu denen kein Name gefunden wird, ausfiltern.
(Aber die VBA-Freaks finden sicher eine elegantere Lösung.)

bin am verzweifeln...
hat vielleivht jemand einen lösungsansatz??


gruß

manzur

Ist der Nummernkreis denn NICHT überschaubar?

Hallo,

versuch es mal mit dem Makro

Sub Makro1()

    Sheets("Tabelle1").Select
    LetzteZeile = Range("A65536").End(xlUp).Row
    Range("A1:B" & LetzteZeile).Select
    Selection.Copy
    Sheets("Tabelle3").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Tabelle2").Select
    LetzteZeile = Range("A65536").End(xlUp).Row
    Range("A2:B" & LetzteZeile).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle3").Select
    LetzteZeile = Range("A65536").End(xlUp).Row + 1
    Range("A" & LetzteZeile).Select
    ActiveSheet.Paste
    LetzteZeile = Range("A65536").End(xlUp).Row
    Range("A1:B" & LetzteZeile).Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    KNr = Range("A2").Value
    Range("A3").Select
  ' **** der Teil ist zu löschen wenn doppelte erwünscht
    While IsEmpty(ActiveCell) = False
         If ActiveCell.Value = KNr Then
            Rows(ActiveCell.Row()).Select
            Selection.Delete Shift:=xlUp
         Else
            KNr = ActiveCell.Value
            ActiveCell.Offset(1, 0).Select
         End If
  
     Wend
   ' **** bis hier
    End Sub

Achtung die beiden ' beim Komentar können Probleme bereiten, einfach neu setzen.

Gruß

Helmut

Hallo Saarbauer,

dein Makro funktioniert einwandfrei.
DANKE!!

ist sowas auch mit Formeln machbar??


Gruß

Manzur

Hallo,

aus meiner Sicht nicht.

Du kannst aber zur Vereinfachung mit "Strg" + ???

??? einem Buchstaben bei "Makro" und "Optionen" dir einen Schnellstart kreieren

Gruß

Helmut

• Ausgewählte Daten in einer neuen Tabelle zusammenfassen
• mehrere Tabellen zu einer zusammenfügen
• Wie holt man sich Daten aus einer anderen Tabelle, wenn der Wert aus Spalte A beider tabellen übereinstimmt?
• Daten aus Tabellen in neue Tabelle
• Eine Grundtabelle soll mehrere Tabellen auswerten und neue Tabellen autom. erkennen und zuordnen