Office: (Office 2013) Daten in andere Datei übergeben

Hallo,
kann mir jemand helfen, wie ich per Makro Daten in eine andere Datei bekomme.

Also ich habe zwei Dateien. Die erste Datei ist ein Zulieferverzeichnis, in der ich alle Unternehmen inkl. Ansprechpartner usw. aufliste. Die zweite Datei soll als Datenbank dienen, auf die ich zurückgreife. Sollte ich einen neuen Lieferanten haben, möchte ich mittels Userform, die neuen Daten in die Datenbank übertragen lassen und wenn möglich gleich sortieren lassen. In Puncto Programmierung bin ich leider ein Greenhorn und wäre froh, wenn jemand einen Code für mich hätte.

Ich habe zwar ein Code, jedoch nur für die Übertragung in ein anderes Tabellenblatt. Anbei der Code.
*******************************************************
Option Explicit
Private Sub CommandButton1_Click()

If Trim(TextBox1.Value) = "" Then
MsgBox "Es fehlt der Name.", _
48, " Hinweis für " & Application.UserName
TextBox1.SetFocus
Exit Sub
End If

If Trim(TextBox2.Value) = "" Then
MsgBox "Es fehlt die Telefonnummer.", _
48, " Hinweis für " & Application.UserName
TextBox2.SetFocus
Exit Sub
End If

If Trim(TextBox4.Value) = "" Then
MsgBox "Es fehlt die Email-Adresse.", _
48, " Hinweis für " & Application.UserName
TextBox2.SetFocus
Exit Sub
End If

lZeile = lZeile + 1


With ThisWorkbook.Worksheets("Tabelle2") ' den Tabellenblattnamen ggf. anpassen!
.Range("A" & lZeile + 1).Value = Trim(TextBox1.Value)
.Range("b" & lZeile + 1).Value = Trim(TextBox2.Value)
.Range("c" & lZeile + 1).Value = Trim(TextBox3.Value)
.Range("d" & lZeile + 1).Value = Trim(TextBox4.Value)

:)

 

Hallo ???,

Aus deiner Aufgabenbeschreibung kann ich nicht herauslesen, was konkret gemacht werden soll.

Es wäre auch denkbar, die Daten direkt in das Tabellenblatt einzugeben.

Dann lade die doch mal, am besten mit ein paar aussagefähigen Beispieldaten, hoch.
Und beschreibe mal anhand dieser Dateien, was die konkrete Aufgabenstellung ist. Das hilft den Helfern hier mehr als dein Code-Beispiel.

Gruß
Aloys

 

Hallo,
habe mal ein Screenshot von meinem Problem gemacht. Hoffe es ist jetzt verständlicher. Vielleicht mache ich das alles viel zu kompliziert, wer weiß... Für Hilfe bin ich dankbar.

 

Hi,

nur interessenhalber...., schickst Du auch ein Foto von deinem Auto an eine Werkstatt, wenn dein Auto eine Überholung benötigt?

 

Naja, wenn es was bringt!*tongue.gif*