Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Einfügen horizontal anordnen

Forumthread: Beim Einfügen horizontal anordnen

Beim Einfügen horizontal anordnen
01.07.2024 11:11:53
chris58
Hallo !
Ich hätte eine Bitte, denn ich komm einfach nicht weiter, bzw. finde ich in den weiten des Netzes kein passendes VBA.
Ich möchte Zellen ohne Formeln für Auswertungen woanders hinkopieren - per VBA.
Ich habe eine Datei mit einer Formel gemacht, jedoch kopiert mir dieses VBA die Kopie immer wieder an die gleiche Stelle.
Ich möchte jedoch, das diese Zellen nacheinander horizontal angeordnet werden. Ich weiß nicht, wie ich das anstellen könnte.
und zweitens: Kann man den VBA Code, den ich in zwei Teilen habe, zusammenlegen ?
Kann mir da, wer dabei behilflich sein ?
Danke im voraus
Hier die BSP-Datei
chris58
https://www.herber.de/bbs/user/170594.xls
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Beim Einfügen horizontal anordnen
01.07.2024 11:29:07
{Boris}
Hi,

erzeug das Wunschergebnis doch mal bitte per Hand.

VG, Boris
AW: Beim Einfügen horizontal anordnen
01.07.2024 12:26:45
MCO
Mahlzeit!

Kommt das deinem Wunsch schon nah? Mehr als raten kann ich aber auch nicht...



-DEFG
182023202320232023
191. Quartal2. Quartal3. Quartal4. Quartal
2062,5413,1400
210,694888890,14600


Sub Datentranspose()

    

    Range("E10:G13").Copy

    Range("D19").PasteSpecial Paste:=xlPasteValues, Transpose:=True

    Range("F7").Copy Range("D18:G18")

    

    Range("D19").CurrentRegion.BorderAround Weight:=xlThin

End Sub


Gruß, MCO
Anzeige
AW: Beim Einfügen horizontal anordnen
01.07.2024 13:00:11
GerdL
Noch ein Knobelbecher. 
Sub Unit()



    Dim rngTarget As Range, x As Long

    

    Set rngTarget = Range("DO2")

    If Not IsEmpty(rngTarget) Then Set rngTarget = Cells(2, Columns.Count).End(xlToLeft).Offset(0, 10)

    rngTarget = Range("F7")

    Set rngTarget = rngTarget.Offset(2, 0)

    For x = 0 To 4

        rngTarget = Cells(10 + x, 6).Text * 1

        rngTarget.Offset(0, 1) = Cells(10 + x, 7).Text * 1

        Set rngTarget = rngTarget.Offset(0, 2)

    Next



End Sub

Gruß Gerd
Anzeige
AW: Beim Einfügen horizontal anordnen
01.07.2024 13:37:51
chris58
Hallo !
Dachte ich habe alles berücksichtigt........................schaut auf Spalte DN5.
Hier werden die Daten eingegeben und dann sollte horizontal die anderen stehten.
Also 2023 .....2024........2025............2025. Je nachdem, was in dem Original steht. Im Orignal wird das ganze mit Formel berechnet, ab DN5 nur mehr die Zahlen.
Danke erstmals. Tut mir leid, das ich das nicht geschrieben habe, ich dachte das geht aus dem VBA hervor.
Verzeihung
chris58
Anzeige
Das hatte ich gar nicht gesehen...
01.07.2024 14:19:15
{Boris}
Hi,


...so weit hab ich nicht geschaut.
Nur kapier ich das Problem immer noch nicht.

VG, Boris
AW: Das hatte ich gar nicht gesehen...
01.07.2024 16:50:15
daniel
Hi
da wir aber nichts transponiert.
wenn du neue Daten immer rechts neben den vorhandenen einfügen willst, dann: 

Range("F10:G14").Copy

With Cells(3, columns.count).end(xltoleft)

    .Offset(0, 1).pasteSpecial xlpastevalues

    .Offset(-1, 1).Resize(1, 2).value = range("F7").value

end with


Gruß Daniel
Anzeige
AW: Das hatte ich gar nicht gesehen...
01.07.2024 17:44:34
chris58
Hallo Daniel !
Danke für das Codeschnipsel. Leider habe ich keine Ahnung, wo ich das in den bestehenden Code einbauen soll. Habe jetzt herumexperimentiert, jedoch ohne Erfolg.
lg chris58
AW: Das hatte ich gar nicht gesehen...
01.07.2024 20:47:43
chris58
Hallo Daniel !
So, nun habe ich zusammengebracht. Dein Teil eingebaut, nach langem probieren geht das.
Nur eines bekomme ich nun nicht hin....................wie kann ich das machen, das die Kopie beim ersten kopieren in die Spalte DO2 (Spalte 119) kopiert wird. ich bring das einfach nicht hin.
Kannst mir bitte nochmals helfen................bitte
chris58

https://www.herber.de/bbs/user/170611.xls
Anzeige
AW: Das hatte ich gar nicht gesehen...
02.07.2024 09:11:12
chris58
Danke Daniel !
Da muß schon was stehen, damit er die nächste Rubrik hintenanstellt.
Das hat bei mir gedauert, bis ich das bei mir "sickert". :)
Danke nochmals
chris58
AW: Das hatte ich gar nicht gesehen...
01.07.2024 17:49:37
daniel
hi
der Codeschnipsel kopiert den Zellbereich F10:G14 und fügt ihn dann an der von dir vorgesehenen Position ein.
füge ihn dort in deinen Code ein, wo du bei deinem Code vorgesehen hast, dass das passieren soll.
soweit solltest du deinen Code kennen
Gruß Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige