Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
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
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereich kopieren, aber Formeln behalten

Zellbereich kopieren, aber Formeln behalten
Sascha
Hallo Experten,
Ich habe nochmals eine Frage...
Ich habe 2 Bereiche A40 - R40 und A60 - R60
Im Bereich A40 - R40 sind Zahlen vorhanden, auch NULLEN.
Im Bereich A60 - R60 sind in diversen Zellen Formeln erhalten.
Diese Formeln dürfen NICHT überschrieben werden.
Mit einem Makro möchte ich nun den Bereich A40 - R40 kopieren, aber nur die Zellen die grösser als 0 sind, und diese Werte in den Bereich A60 - R60 in die jeweilige Zellen (nur die die grösser als 0 im oberen Bereich sind) einfügen, so dass die anderen Zellen die eine Formel enthalten nicht geändert werden.
Ist dies mit VBA möglich?
Gruss Sascha

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

Betreff
Benutzer
Anzeige
AW: Zellbereich kopieren, aber Formeln behalten
03.02.2012 15:06:03
Sascha
Ich habs mal so gelöst:
If Sheets("Hilf").Range("A40") > 0 Then
Sheets("Hilf").Range("A40").Copy
Sheets("LW11").Range("AC3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("B40") > 0 Then
Sheets("Hilf").Range("B40").Copy
Sheets("LW11").Range("AD3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("C40") > 0 Then
Sheets("Hilf").Range("C40").Copy
Sheets("LW11").Range("AE3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("D40") > 0 Then
Sheets("Hilf").Range("D40").Copy
Sheets("LW11").Range("AF3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("E40") > 0 Then
Sheets("Hilf").Range("E40").Copy
Sheets("LW11").Range("AG3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("F40") > 0 Then
Sheets("Hilf").Range("F40").Copy
Sheets("LW11").Range("AH3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("G40") > 0 Then
Sheets("Hilf").Range("G40").Copy
Sheets("LW11").Range("AI3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("H40") > 0 Then
Sheets("Hilf").Range("H40").Copy
Sheets("LW11").Range("AJ3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("I40") > 0 Then
Sheets("Hilf").Range("I40").Copy
Sheets("LW11").Range("AK3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("J40") > 0 Then
Sheets("Hilf").Range("J40").Copy
Sheets("LW11").Range("AL3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("K40") > 0 Then
Sheets("Hilf").Range("K40").Copy
Sheets("LW11").Range("AM3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("L40") > 0 Then
Sheets("Hilf").Range("L40").Copy
Sheets("LW11").Range("AN3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("M40") > 0 Then
Sheets("Hilf").Range("M40").Copy
Sheets("LW11").Range("AO3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("N40") > 0 Then
Sheets("Hilf").Range("N40").Copy
Sheets("LW11").Range("AP3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("O40") > 0 Then
Sheets("Hilf").Range("O40").Copy
Sheets("LW11").Range("AQ3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("P40") > 0 Then
Sheets("Hilf").Range("P40").Copy
Sheets("LW11").Range("AR3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("Q40") > 0 Then
Sheets("Hilf").Range("Q40").Copy
Sheets("LW11").Range("AS3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
If Sheets("Hilf").Range("R40") > 0 Then
Sheets("Hilf").Range("R40").Copy
Sheets("LW11").Range("AT3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Sheets("LW11").Select
Range("A1").Select
End Sub
Kann man diese Aufgabe auch mit einer Schleife lösen? Wenn ja, wie?
LG Sascha
Anzeige
Code für bedingtes Kopieren auf GLEICHEM Blatt
03.02.2012 15:28:40
NoNet
Hallo Sascha,
dein Code ist auf jeden Fall zu umständlich und viel zu lang !
Hier ein Code-Beispiel für Deine ursprüngliche Aufgabenstellung (Werte innerhalb des gleichen Blattes von A40:R40 nach A60:R60 kopieren, wenn A40:R40 > 0 ist und A60:R60 keine Formel/Funktion enthält :
Sub NurWerteGrosser0KopierenWennKeineFormelenthalten()
Dim rngQ As Range, rngZ As Range
For Each rngZ In [A40:R40]
If rngZ.Value > 0 And Not rngZ.Offset(20).HasFormula Then
rngZ.Copy rngZ.Offset(20) '20 Zeilen nach unten kopieren
End If
Next
End Sub
Dein Zusatz mit den Blättern "Hilf" und "LW11"sowie den Bereichen AC3:AT3 war in der Ursprungs-Aufgabenstellung nicht enthalten. Suchst Du für diese 2 unterschiedlichen Blätter/Bereiche auch noch eine Lösung ?
Gruß, NoNet
Anzeige
AW: Code für bedingtes Kopieren auf GLEICHEM Blatt
03.02.2012 15:33:17
Sascha
Hallo NoNet,
Vielen Dank für Deinen Code, werde diesen so einbauen. Super Sache...
Ja genau, das wäre die nächste Frage gewesen.
Suche für die beiden Blätter / Bereiche auch noch eine Lösung, da mein Lösungsweg wirklich extrem lang und umständlich ist :-(
Vielen Dank für die Nachfrage und dass Du dich meiner Frage annimmst!
Gruss Sascha
Code für bedingtes Kopieren auf VERSCHIED. Blätter
03.02.2012 16:13:06
NoNet
Hallo Sascha,
hier der Code zum bedingten Kopieren auf ein anderes Blatt :
Sub NurWerteGrosser0KopierenWennKeineFormelenthalten2()
Dim rngQ As Range, rngZ As Range, lngS As Long
Set rngZ = Sheets("LW11").[AC3] 'Zielbereich in Blatt "LW11", ab Zelle AC3
For Each rngQ In Sheets("Hilf").[A40:R40]
lngS = lngS + 1
If rngQ.Value > 0 And Not rngZ(1, lngS).HasFormula Then
rngQ.Copy rngZ(1, lngS) 'Zellwert in Zielzelle kopieren
End If
Next
End Sub
Mit der Codezeile Set rngZ = Sheets("LW11").[AC3] kannst Du angeben, auf welchem Blatt und ab welcher Zelle der ZIEL-Bereich beginnt !
Gruß, NoNet
Anzeige
AW: Code für bedingtes Kopieren auf VERSCHIED. Blätter
03.02.2012 18:00:23
Sascha
Hallo NoNet,
Hey Supercool... Funktioniert 1A, Und so schnell!! Vielen lieben Dank an Dich und einen schönen Abend...
Liebe Grüsse
Sascha

299 Forumthreads zu ähnlichen Themen

Formel verkürzen --> zu lange Speicherzeit
Albin

Hallo
Meine Formel funktioniert gut, aber da die Formel sehr lang ist und ich sie in viele Zeilen kopiert habe, dauert das Speichern einer Tabelle 15 Minuten! Ich will aber 30 solche Tabellen anfertigen, das heisst ich würde dann immer mehrere Stunden warten bis das Ding gesichert ist! Das...
13.08.2008 13:10:00
Thread-ID: 1001509
16 Beiträge
Anzeige
Hyperlink Formel auf Gültigkeit prüfen
zapultin

Hallo Forum!
Ich verwende die Hyperlinkformel in Excel. Nun möchte ich gerne wissen, ob der berechnete Hyperlink funktioniert (es kann nämlich sein, daß die Datei, auf die gelinkt wird noch nicht existiert).
Wie kriege ich das OHNE ein VBA Makro hin? Gibt es gar keine Möglichkeit dies z...
15.08.2008 15:49:14
Thread-ID: 1002228
3 Beiträge
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Problem mit Matrixformel
Jens

Hallo liebes Forum!
Hab ein kleines Problem mit einer Matrixformel.
Es geht um Folgendes: In Blatt 1 stehen Daten in einem spaltenförmigen Bereich (nx1-Vektor), manche Zellen davon sind leer. In Blatt 2 möchte ich einen Bezug auf diese Daten in einem zeilenförmigen Bereich setzen; dazu...
27.08.2008 16:53:15
Thread-ID: 1005143
3 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Problem mit SVERWEIS (Arrayformel)
Henner

Hi Forum,
ich möchte ein SVerweis mit mehreren Suchergebnissen anlegen. Wenn ich den ganzen Salat innerhalb einer Tabelle anlege funktioniert es einwandfrei. Jetzt möchte ich allerdings in einer anderen Tabelle ("kundendatenbank") suchen. Dafür habe ich mir die A-Formel so umgebaut:
=WE...
12.09.2008 19:12:31
Thread-ID: 1009440
5 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
15
4
2
2
4
2
8
7
13
4
2
8
1
2
12
6
5
6
1
1
4
4
4
4
1