Supportnet / Forum / Tabellenkalkulation

Hallo Leute bin beigeistert wie gut die Hilfsbereitschaft hier ist ... leider konnte ich keine Lösung für mein Problem finden :-(. Wäre klasse wenn mir jemand bei meinem Problem zur Seite stehen würde bzw kann. Hier mein Problem: Ich beabsichtige die Spalten in folgender Beispieltabelle auszuschneiden und in andere Spalten wieder einzufügen! IST: _A B C D E 1 2 3 Z Z X X S 4 Z _ _ X S 5 Z Z _ X S 6 Z _ X X S SOLL: Nach einer noch zu definierenden Aktion, z.B. Drücken einer F-Taste. _A B C D E 1 2 3 X X __ S 4 _ X __ S 5 _ X __ S 6 X X __ S Erklärung zur Tabelle E3=(($A$3+$B$3)-($C$3+$D$3)) E4=(($A$4+$B$4)-($C$4+$D$4)) Also eine Berechnung, zum Ende sollen die Werte in C + D Ausgeschnitten und nach A + B Kopiert bzw eingefügt werden. Wenn jemand irgendeine Idee hat wie sich das bewerkstelligen lässt wäre ich sehr dankbar!

hi McFly_HL :)

wie gewuenscht :)

gruss nighty

kleines beispiel

einzufuegen alt f11(vbeditor)/einfuegen/modul

tastenkombination einzustellen unter extras/makro/makros/optionen

Sub makro01()
[c1:c10].Copy [a1]
[c1:c10].Clear
[d1:d10].Copy [b1]
[d1:d10].Clear
End Sub

hi McFly_HL :)

lag wohl falsch :)

sollten ja nur die werte kopiert werden ,da sich wohl formeln darin befinden geht ja ausschneiden nicht,bis morgen dann es ist schon spaet sehe ich gerade :)

gruss nighty

hi McFly_HL :)

dann lieber so :)

gruss nighty

spalteC gehen die werte nach spalteA
spalteD gehen die werte nach spalteB

einzufuegen alt f11(vbeditor)/einfuegen/modul

Sub liste_erstellen()
Dim zaehler1 As Long
Dim zaehler2 As Long
Dim zaehler3 As Long
With Worksheets(1)
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(zaehler1, 3) <> 0 Or Cells(zaehler1, 4) <> 0 Then
zaehler3 = Cells(zaehler1, 3)
zaehler2 = zaehler2 + 1
Cells(zaehler2, 1) = zaehler3
zaehler3 = Cells(zaehler1, 4)
Cells(zaehler2, 2) = zaehler3
End If
Next zaehler1
End With
End Sub

Hi nighty,

besten Danke an Dich das war genau das was ich brauchte, werde mal versuchen ob ich das alles so hin bekomme.

Bis die Tage Gruß McFly_HL

• Inhalte aus 2 Spalten in einer dritten sortieren
• Tabellenvergleich mit Sverweis, VBA oder Formel?
• Zahlen in Spalten mit Makro Hochdrehen
• Zellen kopieren und tiefer einfügen mit Makro