Anpassen eines VBA Skript aber wie?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Uebert() On Error GoTo fehler Dim obj_wks_ziel As Worksheet Dim obj_wks_quelle As Worksheet Dim lng_letzte_zeile As Long Dim lng_zeile As Long Dim lng_spalte As Long Dim rng_gefunden As Range Dim lng_artikelnummer As Long Dim str_werte As String Set obj_wks_ziel = ActiveSheet ' Hier Zieltabellenblatt benennen Set obj_wks_quelle = Worksheets("Tabelle1") ' Hier Quelltabellenblatt benennen For lng_spalte = 1 To Columns.Count Step 3 ' 2To = Erste Spalte definieren zum einfügen, Step3 = _ wie viel Spalte definieren zum einfügen lng_letzte_zeile = obj_wks_ziel.Cells(Rows.Count, lng_spalte).End(xlUp).Row + 1 ' Erste _ leere zeile im Zielblatt ermitteln If lng_letzte_zeile 7 Then ' bei 2 Spalten 5, bei 3 Spalten 13, bei 4 Spalten 17, bei 5 Spalten 21 MsgBox "Es wurden bereits 3 Spalten mit Artikelnummern gefüllt!" Exit Sub End If If lng_letzte_zeile

Guten Morgen Regina,
ja das wertvolle Skript stammt von dir. Hätte mich auch direkt bei dir gemeldet wenn es mir Möglich gewesen wäre. Aber schön hast du hier gelesen danke!
Ja ich dachte mit das es so etwas zu machen gibt, ich hätte das aber nicht hinbekommen da Kenntnis einfach zu lasch bei mir.
Ich werde das später mal austesten. Ganz herzlichen dank es sieht danach aus dass du mich gerettet hast!
Zu denen die argumentieren dass man Zellen nicht verbinden sollte, muss ich sagen ja das stimmt und versuche auch wo es nur geht die verbundenen Zellen zu vermeiden. Leider gibt es aber Situationen bei denen es einfach zu Aufwändig ist, etwas daran zu ändern. Und da muss einfach ein andere Lösung hin wie die von Regina! Denn die Tabelle die ich hier präsentiere sind einfach dargestellt. Dort wo es eingesetzt wird ist die Tabelle auch sehr komplex.

…machen, Thomas,
stellen insofern aber auch eine Herausforderung dar, zumal sie in bestimmter Form Tabellen übersichtlicher gestalten können ohne auf sinnvolles Filtern und einfache Fmln verzichten zu müssen. Ganz zu schweigen von gewissen anderen Vorteilen. Das ist hier aber wohl eher nicht der Fall, sondern allein der BlattStruktur geschuldet, sodass nur die Herausforderung bleibt. Im Prinzip könnte man diese auch wie folgt meistern:
1. Eine zusätzliche Long-LaufVariable deklarieren (hier ix),
2. Den PgmTeil nach If Not rng_gefunden Is Nothing Then nebst Folgezeile so ergänzen:

    If obj_wks_ziel.Cells(lng_letzte_zeile, lng_spalte).MergeCells Then
For ix = 1 To obj_wks_quelle.Range("A" & lng_zeile & ":C" & lng_zeile).Cells.Count
obj_wks_ziel.Cells(lng_letzte_zeile, lng_spalte).MergeArea(1) = _
obj_wks_quelle.Range("A" & lng_zeile & ":C" & lng_zeile).Cells(ix)
lng_spalte = lng_spalte + obj_wks_ziel.Cells(lng_letzte_zeile, _
lng_spalte).MergeArea.Cells.Count
Next ix
Else: obj_wks_quelle.Range("A" & lng_zeile & ":C" & lng_zeile).Copy _
obj_wks_ziel.Cells(lng_letzte_zeile, lng_spalte)
End If

Das sorgt aber nur dafür, dass die Werte des 1.Blattes an die richtige Stelle im 3.Blatt eingefügt wdn. Mit den weiterführenden Aufteilungsregeln und ggf zu übernehmenden ZellFormaten (was hier ohnehin komplizierter wäre) habe ich mich nicht befasst.
Gruß, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit

Beliebteste Forumthreads (12 Monate)

Anpassen eines VBA Skript aber wie?

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anpassen eines VBA Skript aber wie?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread