Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1316to1320
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
Anzeige

320 Forumthreads zu ähnlichen Themen

VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Anzeige
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
wert per VBA in nächste leere zelle schreiben
Michael

hallo!
ich brauche bitte hilfe. ich habe eine leere tabelle und möchte diese mit werten füllen. allerdings nur so, dass kein wert doppelt vorkommt. habe folgenden ausdruck, hänge jetzt aber. die kontrolle funktioniert, nur das einfügen in die nächste leere zelle der spalte A bekomme ich nic...
26.06.2010 09:55:04
Thread-ID: 1164138
6 Beiträge
Anzeige
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: Wenn nicht leer, dann
Stephan

Hallo.
Wie jeden Tag um die Uhrzeit eine kurze Frage ;)
Falls KEIN Bild in meinem Frame zu sehen ist, so soll das Sub beendet werden.
Für den umgekehrten fall ist das ja ganz einfach: If Userform1.Frame1.Picture Is Nothing Then Exit Sub
Nur wie beschreibe ich "Falls ein Bild...
23.01.2013 10:17:47
Thread-ID: 1295573
4 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
Anzeige

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
4
7
7
5
2
2
3
8
5
2
23
8
3
2
9
4
9
3
1
8
1
16
1
2
5