Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Übertrag Daten ohne Format/Formel und in nächste Spalte

Forumthread: Übertrag Daten ohne Format/Formel und in nächste Spalte

Übertrag Daten ohne Format/Formel und in nächste Spalte
15.10.2024 08:42:03
chris58
Hallo !
Ich habe mir das u.a. Makro zusammengestoppelt, so wie ich es kann bzw. gleube zu können.
Nun stoße ich jedoch auf Widerstand. Ich möchte die Zellen ohne Format und Formel in die Spalte übertragen und dann noch jede weitere "Sicherung" in die darauffolgende Spalte. Also statt 26,4 in .................................. 26,5 & 26,6 usw.
Kann mir bitte da wer weiterhelfen. Meine VBA Kenntnisse sind eher bescheiden.
Danke für Eure Mühe
chris58

Sub Kopieren1()
With Sheets("Berechnung")
.Cells(16, 7).Copy Sheets("History").Cells(26, 4)
.Cells(19, 7).Copy Sheets("History").Cells(27, 4)
.Cells(18, 3).Copy Sheets("History").Cells(28, 4)

End With
With Sheets("History")
.Cells(13, 2).Copy Sheets("History").Cells(30, 4)
.Cells(14, 2).Copy Sheets("History").Cells(31, 4)
.Cells(15, 2).Copy Sheets("History").Cells(32, 4)
.Cells(16, 2).Copy Sheets("History").Cells(33, 4)
.Cells(19, 2).Copy Sheets("History").Cells(34, 4)
.Cells(20, 2).Copy Sheets("History").Cells(35, 4)


End With
End Sub
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übertrag Daten ohne Format/Formel und in nächste Spalte
15.10.2024 09:26:14
UweD
Hallo

- zusammenhängende Zellen kannst du auch auf einmal übertragen. Das mache ich gerne über .resize
- durch .value wird der angezeigte Inhalt übertragen 


Sub Kopieren1()

    With Sheets("Berechnung")

        Sheets("History").Cells(26, 4).Resize(1, 2).Value = .Cells(16, 7).Value

        Sheets("History").Cells(27, 4).Resize(1, 2).Value = .Cells(19, 7).Value

        Sheets("History").Cells(28, 4).Resize(1, 2).Value = .Cells(18, 3).Value

    

    End With

    With Sheets("History")

        .Cells(30, 4).Resize(4, 2).Value = .Cells(13, 2).Resize(4, 1).Value

        .Cells(34, 4).Resize(2, 2).Value = .Cells(19, 2).Resize(2, 1).Value

    

    End With

End Sub


LG UweD
Anzeige
AW: Übertrag Daten ohne Format/Formel und in nächste Spalte
15.10.2024 09:48:33
chris58
Hallo UweD !
Danke erstmal.
Also das kopiert nun nur die Werte. Was ist: Es kopiert und fügt IMMER in 26, 4 & 26, 5 ein. Also werden zwei Spalten gefüllt. Es soll eigentlich in 26, 4 anfangen und dann kontinuierlich beim nächsten Copy&Paste in 26, 5 und beim nächsten in 26, 6 usw. einfügen. Das wäre super, denn dann hätte ich die Jahre nacheinander gespeichert und könnte mir einen Überblick verschaffen, was, wo besser bzw. schlechter ist.
Wenn das ginge................es wäre supersuper
lg chris58
Anzeige
AW: Übertrag Daten ohne Format/Formel und in nächste Spalte
15.10.2024 11:00:21
UweD
Hallo


Ok dann so 
Sub Kopieren1()

    Dim TB As Worksheet, LC As Integer

    Set TB = Sheets("Berechnung")

    

    With Sheets("History")

        LC = .Range("26:35").SpecialCells(xlCellTypeLastCell).Column + 1 'erste freie Spalte im Bereich

        

        .Cells(26, LC).Value = TB.Cells(16, 7).Value

        .Cells(27, LC).Value = TB.Cells(19, 7).Value

        .Cells(28, LC).Value = TB.Cells(18, 3).Value

    

        .Cells(30, LC).Resize(4, 1).Value = .Cells(13, 2).Resize(4, 1).Value

        .Cells(34, LC).Resize(2, 1).Value = .Cells(19, 2).Resize(2, 1).Value

    

    End With

End Sub


LG UweD
Anzeige
AW: Übertrag Daten ohne Format/Formel und in nächste Spalte
15.10.2024 12:02:27
chris58
Hallo UweD !
Ich habe das statt dem anderen Code reinkopiert - doch, da rührt sich gar nichts. Bleibt alles leer, kein Übertrag - nichts.
Hast eine Ahnung....warum ?
Danke für Deine Zeit
chris58
AW: Übertrag Daten ohne Format/Formel und in nächste Spalte
15.10.2024 13:20:34
UweD
Lade doch mal Deine Musterdatei hoch
AW: Übertrag Daten ohne Format/Formel und in nächste Spalte
15.10.2024 13:36:44
chris58
Hallo UweD !
Ich habe es befürchtet, das ich die Datei hochladen soll. Ich habe sie abgespeckt, sonst geht sich das selbst mit einer ZIP Datei schlecht aus.
Hoffe ich habe alles was relevant ist, drangelassen :)
Danke das du mir beistehst.
lg chris58

https://www.herber.de/bbs/user/172895.xls
Anzeige
AW: Übertrag Daten ohne Format/Formel und in nächste Spalte
15.10.2024 14:09:01
UweD
Hallo nochmal


Die Daten wurden ziemlich hinten Spalte 158... eingefügt
Warum? Keine Ahnung ob da mal was stand

Ich ermittel nun die letzte Spalte in Zeile 26

Tausche die LC= Zeile hiermit aus 

        LC = .Cells(26, .Columns.Count).End(xlToLeft).Column + 1 'letzte Spalte einer Zeile+1


LG UweD
Anzeige
Danke Danke Danke
15.10.2024 14:37:52
chris58
Hallo UweD !
Ich habe das geändert, doch es hat wieder soweit nch hinten geschrieben.
Nun habe ich folgendes gemacht: Das gespeicherte nach vorne gezogen, stehen lassen und dann nocheinmal gespeichert. Dann ging es nebeneinander.
Also nur beim ersten Mal, dann geht es einwandfrei.
Danke jedenfalls für Deine wertvolle Hilfe
Ich bin immer wieder begeistert, was Ihr alles könnt.
Herzlichen Dank
chris58
Anzeige
Senkrechter Strich um Überblick zu halten
18.10.2024 11:56:52
chris58
Hallo UweD !
Ich habe bei der Formel versucht einen senkrechten Strich nach jeder Sicherung zu erhalten um einen besseren Überblick zu haben.
Kannst mir bitte nochmal helfen ?
Ich weiß, ich nerve.........
Danke vielmals
chris58

Hier die Formel des ganzen Makro:
Sub Kopieren()
Dim TB As Worksheet, LC As Integer
Set TB = Sheets("Berechnung")
With Sheets("History")
LC = .Cells(25, .Columns.Count).End(xlToLeft).Column + 1 'letzte Spalte einer Zeile+1
.Cells(25, LC).Value = TB.Cells(7, 6).Value
.Cells(26, LC).Value = TB.Cells(11, 3).Value
.Cells(27, LC).Value = TB.Cells(13, 3).Value 'oder 15, 7
.Cells(28, LC).Resize(1, 1).Value = .Cells(13, 2).Resize(2, 1).Value
.Cells(29, LC).Value = TB.Cells(18, 3).Value
.Cells(31, LC).Resize(3, 1).Value = .Cells(14, 2).Resize(3, 1).Value
.Cells(34, LC).Resize(2, 1).Value = .Cells(19, 2).Resize(4, 1).Value
Sheets("History").Select
Range("B1").Select
End With

Selection.Borders(xlDiagonalDown).LineStyle = xlNone 'ab da habe ich eingefügt
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With


Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With

End Sub
Anzeige
AW: Senkrechter Strich um Überblick zu halten
18.10.2024 13:22:19
UweD
Hallo


so?

- Die Zeilen stimmen nun nicht mehr mit deiner Musterdatei überein. da musst du ggf nochmal nachbessern
- Wenn du resize() verwendest:
= > willst du einen Bereich mit den GLEICHEN Daten versehen, reicht das vor dem Gleichheitszeichen
= > willst du einen Bereich mit den Daten aus einem anderen Bereich versehen, dann müssen die resize- Angaben übereinstimmen 

Sub Kopieren1()

    Dim TB As Worksheet, LC As Integer

    Set TB = Sheets("Berechnung")

    

    With Sheets("History")

        LC = .Cells(25, .Columns.Count).End(xlToLeft).Column + 1 'letzte Spalte einer Zeile+1

        

        .Cells(25, LC).Value = TB.Cells(7, 6).Value

        .Cells(26, LC).Value = TB.Cells(11, 3).Value

        .Cells(27, LC).Value = TB.Cells(13, 3).Value 'oder 15, 7

        .Cells(28, LC).Value = .Cells(13, 2).Value

        .Cells(29, LC).Value = TB.Cells(18, 3).Value

        .Cells(31, LC).Resize(3, 1).Value = .Cells(14, 2).Resize(3, 1).Value

        .Cells(34, LC).Resize(2, 1).Value = .Cells(19, 2).Resize(2, 1).Value

        

        With .Cells(25, LC).Resize(12, 1).Borders(xlEdgeRight)

            .LineStyle = xlContinuous

            .Weight = xlThick

            .ColorIndex = 3

        End With

   

        Sheets("History").Activate

        Range("B1").Select

    

    End With

End Sub
Anzeige
Herzlichen Dank
18.10.2024 14:43:08
chris58
Hallo UweD !
Nochmals Danke - ich versprech, jetzt hab ich alles........... :)
lg chris58

Forumthreads zu verwandten Themen

Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
Anzeige
Formel eintragen bis letzer Wert in anderer Spalte
Jonathan

Hallo zusammen,
ich habe mal wieder eine Frage an euch.
In Spalte E wird in E4 via VBA eine Formel eingetragen. Diese soll nun nun nach unten kopiert werden. Ende sollte der letzte Wert der Spalte F sein.
Wie kann ich das am schnellsten via Makro realisieren? Oder darf ich die Forme...
17.03.2009 17:39:15
Thread-ID: 1061170
4 Beiträge
Hilfe bei Makro: Formel in Spalte einfügen
Ruben

Guten Morgen,
ich möchte mit Hilfe eines Makros Formeln in Spalten E und J (beide beginnend ab Zeile 2 und bis zum Ende der Tabelle) einfügen.
Hier das Makro, wie es gerade aussieht und mitr natürlich einen Fehler meldet :-)
Sub Formeln() Range("E2:E" & Rows.Count).Select Acti...
02.04.2009 10:25:11
Thread-ID: 1066226
4 Beiträge
Anzeige
Formel-Problem / Indirekt? Hilfsspalte?
Oliver

Hallo zusammen
Ich möchte voraus erwähnen, das ich das Problem vorhin mit Makro versucht habe zu lösen, da ich dort aber nicht das nötige Wissen verfüge, habe ich es mit Formeln versucht. Hier der Thread von der Makro-Lösung: https://www.herber.de/forum/messages/1073063.html
Ich bin j...
06.05.2009 07:26:36
Thread-ID: 1073223
3 Beiträge
Funktion für Spaltenbezeichnung?
Born

Hallo Forum,
um von einer Spaltennummer die Spaltenbezeichnung zu erhalten nutze ich die CHR-Funktion wie folgt:
Spalte = Chr(ActiveCell.Column + 64)
Die funktioniert leider nur bis zur Spalte Z. Gibt es eigentlich direkt eine Funktion, die aus einer Spaltennummer in R1C1-Schreibwei...
21.07.2009 13:22:55
Thread-ID: 1090227
8 Beiträge
Formel f. letzten Wert einer Spalte
00erna

Hallo Ihr,
habe eine Liste in der es immer wieder neue Einträge in der Spalte nach unten gibt - so zu sagen: immer neue Kontostände. Möchte unten in der quasi Summenzeile aber nicht die Summe sondern immer den akutellen Wert gezogen bekommen... der ist ja jedesmal eine Zeile tiefer.
Wie...
22.07.2009 11:24:02
Thread-ID: 1090472
5 Beiträge
Anzeige
Formel für ganze Spalte
Andreas

Hallo zusammen,
ich stehe bei dieser wahrscheinlich einfachen Formel echt auf dem Schlauch.
Ich würde mich über eine Hilfe gaaanz riesig freuen
https://www.herber.de/bbs/user/63900.xls
18.08.2009 11:46:25
Thread-ID: 1096693
14 Beiträge
SpecialCells funkt nicht über ganze Spalte
Alois

Hallo Forum.
Der gesuchte Code soll mir die Zeilen im gesamten Tabellenblatt ausblenden, wo Spalte C leer ist.
Oder anders herum:
Es sollen nur noch die Zeilen eingeblendet bleiben, wo die Spalte C einen Inhalt hat.
Habe zum Test ein leeres Tabellenblatt genommen und in den Zell...
14.09.2009 21:39:52
Thread-ID: 1102761
5 Beiträge
Anzeige
Bedingte Formel über mehrere Spalten/Zeilen?
Sebastian

Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
Zellwert ist ungleich =$M$10="ja" (un...
22.10.2009 10:51:11
Thread-ID: 1111308
2 Beiträge
Wert einer Zelle->Spaltenangabe in einer Formel
Jens

Hallo liebe Mädels und Jungs,
ich möchte gerne eine Zelle von einer anderen abziehen, wobei sich die 2. Zelle um soviel Positionen vor der 1. Zelle befindet, wie eine Variable angibt.
Sicherlich kann man da recht schnell ein Makro schreiben, aber ich möchte gerne ohne Makro das ganze lö...
19.11.2009 14:54:13
Thread-ID: 1118636
11 Beiträge
Format von Zelle auf Spalte übertragen
Zelle

Hallo,
ich möchte die Formatierung von einer Zelle auf eine Spalte übertragen.
Ungefär so:
tmp = Worksheets("Sheet1").Range("A1").NumberFormat
Worksheets("Sheet1").Range("B:B").NumberFormat = tmp
Komme nicht weiter. Vielleicht kann jemand helfen.
Gruß
Fred
29.11.2009 18:23:06
Thread-ID: 1120841
6 Beiträge
Formel auf anderes Blatt mit fortlaufender Spalte
Fred

Man das hört sich wieder mal schlimm an, oder ?
Ich möchte eine Formel aus Zelle A1-Blatt1 in Zelle A1-Blatt2 kopieren.
In A1-Blatt1 steht die Formel: ='Meine Daten'!C13-'Meine Daten'!C13-'Meine Daten'!C13
Nun soll diese Formel in Zelle A1-Blatt2 so kopiert werden dass die Spalte u...
18.12.2009 12:21:34
Thread-ID: 1124855
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige