Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zellen Kopieren wenn diese Bedingungen erfüllt

VBA Zellen Kopieren wenn diese Bedingungen erfüllt
10.11.2017 10:46:20
Mario
Hallo,
ich hoffe mir kann jemand helfen :-)
Ich benötige Hilfe bei einem Problem, ich will mittels VBA den Zellinhalt (Ausgabetext) der Zellen aus der Zeile 4 von Spalte D bis FC in die Zeile 2 Kopieren, aber nur wenn der Zellinhalt mit den Buchstaben "PV VN" beginnt. (Alternativ, immer dann wenn kein Fahler #NV angezeigt wird, vielleicht geht das ja auch)
Alles in Tabelle 2
Ist das möglich?
Dankeschön für einen Tipp!!
LG Mario

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zellen Kopieren wenn diese Bedingungen erfüllt
10.11.2017 11:05:09
Werner
Hallo Mario,
das ist nicht eindeutig.
-kann PV VN bzw. #NV in mehreren Zellen der Zeile stehen?
-muss nur eine bestimmte Spalte auf PV VN bzw. #NV überprüft werden?
-wohin soll kopiert werden, gleiche Tabelle Zeile 2, andere Tabelle Zeile 2 ?
Am besten machst du mal eine kleine Beispielmappe in der du auch dein Wunschergebnis aufzeigst und stellst die hier online.
Gruß Werner
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 11:19:19
Mario
Hallo Werner,
ja, "PV VN-138-2016" oder "PV VN-36-2017" (die Werte nach den Buchstaben PV VN ändern sich immer) können in der ganzen Zeile 4 stehen (Spalte D bis FC), wenn die vorangehende Funktion keinen Wert mit PV VN findet erscheint #NV.
Wenn PV VN gefunden wurde dann soll in der selben Tabelle (Tabelle2) der Wert in der selben Spalte in die Zeile 2 kopiert werden, falls #NV gefunden wurde dann nicht.
Hoffe das hilft.
Gruß Mario
Anzeige
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 11:34:08
Werner
Hallo Mario,
so? 
Public Sub aaa()
Dim raBereich As Range, raZelle As Range
With Worksheets("Tabelle3") 'anpassen
Set raBereich = .Range(.Cells(4, 4), .Cells(4, 159))
For Each raZelle In raBereich
If Left(raZelle.Value, 5) = "PV VN" Then
raZelle.Offset(-2, 0) = raZelle
End If
Next raZelle
End With
End Sub
Gruß Werner
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 11:49:02
Mario
Hallo,
da komt eine Fehlermeldung zu dieser Zeile
With Worksheets("Tabelle3") 'anpassen
Laufzeitfehler '9: Index außerhalb des gültigen Bereichs
LG Mario
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 11:51:41
Werner
Hallo Mario,
da steht doch als Kommentar "anpassen".
Dann hast du keine Tabelle mit dem Namen Tabelle3, das mußt du an deine Gegebenheiten anpassen.
Gruß Werner
Anzeige
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 11:54:39
Mario
die Fehlermeldung kommt aber auch wenn ich es auf "Tabelle2" anpasse
sorry, habe echt keine Ahnung was ich falsch mache
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 11:56:00
Mario
habe es so drin stehen:
Sub ATLAS_Schaltfläche1_Klicken()
' ATLAS_Schaltfläche1_Klicken Makro
' Tastenkombination: Strg+a
Dim raBereich As Range, raZelle As Range
With Worksheets("Tabelle2")
Set raBereich = .Range(.Cells(4, 4), .Cells(4, 159))
For Each raZelle In raBereich
If Left(raZelle.Value, 5) = "PV VN" Then
raZelle.Offset(-2, 0) = raZelle
End If
Next raZelle
End With
End Sub

AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 12:24:06
Werner
Hallo Mario,
ist das auch der Name so wie er auf dem Tabellenblattreiter steht?
Gruß Werner
Anzeige
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 12:30:45
Mario
ja, habe den Reiter jetzt in Tabelle2 umbenannt, dann kommt aber jetzt die Fehlermeldung Laufzeitfehler '13: Typen unverträglich und der debugger zeigt die Zeile
If Left(raZelle.Value, 5) = "PV VN" Then
markiert an
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 12:55:38
Werner
Hallo Mario,
für die Beispielmappe: 
Public Sub aaa()
Dim raBereich As Range, raZelle As Range
With Worksheets("Tabelle2") 'anpassen
Set raBereich = .Range(.Cells(4, 4), .Cells(4, 159))
For Each raZelle In raBereich
If Not IsError(raZelle) Then
If Left(raZelle.Value, 5) = "PV VN" Then
.Range("D2") = raZelle
End If
End If
Next raZelle
End With
Set raBereich = Nothing
End Sub
Gruß Werner
Anzeige
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 13:09:54
Mario
danke, aber jetzt wird nur die letzte gefundene in die Zelle D2 kopiert. Ich muss alle gefundenen in die selbe Spalte der Reihe 2 jeweisl kopieren.
sorr, danke nochmal!
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 13:57:27
Werner
Hallo Mario,
Public Sub aaa()
Dim raBereich As Range, raZelle As Range
With Worksheets("Tabelle2") 'anpassen
Set raBereich = .Range(.Cells(4, 4), .Cells(4, 159))
For Each raZelle In raBereich
If Not IsError(raZelle) Then
If Left(raZelle.Value, 5) = "PV VN" Then
raZelle.Offset(-2, 0) = raZelle
End If
End If
Next raZelle
End With
Set raBereich = Nothing
End Sub
Gruß Werner
Anzeige
AW: VBA Zellen Kopieren wenn diese Bedingungen er
10.11.2017 14:21:18
Mario
Mega!!!! Danke!
Gerne u. Danke für die Rückmeldung. o.w.T.
10.11.2017 14:41:07
Werner

300 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
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
Anzeige
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Zeilen kopieren wenn Bedingung erfüllt
Jupp

Hallo zusammen, ich Grüße euch,
das Forum und die Beiträge finde ich super
Heute wende ich mich als VBA-Neuling mit einem Problem an euch und hoffe, dass mir geholfen wird.
Ich habe eine Tabelle, die doch bereits eine erhebliche Zeilen und Spaltenanzahl erreicht hat.
Nun möchte...
18.03.2009 19:49:40
Thread-ID: 1061595
3 Beiträge
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
zellen kopieren wenn wert in bestimmter zelle
Andreas

hallo zusammen
im jeweils aktuellen tabellenblatt möchte ich bestimmte zellen kopieren wenn in der zelle B39 ein wert steht. danach soll die prozedur prüfen ob in der zelle B40 ein wert steht. wenn ja, sollen wieder bestimmte zellen kopiert werden.
die kopien sollen jeweils untereinande...
03.09.2009 17:47:27
Thread-ID: 1100439
2 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
16
2
5
2
2
2
2
5
3
1
14
3
3
2
5
5
1
3
4
1
4
10
2
1
2