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; Moin Code: Sub NeueSpalten() Dim LzSpalte Dim letzte As Long LzSpalte = Cells(7, Columns.Count).End(xlToLeft).Column letzte = Cells(Rows.Count,... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Axel_Sheet, 18. August 2012.

Seite 3 von 7

HARY

hary

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

Moin
Code:

Sub NeueSpalten()
Dim LzSpalte
Dim letzte As Long
LzSpalte = Cells(7, Columns.Count).End(xlToLeft).Column
letzte = Cells(Rows.Count, LzSpalte).End(xlUp).Row
Range(Cells(7, LzSpalte), Cells(letzte, LzSpalte + 3)).Copy Cells(7, LzSpalte + 4)
Cells(10, LzSpalte + 5).Resize(letzte - 17, 3).ClearContents
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

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)
End With
Cells(9, LzSpalteDaten).Resize(letzte - 8, 4).Clear
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 3. Februar 2014

#31
AXEL_SHEET

Axel_Sheet

Nochmals vielen Dank! Funktioniert einwandfrei! Besser geht´s nicht *wink.gif*

Schönen Gruß
Thomas

Axel_Sheet, 3. Februar 2014

#32
AXEL_SHEET

Axel_Sheet

Hallo Hary,

noch eine Ergänzung, wäre es möglich beim Kopieren der Inhalten in die Spalten die ursprüngliche Formatierung der Spalten zu behalten (Schriftgröße/Art, Rahmen/Linien, etc.)?

Gruß
Thomas

Axel_Sheet, 13. Februar 2014

#33
HARY

hary

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

Moin Thomas
Ungetestet!! oder versteh ich es falsch?
Code:

With Cells(10, LzSpalteDaten).Resize(letzte - 9, 4)
.SpecialCells(xlCellTypeBlanks).Value = 0
.Copy
Cells(10, LzSpalteEintrag).PasteSpecial Paste:=xlPasteValues
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 13. Februar 2014

#34
AXEL_SHEET

Axel_Sheet

Optimal! Danke!

Axel_Sheet, 14. Februar 2014

#35
AXEL_SHEET

Axel_Sheet

Hallo Hary,

hätte da noch ein Problem, bei dem Du mir vielleicht helfen könntest.
Ich benötige einen Prozentwert, der sich zeilenweise aus Spalten zusammensetzt, die ungleich 0 sind. Habe Dir ein Beispielsheet angehängt.
Hoffe die Darstellung ist verständlich.

Schönen Gruß
Tom

Axel_Sheet, 8. Mai 2014

#36
AXEL_SHEET

Axel_Sheet

Hallo Hary,

hätte da noch ein Problem, bei dem Du mir vielleicht helfen könntest.
Ich benötige einen Prozentwert, der sich zeilenweise aus Spalten zusammensetzt, die ungleich 0 sind. Habe Dir ein Beispielsheet angehängt.
Hoffe die Darstellung ist verständlich.

Axel_Sheet, 11. Mai 2014

#37
HARY

hary

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

Moin
Bin erst aus dem Urlaub zurueck. :-((
Teste mal:
Code:

Sub Prozent()
Dim Spalte As Long
Dim zeile As Long
Dim zähler As Long
Dim LzSpalte As Long
LzSpalte = Cells(9, Columns.Count).End(xlToLeft).Column
For zeile = 10 To 83
For Spalte = 4 To LzSpalte Step 4
If Cells(zeile, Spalte) > 0 Then
zähler = zähler + 1
Exit For
End If
Next
Next
Range("E3") = Application.Round(zähler / Application.CountA(Range("C10:C83")) * 100, 0)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 11. Mai 2014

#38
AXEL_SHEET

Axel_Sheet

Hallo Hary,

Dich erwisch ich immer nach dem Urlaub *wink.gif* Wo warst Du bzw. wie lang?

Dein Script funktioniert soweit! Man müsste aber die Anzahl der Zeilen (letzte beschriebene Zeile in der Spalte SK) dynamisch ermitteln. Da die Tabellen nicht die gleiche Anzahl von Zeilen haben *frown.gif*

Code:

Sub Prozent()
Dim Spalte As Long
Dim zeile As Long
Dim zähler As Long
Dim LzSpalte As Long
LzSpalte = Cells(9, Columns.Count).End(xlToLeft).Column
For zeile = 10 To 83
For Spalte = 4 To LzSpalte Step 4
If Cells(zeile, Spalte) > 0 Then
zähler = zähler + 1
Exit For
End If
Next
Next
Range("E3") = Application.Round(zähler / Application.CountA(Range("C10:C83")) * 100, 0)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Tom

Axel_Sheet, 12. Mai 2014

#39
HARY

hary

Moin
Versuch mal so.
Code:

Sub Prozent()
Dim Spalte As Long
Dim zeile As Long
Dim zähler As Long
Dim LzSpalte As Long
Dim letzte As Long
LzSpalte = Cells(9, Columns.Count).End(xlToLeft).Column
letzte = Cells(9, 3).End(xlDown).Row
For zeile = 10 To letzte
For Spalte = 4 To LzSpalte Step 4
If Cells(zeile, Spalte) > 0 Then
zähler = zähler + 1
Exit For
End If
Next
Next
Range("E3") = Application.Round(zähler / Application.CountA(Range("C10:C" & letzte)) * 100, 0)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 12. Mai 2014

#40
AXEL_SHEET

Axel_Sheet

Hallo Harry,

bräuchte wieder mal Deine Hilfe! Ich müsste aus mehreren Spalten einen String zusammenbauen, der jeweils in einer neuen Zeile (im neuen Reiter) abgespeichert wird. Sieh Dir am besten die angehängte Tabelle an.

Besten Dank im Voraus!
Tom

Axel_Sheet, 6. August 2014

#41
AXEL_SHEET

Axel_Sheet

Hallo Harry,

bräuchte wieder mal Deine Hilfe! Ich müsste aus mehreren Spalten einen String zusammenbauen, der jeweils in einer neuen Zeile (im neuen Reiter) abgespeichert wird. Sieh Dir am besten die angehängte Tabelle an.

Besten Dank im Voraus!
Tom

Axel_Sheet, 6. August 2014

#42
HASSO

Hasso

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

Hallo Tom,

ich bin zwar nicht Harry, aber vielleicht kannst du ja mit meiner Lösung auch etwas anfangen: Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim lngZeile As Long
Dim lngZielZeile As Long
Dim lngLetzteZeile As Long

With Worksheets("Erläuterung")
'letzte Zeile ermitteln:
lngLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
lngZielZeile = 1
For lngZeile = 1 To lngLetzteZeile
If .Cells(lngZeile, "C") = "JA" Then
Worksheets("msg").Cells(lngZielZeile, "A") = "warning.msg" & Right(.Cells(lngZeile, "A"), 4) & " = " & .Cells(lngZeile, "G")
lngZielZeile = lngZielZeile + 1
End If
Next lngZeile
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hasso, 6. August 2014

#43
AXEL_SHEET

Axel_Sheet

Servus Hasso,

es funktioniert! Könnte man es noch so umändern, dass das Script ohne Button funkioniert (String+m)? Das Script sollte aus dem Reiter "ZPM" aufrufbar sein, und die Meldungen in einen neuen Reiter einfügen, oder falls einfacher, in einen bereits vorhandenen Reiter"msg"

Danke und Gruß
Tom

Axel_Sheet, 7. August 2014

#44
AXEL_SHEET

Axel_Sheet

Hi Hasso,

nochmals zum Verständnis, die Inhalte die ich benötige sind tatsächlich in den Spalten: A, G und AK. Die Spalten sind nicht variabel, AK ist auch nicht die letzte Spalte. Die Inahlte beginnen ab der Zeile 2 für jede Spalte. Falls es Dir weiterhelfen sollte.

Gruß
Tom

Axel_Sheet, 7. August 2014

#45

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

Seite 3 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