Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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

79 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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 Copy nur Werte und Formate
Uwe

Hallo,
ich habe in meinem Makro folgendn Kopierbefehl:
With wksName
.Range(.Cells(cZeile_1, cSpalte_Copy), .Cells(cZeile_L, cSpalte_Copy)).Copy _
Destination:=wksGesamt.Cells(cZeileName + 1, lngSpalte)
Application.CutCopyMode = False
Dieser Befehl kopiert aber die komple...
03.02.2013 01:38:07
Thread-ID: 1297264
4 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
4
5
2
2
2
8
12
3
3
6
8
7
4
6
5
4
9
3
2
2
4
5
31
14