Hallo Leute,
ich bin gerade dabei eine Tabelle für Handy-Rechnungen zu erstellen. Die Tabelle sieht wie Bild "Testdaten-Liste" aus.
Das Problem ist das die Telefonnummern in den Rechnungen der Größe nach geordnet kommen, jedoch in der Testdaten-Liste sind diese Telefonnummern nicht geordnert sondern nach Abteilungen und Mitarbeitern aufgeteilt.
Jetzt habe ich ein extra Tabellenblatt erstellt namens "Vorlage", indem die Telefonnummern ebenfalls geordnet sind, sodass man die Beträge einfach nur der Reihe nach runterschreiben muss.
Die Werte die ich nun in die Vorlage eingetragen habe müssen nun in den richtige Tabelle übertragen werden. Ein Makro welches mir ein Extra Tabellen Blatt erstellt und die Tabelle kopiert habe ihc schon gemacht mit folgendem code:
Sub a()
Dim ws As Worksheet
Dim wsname
wsname = InputBox("Geben sie den Namen für die Datei ein")
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = wsname
Worksheets("Tabelle").Cells.Copy
With Worksheets(wsname)
.Cells.PasteSpecial Paste:=xlPasteValues
.Cells.PasteSpecial Paste:=xlPasteFormats
End With
Application.CutCopyMode = False
End Sub
Jetzt weiss ich nicht wie ich die Telefonnummern von der "Vorlage" mit den Nummern der richtigen Tabelle vergleichen kann und wenn diese Nummern gleich sind dann in dem jeweiligen Feld den Wert übertragen kann.
Ich muss also ca. 70 Nummern vergleichen und immer wenn die Nummern gleich sind soll der Wert von den Vorlage in das Netto feld der Tabelle geschrieben werden.
ich hoffe ihr versteht was ich meine, da ich mir hier grad echt schwer tue das zu erklären
Vielen Dank für eure Hilfe !
ich bin gerade dabei eine Tabelle für Handy-Rechnungen zu erstellen. Die Tabelle sieht wie Bild "Testdaten-Liste" aus.
Das Problem ist das die Telefonnummern in den Rechnungen der Größe nach geordnet kommen, jedoch in der Testdaten-Liste sind diese Telefonnummern nicht geordnert sondern nach Abteilungen und Mitarbeitern aufgeteilt.
Jetzt habe ich ein extra Tabellenblatt erstellt namens "Vorlage", indem die Telefonnummern ebenfalls geordnet sind, sodass man die Beträge einfach nur der Reihe nach runterschreiben muss.
Die Werte die ich nun in die Vorlage eingetragen habe müssen nun in den richtige Tabelle übertragen werden. Ein Makro welches mir ein Extra Tabellen Blatt erstellt und die Tabelle kopiert habe ihc schon gemacht mit folgendem code:
Sub a()
Dim ws As Worksheet
Dim wsname
wsname = InputBox("Geben sie den Namen für die Datei ein")
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = wsname
Worksheets("Tabelle").Cells.Copy
With Worksheets(wsname)
.Cells.PasteSpecial Paste:=xlPasteValues
.Cells.PasteSpecial Paste:=xlPasteFormats
End With
Application.CutCopyMode = False
End Sub
Jetzt weiss ich nicht wie ich die Telefonnummern von der "Vorlage" mit den Nummern der richtigen Tabelle vergleichen kann und wenn diese Nummern gleich sind dann in dem jeweiligen Feld den Wert übertragen kann.
Ich muss also ca. 70 Nummern vergleichen und immer wenn die Nummern gleich sind soll der Wert von den Vorlage in das Netto feld der Tabelle geschrieben werden.
ich hoffe ihr versteht was ich meine, da ich mir hier grad echt schwer tue das zu erklären
Vielen Dank für eure Hilfe !