Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.07.2025 18:27:02
Mandatory fields for button & unhide/hide tabs and rows
18.07.2025 17:14:25
Zellen markieren mit relativen Verweisen
18.07.2025 12:37:01
VBA - Erst nach Änderung einer Zelle --> ander Zellen leeren
18.07.2025 11:14:10
VBA "SaveAs" funktioniert nicht mehr
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Werte ohne Formeln kopieren und einfügen

Forumthread: Nur Werte ohne Formeln kopieren und einfügen

Nur Werte ohne Formeln kopieren und einfügen
29.02.2016 10:59:10
Dove
Hallo zusammen,
kann mir jemand einen Tipp geben, wie ich meinen Code anpassen muss, damit er nur Werte (ohne Formeln) kopiert und einfügt.
strS = InputBox("Suchbegriff:", Value "", strS)
If StrPtr(strS) = 0 Or Len(strS) = 0 Then Exit Do
Set rngT = Rows(1).Find(What:=strS, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).EntireColumn.Copy
Sheets.Add After:=Worksheets(Worksheets.Count)
Sheets(Worksheets.Count).Paste Destination:=Sheets(Worksheets.Count).Columns("X:X")
ActiveSheet.Name = Range("X1")
Danke im Voraus

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Datenbearbeitung
Tags
#anpassung #makrohilfe #paste
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Nur Werte ohne Formeln kopieren und einfügen
29.02.2016 11:17:12
ChrisL
Hi Dove
Vielleicht so...
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim strS As String
strS = InputBox("Suchbegriff:", Value  "", strS)
If StrPtr(strS) = 0 Or Len(strS) = 0 Then Exit Sub
Set WS1 = ActiveSheet
If WorksheetFunction.CountIf(WS1.Columns(1), strS) > 0 Then
Set WS2 = Sheets.Add(After:=Worksheets(Worksheets.Count))
WS2.Columns(24).Value = WS1.Columns(1).Value
WS2.Name = WS2.Range("X1")
End If
End Sub

cu
Chris

Anzeige
AW: Nur Werte ohne Formeln kopieren und einfügen
29.02.2016 11:55:16
Dove
Hallo Chris,
ne funktioniert leider nicht. Es wird weder ein neues Sheet noch die Daten eingefügt.
Aber es kommt auch keine Fehlermedlung.
cu Dove

AW: Nur Werte ohne Formeln kopieren und einfügen
29.02.2016 12:43:57
ChrisL
Hi Dove
Wenn der Wert nicht gefunden wird, dann wird nicht kopiert.
Ich kann aber nur anhand deines Codes versuchen zu erraten, was du eigentlich möchtest. Danach suchst du den Wert (ganzer Wert nicht Teilstring) in Spalte A und wenn der Wert gefunden wird, wird alles auf neues Blatt Spalte X kopiert.
cu
Chris

Anzeige
AW: Nur Werte ohne Formeln kopieren und einfügen
01.03.2016 07:57:22
Dove
Hallo Chris,
dann versuch ich es genauer zu erklären.
Ich habe eine Tabelle aus der ganz am Ende ein Pivot Chart erstellt wird. Ich gebe über eine Inputbox die gewünschte Spalte eine, wenn das Makro sie findet, soll es alle Werte aus der Spalte in ein neues Sheet in die Spalte X einfügen.
Die Werte in der Spalte dienen dann als Quelldaten für die Pivot Charts.
Da in der Tabelle aber auch Formeln vorkommen können, muss ich mein Makro so anpassen, dass es nur die Werte kopiert.
Hoffe mit der Erklärung kannst du was anfangen :))
Cu Chris

Anzeige
AW: Nur Werte ohne Formeln kopieren und einfügen
01.03.2016 08:33:47
ChrisL
Hi Chris
Ich habe es jetzt nicht mit Pivot getestet, aber ich denke das Makro macht genau was du beschreibst.
Es gibt zwei Methoden um Werte zu übernehmen. PasteSpecial oder eben...
WS2.Columns(24).Value = WS1.Columns(1).Value
Da du kein eigentlicher Search brauchst (Wert muss nur vorkommen), habe ich es mit Zählenwenn/CountIf gelöst.
cu
Chris
Anzeige

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
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
Werte aus einer anderen xls-File kopieren
Horst

Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Di...
08.10.2008 10:43:00
Thread-ID: 1014931
2 Beiträge
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Formel ganz ausblenden wenn Werte fehlen !?
nathan

Einen schönen Nachmittag,
kann ich ein Ergebnis in einer Formel solange ausblenden lassen, bis die benötigten Werte eingegeben wurden?
Beispiel:
E3 = 5
E4 = 7
E5 = (E3+E4)
Angezeigt wird: 12
E3 = 5
E4=
E5 = (E3+E4)
Nichts wird angezeigt.
oder
"We...
09.10.2008 15:18:01
Thread-ID: 1015360
2 Beiträge
in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Konkatinieren : kopieren funktioniert nicht
stelud

Hallo,
in Spalte E will ich eine Konkatinierung der Spalten A - D haben - dies löse ich wie folgt :
=$A$1&$B$1&$C$1&$D$1
Ergebnis eine Zeile :
A B C D E
1 2 3 4 1234
wenn ich aber nun diese Formel in Zeile2 kopiere, wird der Index nic...
04.11.2008 09:10:59
Thread-ID: 1021470
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige