Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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 -

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

300 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
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
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
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
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
5
2
7
2
3
3
6
18
2
6
3
5
5
4
1
5
1
3
7
1
1
1
3