Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiche Werte nach rechts kopieren

Forumthread: Gleiche Werte nach rechts kopieren

Gleiche Werte nach rechts kopieren
Erwin_Geer
Guten Morgen,
ich habe Tabellen, die z. B. 5 Spalten breit und manchmal mehrere 1.000 Zeilen lang ist.
Dabei kann es vorkommen, dass z. B. in Spalte A manchmal gleiche (eindeutige) Werte (Aktenzeichen oder Namen) untereinander stehen können, aber in den Spalten B, C, D, E andere Werte dazu enthalten sind.
Ich möchte nun per VBA (nicht Pivot Funktion), dass in Spalte A der Wert nur noch ein einziges mal steht und alle Werte zu einem Aktenzeichen o. Namen nach rechts in die erste vorkommende Zeile kopiert werden.
Zum besseren Verständnis habe ich eine Datei hochgeladen, die den IST Zustand und das SOLL darstellt.
https://www.herber.de/bbs/user/66000.xls
Wer kann mir bitte helfen?
- Erwin -
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
..warum nicht Pivot?...
18.11.2009 09:25:07
robert
hi,
stelldir vor , du hast 12 Huber
wie sieht dann deine tabelle aus?
das ist doch ein klassiker für pivot
gruß
robert
AW: ..warum nicht Pivot?...
18.11.2009 09:35:59
Erwin_Geer
Hallo Robert,
zum einen ist das immer eindeutig in einer Zelle (ist vom HOST System so; i. d. R. Zahlenkombination),
zum anderen kenne ich mich mit Pivot fast nicht aus,
zum dritten habe ich Nachfolgemakros, die schon laufend benutzt werden und mit Pivot nicht zurecht kommen.
Mir wäre deshalb schon an einer VBA - Lösung gelegen.
Grüße
Erwin
Anzeige
Tabelle mit VBA umstellen
18.11.2009 12:10:17
Erich
Hi Erwin,
probier mal 

Option Explicit
Sub Umorg()
Dim strS As String, cI As Long, lngZ As Long, cA As Long
Dim zz As Long, cc As Long, varM
strS = InputBox("Spaltenbuchstabe:", "Umorg")
cI = Range(strS & 1).Column
lngZ = Cells(Rows.Count, cI).End(xlUp).Row
cA = Cells(4, Columns.Count).End(xlToLeft).Column
For zz = 2 To lngZ - 1
cc = 1
varM = Application.Match(Cells(zz, cI), _
Range(Cells(zz + 1, cI), Cells(lngZ, cI)), 0)
While IsNumeric(varM)
cc = cc + cA
Cells(zz + varM, 1).Resize(, cA).Copy Cells(zz, cc)
If IsEmpty(Cells(1, cc)) Then _
Cells(1, 1).Resize(, cA).Copy Cells(1, cc)
Rows(zz + varM).Delete
varM = Application.Match(Cells(zz, cI), _
Range(Cells(zz + 1, cI), Cells(lngZ, cI)), 0)
Wend
Next zz
With ActiveSheet
If .AutoFilterMode Then .AutoFilterMode = False
End With
Cells(1, 1).AutoFilter
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Tabelle mit VBA umstellen
18.11.2009 12:58:36
Erwin_Geer
Hallo Erich,
toll funktioniert so wie ich es brauche und meine nachfolgenden Makros ebenso.
Herzlichen Dank
Erwin
;

Forumthreads zu verwandten Themen

Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Kopieren in nächst freie Spalte
Wolle27

Hallo liebe Excel-Gemeinde,
vielleicht kann mir jemand helfen.
Ich mache bestimmte Eingaben, in eine Excel Tabellenblatt. z.B. Spalte A
Spaltenkopf ist heutiges Datum.
Nachdem alle Eingaben erledigt sind, sollen die daraus erzeugten Ergebnisse in eine andere Tabelle mit Spaltenk...
19.09.2009 15:56:11
Thread-ID: 1104091
6 Beiträge
Anzeige
Zellen nach unten ziehen
welga

Hallo,
ich glaube ich stehe zur Zeit voll auf dem Schlauch.
Ich habe in Spalte A die Zahlen 1 bis 1024. Dann habe ich noch B1=A1, B2=A4, B3=A7, B4=A10. Da es aber zu mühsam ist die einzelnen Zellen in Spalte B von Hand zu füllen, habe ich versucht alle ausgefüllten Zellen zu markieren u...
22.09.2009 11:14:07
Thread-ID: 1104593
3 Beiträge
Zelle nach unten und nächste Spalte analysieren
igoryg

Hallo an alle!
ich habe folgene Formel:
=WENN($D$5="x";ZÄHLENWENN(BL5:BL$21;1); )
Wenn ich diese Zelle einfach nach unten ziehe bekomme ich das da:
=WENN($D$5="x";ZÄHLENWENN(BL6:BL22;1); )
Mein Problem ist, dass ich das haben möchte:
=WENN($D$5="x";ZÄHLENWENN(BM5:BM21;1)...
22.07.2010 16:09:44
Thread-ID: 1168405
3 Beiträge
Formeln in gefilteter Liste nach unten kopieren
Mary

Hallo Cracks,
ich habe eine riesige Excel-Datei und aus dieser auf einem neuen Tabellenblatt eine Pivot-Tabelle per VBA erstellt. Darin erstelle ich dann (wieder über Makro) Formeln in der 4. Zeile. Nun filtere ich die Pivot nach einer bestimmten Spalte und möchte die Formeln der 1. Zeile (...
20.08.2010 10:51:53
Thread-ID: 1173298
4 Beiträge
Anzeige
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
Anzeige
Nach rechts kopieren von gestern vielleicht Peter
gestern

Guten Abend allerseits, hatte gestern ein Problem, was Peter (Peter Feustel) gelöst hatte.
Nun habe ich festgestellt, wenn eine Zahl in der 1. Spalte nicht drin steht, wird diese Reihe
(Zeile) nicht kopiert.
Vielleicht kann jemand schauen, habe in der Zelle C30+C33 mal die Zahl gelö...
20.06.2011 21:22:51
Thread-ID: 1219028
7 Beiträge
Formel nach unten kopieren
chris58

Hallo!
Ich habe eine Verknüpfung auf einem Tabellenblatt. Da immer wieder Zeilen dazukommen, würde ich gerne die untenstehende Formel immer wieder weiter nach unten auf die nächsten Zeilen ziehen.
Wenn ich das $ - Zeichen weglasse, dann kommt nicht das richtige Feld in die Verknüpfte Da...
25.06.2011 22:11:54
Thread-ID: 1219689
19 Beiträge
Formel für oben nach unten
Schmausi

Salü Zusammen,
Ich habe folgende Formel: =SUMME(D5*F5) die rechnet mir die Stückzahl mal Preis aus, so habe ich dann den Gesamtpreis aller Stuckzahlen. Jetzt bräuchte ich aber noch die Formel für oben nach unten: alle Gesamtpreise zusammen.
wer kann mir da helfen?
Gruss
Schmausi...
03.10.2011 18:11:30
Thread-ID: 1232444
3 Beiträge
Anzeige
Spalte nach unten ausfüllen, Bezug auf Zellen
Janet

Hallo Zusammen
Seid einigen Tagen versuche ich das nun hinzubekommen.
Ich finde einfach keine Lösung trotz lesen div.Berichte ect.
Nun hoffe ich auf Eure Hilfe.
Es betrifft folgendes:
Tabelle Übersicht mit Spalten (ich nenne sie Tab1)
A B C D E
Tabelle Verzeichnis mi...
08.08.2012 11:40:12
Thread-ID: 1274205
4 Beiträge
vba foreln nach rechts kopieren
Manu

Hallo Profis,
ich brauche wieder einmal Eure Hilfe.
Ich habe in den Zellen B20:B32 Formeln und möchte diese nun per Makro nach rechts kopieren, wobei die letzte benutzte Spalte variabel ist.
Ich habe es mit autofill versucht, bekomme es aber nicht hin.
Könnt Ihr mir helfen?
...
09.12.2012 17:52:57
Thread-ID: 1289961
6 Beiträge
Markiere Felder (für Kopieren) nach Formelauswahl
JAT

Hallo liebes Forum,
aus einer Tabelle mit verschiedenen Datensätzen (ja Spalte) wird per Formel festgelegt, wie viele der Datensätze bestimmte Vorgaben erfüllen. Dies als Voraussetzung.
Meine Frage:
Ich möchte diejenigen Datensätze, welche lt. Formel die Vorgaben erfüllen gern derar...
30.12.2012 19:45:09
Thread-ID: 1292426
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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