Clever-Excel-Forum

Hi

ich mach es mal mit Datei.
[attachment=18961]


Gruß Elex

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

Hi

Beispiel für eine Spalte.


Gruß Elex

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

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

Hi

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

Gruß Elex

Du bist der beste :)

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

Ich habe bis jetzt im Internet diese formel gefunden:

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

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