vb@rchiv · Diskussionsforen · Hilfe bei VBA Code - Zeilen vergleichen in ganzer Tabelle

VB Classic
VB.NET
ADO.NET
VBA
C#

Mails senden, abrufen und decodieren - ganz easy ;-)

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[203 User online]
[174 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Visual-Basic Einsteiger

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Visual-Basic Einsteiger

Hilfe bei VBA Code - Zeilen vergleichen in ganzer Tabelle

Autor: spooky_hank
Datum: 09.05.08 08:53

Hallo, ich habe eine recht grosse Excel Liste. Ich muss ab Zeile 8 immer 2 Zeilen vergleichen. Wenn der Inhalt der Zeilen gleich ist sollen diverse Zellen kopiert werden. Wenn der Inhalt der Zeilen nicht gleich ist soll eine Zeile eingefügt werden, der Inhalt der vorhandenen Zeile in die neue Zeile kopiert werden. Dann sollen diverse Zellen wider kopiert werden. Das funktioniert mit diesem Code auch: ===== If Sheets("Tabelle1").Cells(9, 2).Value = Sheets("Tabelle1").Cells(10, 2).Value _ Then Sheets("Tabelle1").Cells(9, 6).Value = Sheets("Tabelle1").Cells(10, 5).Value Sheets("Tabelle1").Cells(9, 5).Value = Sheets("Tabelle1").Cells(10, 4).Value Sheets("Tabelle1").Cells(9, 9).Value = Sheets("Tabelle1").Cells(10, 8).Value Sheets("Tabelle1").Cells(9, 8).Value = Sheets("Tabelle1").Cells(10, 7).Value Sheets("Tabelle1").Cells(9, 12).Value = Sheets("Tabelle1").Cells(10, 11).Value Sheets("Tabelle1").Cells(9, 11).Value = Sheets("Tabelle1").Cells(10, 10).Value Sheets("Tabelle1").Cells(9, 15).Value = Sheets("Tabelle1").Cells(10, 14).Value Sheets("Tabelle1").Cells(9, 14).Value = Sheets("Tabelle1").Cells(10, 13).Value Sheets("Tabelle1").Cells(9, 18).Value = Sheets("Tabelle1").Cells(10, 17).Value Sheets("Tabelle1").Cells(9, 17).Value = Sheets("Tabelle1").Cells(10, 16).Value Sheets("Tabelle1").Cells(9, 21).Value = Sheets("Tabelle1").Cells(10, 20).Value Sheets("Tabelle1").Cells(9, 20).Value = Sheets("Tabelle1").Cells(10, 19).Value Sheets("Tabelle1").Cells(9, 24).Value = Sheets("Tabelle1").Cells(10, 23).Value Sheets("Tabelle1").Cells(9, 23).Value = Sheets("Tabelle1").Cells(10, 22).Value Else Rows("10").Select Selection.Insert Shift:=xlDown Sheets("Tabelle1").Rows(10).Value = Sheets("Tabelle1").Rows(9).Value Sheets("Tabelle1").Cells(9, 6).Value = Sheets("Tabelle1").Cells(10, 5).Value Sheets("Tabelle1").Cells(9, 5).Value = Sheets("Tabelle1").Cells(10, 4).Value Sheets("Tabelle1").Cells(9, 9).Value = Sheets("Tabelle1").Cells(10, 8).Value Sheets("Tabelle1").Cells(9, 8).Value = Sheets("Tabelle1").Cells(10, 7).Value Sheets("Tabelle1").Cells(9, 12).Value = Sheets("Tabelle1").Cells(10, 11).Value Sheets("Tabelle1").Cells(9, 11).Value = Sheets("Tabelle1").Cells(10, 10).Value Sheets("Tabelle1").Cells(9, 15).Value = Sheets("Tabelle1").Cells(10, 14).Value Sheets("Tabelle1").Cells(9, 14).Value = Sheets("Tabelle1").Cells(10, 13).Value Sheets("Tabelle1").Cells(9, 18).Value = Sheets("Tabelle1").Cells(10, 17).Value Sheets("Tabelle1").Cells(9, 17).Value = Sheets("Tabelle1").Cells(10, 16).Value Sheets("Tabelle1").Cells(9, 21).Value = Sheets("Tabelle1").Cells(10, 20).Value Sheets("Tabelle1").Cells(9, 20).Value = Sheets("Tabelle1").Cells(10, 19).Value Sheets("Tabelle1").Cells(9, 24).Value = Sheets("Tabelle1").Cells(10, 23).Value Sheets("Tabelle1").Cells(9, 23).Value = Sheets("Tabelle1").Cells(10, 22).Value End If End Sub Jetzt mein PROBLEM: Ich will mit diesem Code von "Zeile 8" bis "Ende der Liste" (z.Z. Zeile 4000) abarbeiten! Desweiteren kann man den Code bestimmt auch kürzen denke ich mal... Wer kann mir helfen ? Viele Grüß spooky_hank

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Hilfe bei VBA Code - Zeilen vergleichen in ganzer Tabelle	1.930	spooky_hank	09.05.08 08:53
Re: Hilfe bei VBA Code - Zeilen vergleichen in ganzer Tabell...	823	mst547	09.05.08 13:57
Re: Hilfe bei VBA Code - Zeilen vergleichen in ganzer Tabell...	725	spooky_hank	09.05.08 14:23

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen | Neu registrieren

Funktionen: Zum Thema | Gesamtübersicht Suchen

Neu! sevDTA 3.0 Pro

SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können.

Weitere Infos

Tipp des Monats

September 2025
Dieter Otter

Verschieben eines Fensters unterbinden

Details

Access-Tools Vol.1

Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB

Nur 24,95 EUR
Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel