Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1344to1348
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
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Code Doppelte Werte kopieren

VBA-Code Doppelte Werte kopieren
21.01.2014 10:15:32
Giovanni
Hallo Zusammen
Ich habe ein Problem und würde es gerne mit VBA lösen. Zurzeit arbeite ich viel mit Makrorecorder und passe meinen Code meinen Bedürfnissen an. Mit Schleifen habe ich noch keine grossen Erfahrungen, und ich denke mein Problem könnte man gut in einer Schleife lösen.
In Spalte H sind Werte, die ich mit Spalte G vergleichen muss. In Spalte G sind manche Werte doppelt und muss sie dann in der gleichen Zeile in Spalte H einfügen. Manuel geht das sehr lange da ich etwa 1000 Werte anpassen müsste. Cool wäre zusätzlich das Datum, dass ich in Spalte I habe, kopiere und eine Zeile weiter unten einfüge. Ich freue mich auf jede Antwort.
Userbild
Gruss Giovanni

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Aufgabenstellung unklar
21.01.2014 10:42:49
Matze
Hallo Giovanni,
- In Spalte H sind Werte, die ich mit Spalte G vergleichen muss (ok)
- In Spalte G sind manche Werte doppelt und muss sie dann in der gleichen Zeile in Spalte H einfügen.
( sollen die alten Werte mit dem doppelten Wert ersetzt werden?)
- Cool wäre zusätzlich das Datum, dass ich in Spalte I habe, kopiere und eine Zeile weiter unten einfüge. (Keine Ahnung was du damit sagen willst,)
Bilder sind schlecht zum Nachbau geeignet, stell doch gleich eine Musterdatei ein, die kann man gleich bearbeiten mit Blatt1 Istzustand - Blatt2 Sollzustand
Ob ich das hinbekomme sehen wir dann,
Gruß Matze

Anzeige
Lösungsvorschlag
21.01.2014 10:50:02
Klaus
Hi Giovanni,
wenn ich dich richtig verstanden habe, müsste folgender Code es in etwa sein:
Userbild
Grüße,
Klaus M.vdT.

AW: Lösungsvorschlag
22.01.2014 09:27:14
Giovanni
Hallo Klaus
Ich konnte das ganze einigermassen lösen, musste noch zusätzlich einen code einfügen. Wenn ich den Code ausführe, braucht es sehr sehr lange. Excel hängt sich immer wieder auf.
Kann ich an der Geschwindigkeit was ändern?
Gruss Giovanni
Sub hhhh()
Dim i As Long
Dim j As Long
i = 3
j = i
With ActiveSheet
Do
.Range(.Cells(j, 7), .Cells(i, 7)).Select
If WorksheetFunction.CountIf(.Range(.Cells(j, 7), .Cells(i, 7)), .Cells(i, 7).Value) >   _
_
1 Then
.Rows(i - 1).Insert shift:=x1Down
.Cells(i - 1, 8).Value = .Cells(i, 7).Value
.Cells(i + 1, 9).Value = .Cells(i, 9).Value
i = i + 1
End If
i = i + 1
Loop Until .Cells(i, 7).Value = ""
End With
End Sub
Sub Leerzellen()
Dim Bereich As Range
Set Bereich = Range("A3:s33390")
Bereich.Select
Selection.SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
End Sub

Anzeige

328 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Anzeige
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 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
7
1
2
3
10
2
8
2
2
5
7
6
1
4
7
3
1
5
5
6
8
2
2
8
1