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

Helfe beim Thema Range (letzte Spalte X+Y) kopieren und in die nächste freie Spalte einfügen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Die Beispieltabelle zur Veranschaulichung vom Kopieren vom Reiter B in den Reiter A Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Axel_Sheet, 18. August 2012.

Seite 6 von 7

AXEL_SHEET

Axel_Sheet

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

Die Beispieltabelle zur Veranschaulichung vom Kopieren vom Reiter B in den Reiter A

Axel_Sheet, 18. November 2014

#76
HARY

hary

Moin
Warum moechteste du bei uebereinstimmung B zu A, A ueberschreiben??
Oder versteh ich was nicht?
Ist der Unterschied das was hinter dem Gleichheitszeichen steht?
Das nur der Teil Bsp.: warning.msg4020 =
uebereinstimmen muss. Wenn ja ist das Gleichheitszeichen immer vorhanden?

gruss hary

hary, 18. November 2014

#77
AXEL_SHEET

Axel_Sheet

Hi Harry,

in A ist so zusagen das Template. In B hab ich die Texte in verschiedenen Sprachen vorliegen, daher will ich immer den Reiter B in den A kopieren.
Ja, der Unterschied liegt nach dem "=" Zeichen, Text in unterschiedlichen Sprachen. Das "=" Zeichen kommt immer vor, es muss immer der Teil übereinstimmen in A und B: warning.msg4020 dh. alles was nach msg kommt, zb. A10B, oder 201C, etc.
Hab ich das jetzt einigermaßen verständlich erklärt.....

Tom

Axel_Sheet, 18. November 2014

#78
HARY

hary

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

Moin
Code:

Sub VieleichtSo()
Dim suche As String
Dim zelle As Range
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("B")
Set wksZ = Worksheets("A")
For i = 1 To wksQ.Cells(Rows.Count, 1).End(xlUp).Row
suche = Mid(wksQ.Cells(i, 1), 1, InStr(1, wksQ.Cells(i, 1), "=") - 1)
Set zelle = wksZ.Columns(1).Find(What:=suche, Lookat:=xlPart)
If Not zelle Is Nothing Then
zelle.Value = wksQ.Cells(i, 1)
End If
Next
Set wksQ = Nothing
Set wksZ = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 18. November 2014

#79
AXEL_SHEET

Axel_Sheet

Besser geht´s nicht! Besten Dank!

Tom

Axel_Sheet, 18. November 2014

#80
AXEL_SHEET

Axel_Sheet

Hallo Hary,

ein gutes neues Jahr erstmals *wink.gif* Bräuchte wieder mal Deine Hilfe....
Es ginge um ein Macro/Funktion dass eine Spalte, mit Datum in der Zeile 1 und beliebig vielen Werten darunter, in zwei neue Spalten konvertiert.
Spalte mit dem Datum und Spalte mit den Werten, die zu dem Datum gehören.
Am besten seh Dir die Exceltabelle an. Die Ausgabe der neuen Spalten, wäre in einem neuen Tabellenblatt am besten...

Schönen Gruß
Tom

Axel_Sheet, 31. Januar 2015

#81
AXEL_SHEET

Axel_Sheet

Hallo Hary,

ein gutes neues Jahr erstmals *wink.gif* Bräuchte wieder mal Deine Hilfe....
Es ginge um ein Macro/Funktion dass eine Spalte, mit Datum in der Zeile 1 und beliebig vielen Werten darunter, in zwei neue Spalten konvertiert.
Spalte mit dem Datum und Spalte mit den Werten, die zu dem Datum gehören.
Am besten seh Dir die Exceltabelle an. Die Ausgabe der neuen Spalten, wäre in einem neuen Tabellenblatt am besten...

Schönen Gruß
Tom

Axel_Sheet, 31. Januar 2015

#82
HARY

hary

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

Moin Tom
Diesmal nicht im Urlaub. ;-))
Code:

Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim letzteSpalte As Long
Dim letzteZiel As Long
Dim erweitern As Long
Dim i As Long
Set wksQ = Worksheets("Tabelle1") '--Name anpassen
Set wksZ = Worksheets("Tabelle2") '--Zielblatt(Name anpassen) muss vorhanden sein
letzteSpalte = wksQ.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To letzteSpalte
letzteZiel = wksZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
erweitern = wksQ.Cells(1, i).End(xlDown).Row - 1
With wksZ.Cells(letzteZiel, 1).Resize(erweitern, 1)
.Value = wksQ.Cells(1, i)
.Offset(, 1).Value = wksQ.Cells(2, i).Resize(erweitern, 1).Value
End With
Next
wksQ.Columns(1).NumberFormat = "DD/MM/YY"
wksQ.Columns(2).NumberFormat = "0.00"
Set wksQ = Nothing
Set wksZ = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 31. Januar 2015

#83
AXEL_SHEET

Axel_Sheet

Hallo Hary,

besten Dank! Hat mir wie immer sehr geholfen!

Gruß

Axel_Sheet, 1. Februar 2015

#84
AXEL_SHEET

Axel_Sheet

Hallo Hary,

hätte da eine Frage an Dich als Experten *wink.gif*
Ist es möglich eine csv Datei mit Hilfe eines Macros zu bearbeiten?
Sprich die csv Datei nach bestimmten Werten zu filtern, und diese gefilterten Daten in eine neue csv Datei abzuspeichern. Hintergrund ist, ich bearbeite csv Dateien die ca. 1,7GB groß sind, diese kann ich durch die Filterung auf 600-700mb reduzieren.

Schönen Gruß
Tom

Axel_Sheet, 5. Februar 2015

#85
AXEL_SHEET

Axel_Sheet

Hallo Harry, müsste Dich wieder mal belästigen *frown.gif*

Ich bräuchte ein Skript das mir Zeilen, nach bestimmten Suchkriterien einer Spalte, löscht. z.B. Spalte I = "AA", dann sollen alle Zeilen die "AA" in der Spalte I enthalten, gelöscht werden.
Es stellt sich nur die Frage was schneller geht, erst nur den Inhalt der Zeilen zu löschen und im zweiten Schritt die übrigen leeren Zeilen zu löschen?

Grüße

Axel_Sheet, 11. März 2015

#86
HARY

hary

Moin Tom
Am schnellsten mit Filter.
Bsp.-weise so.
Code:

Sub loeschen()
Dim letzte As Long
With Worksheets("Tabelle1")
letzte = .Cells(Rows.Count, 9).End(xlUp).Row
Application.ScreenUpdating = False
.Cells(1, 9).AutoFilter Field:=1, Criteria1:="AA" '--ggf. Field anpassen
If .Cells(2, 9).Resize(letzte, 1).SpecialCells(xlVisible).Count > 1 Then
Application.DisplayAlerts = False
.Cells(2, 9).Resize(letzte, 1).SpecialCells(xlVisible).Delete
Application.DisplayAlerts = True
End If
.Cells(1, 9).AutoFilter
Application.ScreenUpdating = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 11. März 2015

#87
AXEL_SHEET

Axel_Sheet

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

Morgen Hary,

danke für die schnelle Antwort. Aber irgendwie funktioniert es nicht.
Hänge daher eine Beispiel Datei an, vielleicht ist es dann einfacher für Dich.

Gruß
Tom

Axel_Sheet, 11. März 2015

#88
HARY

hary

Moin Tom
Code:

Sub BLoeschen()
Dim letzte As Long
With Worksheets("export_XY")
letzte = .Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
.Cells(1, 1).CurrentRegion.AutoFilter Field:=9, Criteria1:="B" '--ggf. Field anpassen
If .Cells(2, 9).Resize(letzte, 1).SpecialCells(xlVisible).Count > 1 Then
.Cells(2, 9).Resize(letzte - 1, 1).SpecialCells(xlVisible).EntireRow.Delete
End If
.Cells(1, 1).AutoFilter
Application.ScreenUpdating = True
End With
End Sub
'-----------------------------------
Sub GLeer()
Dim letzte As Long
With Worksheets("export_XY")
letzte = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(2, 7).Resize(letzte - 1, 1).SpecialCells(xlBlanks).EntireRow.Delete
End With
End Sub
'--------------------------------------
Sub MitDE()
Dim letzte As Long
With Worksheets("export_XY")
letzte = .Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
.Cells(1, 1).CurrentRegion.AutoFilter Field:=2, Criteria1:="=DE*"
If .Cells(2, 2).Resize(letzte, 1).SpecialCells(xlVisible).Count > 1 Then
.Cells(2, 2).Resize(letzte - 1, 1).SpecialCells(xlVisible).EntireRow.Delete
End If
.Cells(1, 1).AutoFilter
Application.ScreenUpdating = True
End With
End Sub
'-----------------------------
Sub OhneDE()
Dim letzte As Long
With Worksheets("export_XY")
letzte = .Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
.Cells(1, 1).CurrentRegion.AutoFilter Field:=2, Criteria1:="DE*"
If .Cells(2, 2).Resize(letzte, 1).SpecialCells(xlVisible).Count > 1 Then
.Cells(2, 2).Resize(letzte - 1, 1).SpecialCells(xlVisible).EntireRow.Delete
End If
.Cells(1, 1).AutoFilter
Application.ScreenUpdating = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 11. März 2015

#89
AXEL_SHEET

Axel_Sheet

Danke Hary, es funktioniert!

Axel_Sheet, 11. März 2015

#90

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 6 von 7

Thema:

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

Die Seite wird geladen...

Range (letzte Spalte X+Y) kopieren und in die nächste freie Spalte einfügen - Similar Threads - Range letzte Spalte
Excel Range als Bild in Word einfügen
in Microsoft Excel Hilfe
Excel Range als Bild in Word einfügen: Hallo, ich möchte gerne per Makro in einem Wordtemplate Mustergrafiken, die als Platzhalter dienen durch Bereiche in meiner Exceldatei ersetzen, die ich als Bild einfüge. Per Hand mache ich das...
SVERWEIS mit Range von bis funktioniert nicht?
in Microsoft Excel Hilfe
SVERWEIS mit Range von bis funktioniert nicht?: Hallo, ich komme leider nicht weiter bei meinem SVERWEIS. Spalte A und C werden ausgefüllt. In Spalte B sollte dann der SVERWEIS sein. Leider komm ich mit "von bis" nicht weiter und jedes...
Macro Fehler Subscript out of Range
in Microsoft Excel Hilfe
Macro Fehler Subscript out of Range: Hallo Zusammen, ich muesste aus ca. 500 pdf's mit teilweise 90 oder evtl. sogar mehr Seiten, ein paar Daten auslesen. Ich habe ein Makro, dass ich vor Jahren benutzt habe, mit dem ich erst die...
Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".
in Microsoft Excel Hilfe
Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".: Hallo Leute,*:)* nachdem ich in die "addIn 1.2.4" ein Sheet RKL eine Dropdownliste und ein Togglebutton hinzugefügt habe bekomme ich beim aufruf der UF die Fehlermeldung "Laufzeitfehler 1004 "Die...
2x Worksheet_Change(ByVal Target As Range)
in Microsoft Excel Hilfe
2x Worksheet_Change(ByVal Target As Range): Hallo zusammen, ich bin VBA-Anfänger und habe die ersten Codes erstellt. Nun möchte ich 2 von Ihnen, welche einzeln funktionieren, zusammenfügen, so dass beide entsprechend durchgeführt werden....
Turnierdatenbank Punkteausweisung anhand Rang
in Microsoft Excel Hilfe
Turnierdatenbank Punkteausweisung anhand Rang: Hallo Habe eine Turnierdatenbank, wo ich aus einem separatem Sheet die entsprechenden Rangpunkte automatisch herauslesen kann und - wenn ich den Rang z.B. 2 eingebe - die Punkte dann auf dem...
Vba letzte Spalte in einer Bestimmten Range ermitteln
in Microsoft Excel Hilfe
Vba letzte Spalte in einer Bestimmten Range ermitteln: Hallo Leute, ich versuche gerade einen Command Button zu erstellen, welcher mit die Druckansicht einer bestimmten Tabelle öffnen soll, Ab Zeile A9 Stehen die Werte der Tabelle. Zuerst soll...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden