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

Schleife mit Überprüfung von Werten und Kopieren

Forumthread: Schleife mit Überprüfung von Werten und Kopieren

Schleife mit Überprüfung von Werten und Kopieren
13.11.2006 13:02:40
Werten
Guten Tag verehrte Excel-Gemeinde,
das Problem an sich dürfte wohl nicht schwer sein, allerdings muss ich es sehr schnell fertig haben und habe momentan nicht die Zeit mich einzulesen.
Also Folgendes:
Ich möchte in den Zeilen 1 bis 500 die Spalte H überprüfen lassen; wenn der Wert in Spalte H gleich "K" ist, dann soll der Wert von Spalte F der jeweiligen Zeile in Spalte E der jeweiligen Zeile kopiert werden. Ist der Wert nicht gleich "K", dann soll von Spalte F in Spalte D kopiert werden. Außerdem darf das Programm nicht zusammenbrechen, wenn in Spalte H kein Wert steht.
Ich denke, das geht mit einer for-Schleife, aber wie genau weiss ich leider nicht. Bin für jede Antwort dankbar.
Gruß
Christian
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Schleife mit Überprüfung von Werten und Kopier
13.11.2006 13:08:43
Werten
Hallo
Probier mal
Option Explicit

Sub Programm()
Dim i As Long
Dim suchCol As Integer, copyCol As Integer
Dim case1Col As Integer, case2Col As Integer
Dim suchName As String
suchName = "K"
suchCol = 8 'H
copyCol = 7 'F
case1Col = 5 'E
case2Col = 4 'D
For i = 1 To 500
If Not IsEmpty(Cells(i, suchCol)) Then
If Cells(i, suchCol) = suchName Then
Cells(i, copyCol).Copy Cells(i, case1Col)
Else
Cells(i, copyCol).Copy Cells(i, case2Col)
End If
End If
Next i
End Sub

Gruss Rainer
Anzeige
AW: Schleife mit Überprüfung von Werten und Kopieren
13.11.2006 13:08:47
Werten
Hallo,

Sub ttt()
Dim i As Integer
For i = 1 To 500
Select Case Cells(i, 8)
Case ""
Case "K": Cells(i, 6).Copy Cells(i, 5)
Case Else: Cells(i, 6).Copy Cells(i, 4)
End Select
Next
End Sub

Gruß
Rudi
AW: Schleife mit Überprüfung von Werten und Kopieren
13.11.2006 13:27:34
Werten
Wahnsinn, dieses Forum ist wirklich top!
Nach 5 Min. schon 2 Lösungen, die beide super funktionieren.
Vielen lieben Dank
Christian
Anzeige

Forumthreads zu verwandten Themen

kopieren und einfügen - werte überschreiben
Bastian

hallo zusammen,
ich habe schon wieder eine frage:
1.
ich habe eine tabelle in der verschiedene werte eingetragen werden. (in tabelle c immer der gleiche wert)
2.
danach sollen alle werte kopiert und unter den alten eingefügt werden.
jetzt soll die beschriftung in einer s...
22.09.2008 17:23:30
Thread-ID: 1011531
5 Beiträge
Werte In Tab 2 suchen und nach Tab 1 kopieren
Peter_weber

Liebe Experten,
versuche gerade VBA zu erlernen, um bestimmte wiederkehrende Abfragen schneller durchzuführen.
Wie könnte ein VBA Makro für folgendes Problem aussehen. Als Anfänger bin hier hoffnungslos überfordert.
Also
- ich habe eine Abfragemaske im Worksheet "Werte-Eingeben...
15.04.2009 09:50:31
Thread-ID: 1068812
5 Beiträge
Werte filtern und "kopieren"
Sören

Hallo Expertenteam!
Ich benötige eure Hilfe. Es gibt ein Tab-.Blatt mit einer riesiegen Matrix aus der Werte in ein anderes Tab.-Blatt sollen. Dafür müssen verschiedene Bedingungen erfüllt werden. Zum einen muss aus Spalte A ein Wert identisch sein und dann müssen aus einer 6stelligen Angab...
05.12.2009 22:55:30
Thread-ID: 1121996
6 Beiträge
Nur Werte und Formate kopieren
edie

Hallo zusammen,
das nachfolgende Makro funktioniert soweit, leider werden die Formeln mitkopiert.
Ich schaffe es nicht, dass nur die Werte und die Formate kopiert werden.
Und so funktioniert es nicht: rngBereich.Copy wbTarget.Cells(intZeile, 1) .PasteSpecial,
da die Zelle nicht...
14.01.2010 21:56:59
Thread-ID: 1130061
3 Beiträge
Zeilenwerte auslesen und ganze Zeilen kopieren
Kristopher

Hallo an alle,
leider bin ich ein absoluter VBA-Neuling und relativ schnell mit einem – für mich – großen „Programm“ betraut worden.
Es gibt zwei Dokumente, im ersten Dokument (A) soll jeweils der Wert der Spalte C geprüft werden. Wenn der Wert = 1 ist, dann soll er in der gleichen Zeil...
21.04.2010 12:11:44
Thread-ID: 1152936
3 Beiträge
nur werte und keine zellbezüge kopieren
klaus

hallo zusammen.
folgender code kopiert mir einen zellbereich. der eintrag erfolgt dabei nicht als wert sondern über einen zellverweis. wie kann ich es erreichen, dass der eintrag als wert erfolgt? "TM_....." sind benannte zellbereiche.
freue mich auf eine antwort klaus Sub VerfahrenZuge...
30.07.2010 15:36:14
Thread-ID: 1169733
3 Beiträge
Inhalt und Formatierung per Mausklick kopieren
Christian

Hallo Leute,
ich bin VBA-Anfänger und benötige daher eure Hilfe für ein Makro:
Ich möchte eine beliebige Zelle mit Text/Zahleninhalt UND Formatierung (hier: Hintergrundfarbe) per Doppelklick in die Zwischenablage kopieren und dann per LINKSklick in eine andere beliebige Zelle wieder ein...
01.01.2011 18:07:44
Thread-ID: 1193514
9 Beiträge
VBA: Zellbereiche unformatiert kopieren
Fritz_W

Hallo Forumsbesucher,
ich würde gerne per VBA die Zellinhalte der Zellbereiche H7:J30, H36:J39; H42:J43 und H46:J46 kopieren (in der Beispieltabelle die Zellen mit gelbem Hintergrund) und unformatiert an anderer Stelle der Tabelle einfügen. Die Einfügeposition soll immer durch die erste lee...
27.05.2012 00:31:48
Thread-ID: 1265018
13 Beiträge
Anzeige
werte vergleichen und kopieren
Puma

Ich habe in der Tabelle1, Spalte1 100 unterschiedliche Zahlen untereinander stehen. In der Tabelle2; Zeile1 stehen 10 beliebige Zahlen aus den 100. Nun soll verglichen werden wo die Zahl aus Tabelle1 und Tabelle2 gleich sind. Dann der Zellinhalt 5 Zellen unterhalb des gefundenen Wertes in die S...
25.06.2002 15:30:36
Thread-ID: 131264
4 Beiträge
VBA nur Werte und Formate kopieren -- Fehlersuche
WalterK

Hallo,
mit dem folgenden Code möchte ich einen Tabellenbereich in eine neu erstellte Datei kopieren, es sollen aber nur die Werte eingefügt und die Formate übernommen werden, aber keine Formeln.
1.) bei der Zeile PasteSpecial xlPasteValues kommt der Fehler: Fehler beim Kompilieren: Synt...
29.11.2013 14:04:21
Thread-ID: 1340565
7 Beiträge
VBA - Buchhaltungsformat mit kopieren
jones

Hallo,
ich habe eine Frage an Euch, es geht um folgenden code, der aus einem Tabellenblatt bestimmte Zellen per Knopfdruck in das Tabellenblatt "Datenbank" kopieren soll. Soweit so gut, nur dass Zelle K43 und K40 im Buchhaltungsformat sind und der Betrag (Euro) nicht mit kopiert wird. Auch...
24.09.2014 12:45:31
Thread-ID: 1383169
9 Beiträge
Wertebereich suchen und kopieren
stormlamp

Hallo Zusammen,
In Tabellen1 ziehe ich aus anderen Tabellen über Formeln Werte zusammen. Dabei sind in Tabelle1 soviele Zeilen mit Formeln gefüllt, wie maximal zusammenkommen können.
Nun möchte ich per Makro den Bereich, der tatsächlich Werte enthält ans Ende von Tabelle2 übertragen. In...
29.09.2014 15:25:04
Thread-ID: 1383951
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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