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

VBA Schleife für gleiche Zellenwerte

Forumthread: VBA Schleife für gleiche Zellenwerte

VBA Schleife für gleiche Zellenwerte
12.06.2013 16:02:38
Claudia
Hallo zusammen,
nachdem ich schon sehr lange nicht mehr mit VBA gearbeitet habe fehlt mir jeglicher Ansatz für eine Schleife, die folgende Aufgabe hat:
Ich habe eine Tabelle mit 4 Spalten. In Spalte A können untereinander gleiche Werte mehrfach vorkommen. Solange der Wert gleich ist, sollen die zugehörigen Zeilenwerte der Spalten B bis D jeweils an das Ende der ersten Zeile (Wert in Spalte A kommt erstmals vor)gesetzt werden.
Hier ein Beispiel:
https://www.herber.de/bbs/user/85787.xlsx
Wäre toll wenn mir jemand helfen könnte, um wieder den Einstieg zu finden.
Viele Grüße
Claudia

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Schleife für gleiche Zellenwerte
12.06.2013 16:40:45
Rudi
Hallo,
eine Möglichkeit: 
Sub Trans()
Dim Z1 As Long, Z2 As Long, S1 As Long
Application.ScreenUpdating = False
Range("A1:D2").Copy Sheets(2).Range("A1:D2")
S1 = 2
Z2 = 2
For Z1 = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(Z1, 1) = Cells(Z1 - 1, 1) Then
S1 = S1 + 3
Cells(Z1, 2).Resize(, 3).Copy Sheets(2).Cells(Z2, S1)
Cells(1, 2).Resize(, 3).Copy Sheets(2).Cells(1, S1)
Else
S1 = 2
Z2 = Z2 + 1
Cells(Z1, 1).Resize(, 4).Copy Sheets(2).Cells(Z2, 1).Resize(, 4)
End If
Next
End Sub

Gruß
Rudi

Anzeige
AW: VBA Schleife für gleiche Zellenwerte
12.06.2013 17:22:02
Claudia
Hallo Rudi,
besten Dank für die schnelle Antwort und es funktioniert perfekt.
Viele Grüße, Claudia
;

Forumthreads zu verwandten Themen

vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Emailtext mit Schleife bis Zelle leer
Gonzer

Hallo zusammen,
ich würde gerne automatisch eine EMail per Excel erstellen lassen, was auch funktioniert, und dabei den Emailtext variabel gestalten.
Heisst also eine Schleife einbauen bis in Spalte B kein Wert mehr enthalten ist:
Sub sendMail() Dim OutApp As Object, OutMail As Obje...
11.03.2010 09:03:45
Thread-ID: 1145040
8 Beiträge
VBA - nicht schliessen wenn Pflichtfelder leer
MT

Hallo,
ich habe mal wieder ein kleines Problem in Excel - was für euch sicherlich (hoffentlich) ne Kleinigkeit ist.
Und zwar habe ich eine Mustervorlage erstellt, bei der gewissen Pflichtfelder auszufüllen sind. Diese sind für eine bessere Sichtbarkeit entsprechend grau hinterlegt.
13.09.2011 13:09:34
Thread-ID: 1229666
3 Beiträge
VBA leere Zellen füllen
Erik

Hallo zusammen,
ich würde gern per Buttonklick eine Abfrage starten wollen, wobei bestimmte Zellen auf leere Zellen gecheckt werden und wenn welche vorhanden sind, in diese ein "n.b." schreibt.
Mein ansatz:
Sub button() If Sheets(Tabelle1).Cells(1, 1).Value = "" Then Sheets(Tabelle...
01.06.2012 10:19:56
Thread-ID: 1265689
3 Beiträge
VBA Datei öffnen und darin 1. leere Zelle finden
Steve

Hello ihr Profis,
ich stehe irgendwie auf dem Schlauch und hoffe ihr könnt helfen. Es soll einfach nur geprüft werden of eine Datei vorhanden ist. Wenn diese NICHT vorhanden ist, soll eine bestimmte Excel Tabelle geöffnet und in dieser nach der ersten freien Zelle gesucht werden. Ich dachte...
07.02.2014 12:46:16
Thread-ID: 1348494
9 Beiträge
VBA - Formel ändern wenn Zelle nicht leer
Thomas

Hallo,
ich brauch bitte Hilfe, weil ich an folgender Aufgabenstellung hänge:
Ich verwende in Spalte N folgende Formel:
=WENN($M2="";"";INDEX(Preismatrix!$E$5:$E$200;VERGLEICH($M2;Preismatrix!$D$5:$D$200;0)))
Nun muss ich diese Formel per Buttondruck von E5:E200 in F5:F200 ändern...
15.10.2014 15:25:28
Thread-ID: 1386815
6 Beiträge
VBA-Code: Schleife wird nicht durchlaufen...
Florian

Hallo zusammen,
ich habe mir eine kleine Funktion in VBA geschrieben; hierbei soll eine Schleife durchlaufen werden, solange ein gewisses Datum vorliegt.
Während dieses Durchlaufs sollen, falls "bessere" Lösungen gefunden werden, diese jeweils gespeichert werden...Leider wird die Schle...
21.11.2014 10:16:07
Thread-ID: 1393659
3 Beiträge
VBA Schleife Loeschen von best. Zeilen
best.

Liebes Forum,
ich habe eine Tabelle mit sehr vielen Zeilen in der folgenden Form
Artikelnummer Maschine Fertigungsauftrag Datum Menge Zyklus
Nun soll ein Makro ueber diese Tabelle laufen und zunaechst bei allen Artikeln, die haeufiger als 5x vorkommen, jeweils die Zeilen mit dem ael...
08.03.2015 08:02:50
Thread-ID: 1413538
9 Beiträge
VBA Schleife Zellen auswählen und selektieren
Andreas

Hallo,
trotz langem Suchen habe ich keine Lösung gefunden. Ich hoffe Ihr könnt mich helfen.
Folgende Ausgangssituation:
- Mappe „Makro“ befindet sich nur ein Button mit meiner Makro.
- In der Mappe „Daten“ befinden sich alle Informationen die selektiert und kopiert werden sollen...
08.06.2015 14:34:45
Thread-ID: 1429823
4 Beiträge
VBA: alle leeren Zellen mit Formeln leeren
Honigdachs

Liebes Forum,
ich will die erste leere Zelle in Spalte A finden (Mit leer meine ich hier leer vom Inhalt, aber nicht echt leer.) und alle leeren, aber mit Formeln befüllten Spalten und Reihen rechts daneben und darunter leeren, also die Formeln rauslöschen.
Mein Ansatz ist:
With She...
27.05.2016 13:43:46
Thread-ID: 1495578
10 Beiträge
Anzeige
VBA: Leere Zelle finden und ganze Zeilen einfügen
Juliane

Hallo,
ich möchte gern 7 Zeile an einer anderen Stelle einfügen. Diese andere Stelle befindet sich am Ende der Liste (gleicher Reiter), dort wo Spalte A das erste mal leer ist.
So weit ich weiß, ist das mehr oder weniger "Standard" in VBA. Trotzdem komme ich mit meiner Recherche im Inte...
10.06.2016 14:24:10
Thread-ID: 1498232
5 Beiträge
Anzeige
VBA - SVERWEIS in einer Spalte bis leere Zelle
Spies

Hallo zusammen,
Ich möchte mit Hilfe eines Makro-Steuerelements einen in VBA programmierten SVERWEIS durchführen, der in einer definierten Spalte und einer definierten Zelle beginnen soll bis er in der Spalte auf die erste leere Zelle stösst. Die Daten für den SVERWEIS stehen in einem ander...
02.12.2016 11:22:09
Thread-ID: 1528336
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA Schleife für gleiche Zellenwerte in Excel

Schritt-für-Schritt-Anleitung

Um eine VBA Schleife für gleiche Zellenwerte in Excel zu erstellen, folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen und wähle Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub Trans()
   Dim Z1 As Long, Z2 As Long, S1 As Long
   Application.ScreenUpdating = False
   Range("A1:D2").Copy Sheets(2).Range("A1:D2")
   S1 = 2
   Z2 = 2
   For Z1 = 3 To Cells(Rows.Count, 1).End(xlUp).Row
       If Cells(Z1, 1) = Cells(Z1 - 1, 1) Then
           S1 = S1 + 3
           Cells(Z1, 2).Resize(, 3).Copy Sheets(2).Cells(Z2, S1)
           Cells(1, 2).Resize(, 3).Copy Sheets(2).Cells(1, S1)
       Else
           S1 = 2
           Z2 = Z2 + 1
           Cells(Z1, 1).Resize(, 4).Copy Sheets(2).Cells(Z2, 1).Resize(, 4)
       End If
   Next
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus: Drücke ALT + F8, wähle Trans aus der Liste und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004"

    • Lösung: Stelle sicher, dass die Zielarbeitsmappe (Sheets(2)) existiert und nicht geschützt ist.

  • Fehler: Falsche Daten werden kopiert

    • Lösung: Überprüfe, ob die Zellen in Spalte A korrekt formatiert sind und keine Leerzeichen enthalten.

Alternative Methoden

Wenn Du keine VBA verwenden möchtest, kannst du die Funktion Daten -> Duplikate entfernen nutzen, um gleiche Werte in Spalte A zu konsolidieren. Allerdings wird hierbei nicht die gleiche Flexibilität wie bei einer VBA-Lösung geboten.

Praktische Beispiele

Angenommen, Du hast folgende Daten in Spalte A:

A B C D
Apfel 1 2 3
Apfel 4 5 6
Banane 7 8 9
Banane 10 11 12

Nach dem Ausführen des Makros wird die Tabelle in Sheet 2 wie folgt aussehen:

A B C D
Apfel 1 2 3
4 5 6
Banane 7 8 9
10 11 12

Tipps für Profis

  • Verwende Option Explicit: Füge an den Anfang Deines Moduls Option Explicit hinzu, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.
  • Dokumentiere Deinen Code: Schreibe Kommentare im Code, um die Funktionsweise jeder Zeile zu erklären. Dies ist besonders hilfreich für die Wartung später.
  • Teste in einer Kopie der Datei: Führe das Makro zuerst in einer Kopie Deiner Datei aus, um sicherzustellen, dass alles wie gewünscht funktioniert.

FAQ: Häufige Fragen

1. Frage
Was mache ich, wenn das Makro nicht funktioniert?
Antwort: Überprüfe, ob alle Zellen korrekt formatiert sind und dass Du die korrekten Zellreferenzen im Code verwendest.

2. Frage
Kann ich den Code anpassen, um mehr Spalten zu verarbeiten?
Antwort: Ja, Du kannst die Resize-Funktion im Code anpassen, um mehr oder weniger Spalten zu kopieren, je nach Bedarf.

Beliebteste Forumthreads (12 Monate)

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