Makro zum Kopieren und üerbtragen von Daten in ein zweites Tabellenblatt

[snoopy4000_0]

Ich bitte um Hilfe :)

[Elex]

Hi

ich mach es mal mit Datei.

  test.xlsm (Größe: 20,97 KB / Downloads: 3)


Gruß Elex

[snoopy4000_0]

Tabelle1
Hi,

vielen Dank für die Unterstützung kleine Ergänzung würde ich gerne an dem VBA Code vornehmen wollen. Wie gelingt es mir, dass er die Daten aus Tabelle 1 nicht mit dem Format übertragt sondern die Daten als Format Standard übertragen werden. Sprich Formatierung der Daten aus Tabelle 1 sollen ohne Format in das Tabellenblatt 2 übertragen werden. Vielen Dank im Voraus.

Sub Schaltfläche1_Klicken()
Dim LeZe As Long
LeZe = Sheets("Tabelle1").Cells(Rows.Count, 6).End(xlUp).Row
Sheets("Tabelle1").Range("A2:A" & LeZe).SpecialCells(12).Copy Sheets("Tabelle2").Range("A3")
Sheets("Tabelle1").Range("F2:F" & LeZe).SpecialCells(12).Copy Sheets("Tabelle2").Range("B3")
Sheets("Tabelle1").Range("I2:I" & LeZe).SpecialCells(12).Copy Sheets("Tabelle2").Range("C3")
Sheets("Tabelle1").Range("L2:L" & LeZe).SpecialCells(12).Copy Sheets("Tabelle2").Range("D3")
Sheets("Tabelle1").Range("M2:M" & LeZe).SpecialCells(12).Copy Sheets("Tabelle2").Range("E3")
Sheets("Tabelle1").Range("P2:P" & LeZe).SpecialCells(12).Copy Sheets("Tabelle2").Range("F3")

End Sub

[Elex]

Hi

Beispiel für eine Spalte.

Code:

Sheets("Rohdaten2").Range("L2:L" & LeZe).SpecialCells(12).Copy
Sheets("Übersicht").Range("F2").PasteSpecial Paste:=xlPasteValues

Gruß Elex

[snoopy4000_0]

Hi,

wenn ich das an meine jetzigen Spalten anhänge wie oben hinterlegt, sagt er sytnaxfehler. Kannst du es am Beispiel einer Spalte zeigen, die ich oben hinterlegt habe.

Vielen Dank

[snoopy4000_0]

Sub Schaltfläche1_Klicken()
Dim LeZe As Long
LeZe = Sheets("Tabelle1").Cells(Rows.Count, 6).End(xlUp).Row
Sheets("Tabelle1").Range("A2:A" & LeZe).SpecialCells(12).Copy Sheets("Tabelle2").Range("A3"). PasteSpecial Paste:=xlPasteValues

Er hat hier ein Problem und sagt Anweisungsende

[Elex]

Hi

nicht Anhängen sondern so wie im Bsp. als zwei Zeiler.

Gruß Elex

[snoopy4000_0]

Du bist der beste :)

[snoopy4000_0]

Können wir noch eine kleine Sache realisieren

ich würde gerne den SVErweis mit in diesem Makro verarbeiten...sprich wenn die Daten überführt worden sind soll ein SVERWEIs ausgeführt werden...

die Daten übertragenenen Daten befinden sich im tabellenblatt Tabelle2

Der SVERWEIS stellt sich derzeit bei mir wie folgt im Tabellenblatt Tabelle2 so dar: =SVERWEIS(B:B;I:J;2;FALSCH) und der SVERWEIS befindet sich in der Spalte G, da sollen die Ergebnisse rausgespuckt werden

[snoopy4000_0]

Ich habe bis jetzt im Internet diese formel gefunden:

Range("A1").FormulaLocal = "=SVerweis(B1;C1:D10;2;0)

Msgbox "Ergebnis: " & Range("A1").Value