Office: Range (letzte Spalte X+Y) kopieren und in die nächste freie Spalte einfügen

Moin Tom
Nur damit wir nicht aneinander vorbei reden.
Bsp. Macro1

Meinst du nur die SpalteH(Letzte rechte) kopieren, wenn ja in welche Spalte reinsetzen? B,C oder D

oder SpalteF bis SpalteH kopieren nach SpalteB bis SpalteD.

Schreib mal mit Bereichsbezeichnung auf.
Bsp.: H7 bis letzte belegte kopieren nach SpalteD
oder
F7 bis letzte SpalteH nach SpalteB bis SpalteD.
gruss hary

 

Morgen Harry,

es sollen die Spalten (im Beispiel) F bis H in die Spalten B bis D (die Spalten B bis D sind fest, da ändert sich nichts an der Positionierung)
eingefügt werden. Also die letzte ermittelte Spalte (hier H ab Zeile 7 bis zum letzten Eintrag) + zwei nach links (hier im Beispiel G + F).

oder wie Du es ausgedrückt hast *Smilie
F7 bis letzte SpalteH nach SpalteB bis SpalteD.

Gruß
Tom

 

Moin
Alles klar, melde mich ab Mittag. Wenn sich niemand anderes findet.
gruss hary

 

Alles klar, und danke im Voraus!

Hätte noch eine Frage, wie kann ich ein Macro (Tastenkombi strg+yx) für mehrere Registerkarten ausführen?

Tom

 

Moin Tom
Zur ersten Frage:
Code:

Zum zweiten:
In dem du im Makro die Blattnamen mit gibst.
Hier wird ausgefuehrt in: Tabelle1 --- Tabelle3 --- Tabelle5
Pruefung ob Blattname vorhanden musst du evtl. einbauen.
Code:

gruss hary

 

Hallo Harry,

beide Macros funktionieren super! Nur beim Löschen, könnte man einfach die letzten 3Spalten komplett löschen, also nicht nur den kopierten Bereich. Dann wäre das Sheet sauber ohne Formatierungsreste.....der kopierten Daten aus der DB.

Gruß
Tom

 

Moin
Ganze Spalten? Dann ist aber die Ueberschrift auch wech.
oder du nimmst statt .ClearContents einfach .Clear
gruss hary

 

Hi Harry,

Sub SVersion()
Dim LzSpalteDaten As Long
Dim letzte As Long
Dim wks As Worksheet
Set wks = Worksheets("Reading Devices to Update")
LzSpalteDaten = wks.Cells(7, Columns.Count).End(xlToLeft).Column
If LzSpalteDaten >= 9 Then
wks.Range("B8:C25").ClearContents
letzte = wks.Cells(Rows.Count, LzSpalteDaten).End(xlUp).Row
With wks.Cells(8, LzSpalteDaten - 2).Resize(letzte - 7, 3)
wks.Cells(8, 2).Resize(letzte - 7, 3).Value = .Value .Clear
End With
End If
Set wks = Nothing
End Sub

mit nur .clear funktionert es soweit, dass die Formatierung weg ist, die Zeile drüber mit der Überschrischft leider nicht, die will ich aber auch weg haben *frown.gif*
Dh. es müsste hier bei dem Macro die Zeile 7, des kopierten Bereiches mitgelöscht werden.

 

Moin
Dann so.
Code:

 

Abend Harry,

funtzt wie immer optimal! Besten Dank!

Gruß
Tom

 

Hi Harry,

was mir noch einfällt. Bei dem Skript hier werden auch Spalten kopiert und danach gelöscht und zusätzlich leere Zellen mit "0" ausgefüllt:

Sub DatenKopieren()
Dim kopieren As Range
Dim LzSpalteDaten As Long
Dim LzSpalteEintrag As Long
Dim letzte As Long
LzSpalteEintrag = Cells(7, Columns.Count).End(xlToLeft).Column
LzSpalteDaten = Cells(9, Columns.Count).End(xlToLeft).Column - 3
letzte = Cells(Rows.Count, LzSpalteDaten).End(xlUp).Row
With Cells(10, LzSpalteDaten).Resize(letzte - 9, 4)
.SpecialCells(xlCellTypeBlanks).Value = 0
.Copy
Cells(10, LzSpalteEintrag).PasteSpecial Paste:=xlPasteValues
End With
Cells(9, LzSpalteDaten).Resize(letzte - 8, 4).Clear
End Sub

da es aber oft bei mir vorkommt, dass es keine leeren Zellen gibt, die mit einer "0" ausgefüllt werden müssen, kommt es beim dem Skript zum Laufzeitfehler *frown.gif*
Ließe sich daher eine Ausnahmebehandlung in das Skript programmieren?
>> Wenn keine leeren Zelle vorhanden, einfach nur kopieren....

Gruß
Tom

 

Moin Tom
Dann pruefen wir mit Leerzellenzaehlen,ob Leerzellen vorhanden sind.
Code:

gruss hary

 

Moin Harry,

bist wohl ein richtiger Frühaufsteher *wink.gif* Nochmals vielen Dank!
Ich teste es gleich.

Schönen Sonntag
Tom

 

Funktioniert! Danke!

 

Morgen Harry,

hätte wieder eine Bitte an Dich *frown.gif*
Hab folgendes Problem. Im Reiter A hab ich pro Zeile Einträge die so aufgebaut sind:
warning.msg4020 = blabla
warning.msg.4020.prio
warning.msg.4021 = blabla
warning.msg.4021.prio
warning.msgA100 = blabla
warning.msgA100.icon = ICON000_red.png
warning.msgA100.prio = 2
warning.msgA108 = blabla
warning.msgA108.icon = ICON014_red.png
warning.msgA108.prio = 2
etc.

Im Reiter B hab ich pro Zeile die gleichen Einträge nur ohne:
warning.msg.XY.prio und warning.msgXY.icon = ICON014_red.png
Also nur die Einträge mit:
warning.msg4020 = blabla
warning.msg4021 = blabla
warning.msgA100 = blabla
warning.msgA108 = blabla

Und jetzt müssten die Einträge vom Reiter B in den Reiter A kopiert werden,
aber nur die, die auch im Reiter A vorhanden sind.

Beispiel:
Reiter A: warning.msg4020 = blabla und Reiter B: warning.msg4020 = blabla, dann den Eintrag von B in A kopieren
und zwar in die Zeile im Reiter A die als erste mit der Bezeichnung vom Reiter B übereinstimmt, oder anders ausgedrückt
nicht warning.msgXY.prio oder warning.msgXY.icon heißt.

Hättest Du hierfür eine Idee?
Eine Beispieltabelle hänge ich dazu. (sie hängt auf Seite 6 *wink.gif* )

Gruß
Tom