Werte ohne uberschreiben übertragen

Hallo zusammen,

ich habe folgendes Problem:

Ich habe ine einer Excel Mappe zwei Tabellen,
die eine heißt Arbeiter die andere Datenbank.
In der ersten Mappe(Arbeiter)habe ich eine Tabelle erstellt(Name,Vorname,PLZ usw.)
In B5-B15 stehen feste unveränderbare Begriffe.
In C5-C15 stehen jetzt Name,Vorname usw. der Person.
Jetzt will ich wenn ich auf einen Button mit dem Namen speichern drücke, das die Werte von C5-C15 in die Mappe mit dem Namen Datenbank kopiert werden.(und anschließend gelöscht werden)

Die Daten sollen in der Mappe(Datenbank)von B5-L5 kopiert werden(B5=Name;C5=Vorname;usw.)

Wenn ich jetzt in die Tabelle (in der MAppe Arbeiter) Daten einer anderen Person stehen hab und dann auf den Button speichern drücke sollen diese Daten in der anderen Tabelle in Zeile 6 (B6-L6)stehen.

Vielen Dank schonmal im Vorraus ich hoffe die Problematik gut genug umschreiben zu haben.
Mfg Wilco(S.O.G.)

Hallo Wilco,

Ich habe ine einer Excel Mappe zwei Tabellen,

du meinst hier Tabellenblätter oder ist beides in einem Tabellenblatt?

In der ersten Mappe(Arbeiter)habe ich eine Tabelle
erstellt(Name,Vorname,PLZ usw.)
In B5-B15 stehen feste unveränderbare Begriffe.
In C5-C15 stehen jetzt Name,Vorname usw. der Person.

| B | C

5 | uvä Beg. | Meier, Sven, 35000
6 | uvä Beg. | Meier, Rudi, 35111
15| uvä Beg. | Schwarzenegger, Arnold, 23333

sieht die Arbeitertabelle ungefähr so aus, wenn Name, Vorname, Plz in einer Spalte stehen, wie sind die Felder voneinander getrennt, mit Komma, so wie in meinem Beispiel oder nur mit Leerzeichen ?

Gruß Chris

Guten Tag,

erstmal danke für die schnelle antwort.
Ja ich meine Tabellenblätter.

Also im ersten Tabellen Blatt mit dem Namen Arbeiter habe ich eine tabelle erstellt welche wie folgt aussieht.
B5=Name: C5=Mustermann
B6=Vorname: C6=Karl
B15=E-mail: C15=[email protected]

Im zweitem Tabellen Blatt mit dem Namen Datenbank habe ich folgende Tabelle:

B3=Name B4=Mustermann
C3=Vorname C4=Karl
L3=E-mail L4=…

Wenn ich jetzt im ersten TAbellen blatt auf dem vba Button speichern drücke soll er die werte in der tabelle (Arbeiter)in die Tabelle DAtenbank auf dem anderen Tabellenblatt kopieren und die Werte anschließend löschen(die werte die übertragen wurden.

Ich hoffe ich hab alle Fragen geklärt.
Also das ganze projekt ist in einer Arbeitsmappe mit zwei verschiedenen Tabellenblättern(Arbeiter und Datenbank)

Jetzt will ich wenn ich auf einen Button mit dem Namen
speichern drücke, das die Werte von C5-C15 in die Mappe mit
dem Namen Datenbank kopiert werden.(und anschließend gelöscht
werden)

Die Daten sollen in der Mappe(Datenbank)von B5-L5 kopiert
werden(B5=Name;C5=Vorname;usw.)

Hallo Wilco(S.O.G.),

Sub uebertrag()
Dim Zei As Long
Zei = Worksheets("Datenbank").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Worksheets("Arbeiter").Range("C5:C15").Copy
Worksheets("Datenbank").Cells(Zei, 2).PasteSpecial Paste:=xlAll, Transpose:=True
Worksheets("Arbeiter").Range("C5:C15").ClearContents
Application.CutCopyMode = False
End Sub

Gruß
Reinhard

Vielen Dank ich werds gleich testen und dir kurz bescheid geben!!!

Danke

Folgendes müsste auch funktionieren, bestimmt geht es auch eleganter, wie das von Reinhard :wink:

Gruß Chris

Sub benutzerKopieren()

Dim quellbereich As Range
Dim zielbereich As Range
Dim i As Long


Set quellbereich = Worksheets("Arbeiter").Range("C5:C15") 'Arbeiter
Set zielbereich = Worksheets("Datenbank").Range("B2:L2") 'Datenbank

i = 1

Do Until zielbereich.Cells(i, 1).Value = ""
 i = i + 1
Loop

For a = 1 To 11
 zielbereich.Cells(i, a).Value = quellbereich.Cells(a, 1).Value
Next a

quellbereich.ClearContents

End Sub