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

Zeile inkl. Formel automatisch kopieren wenn

Forumthread: Zeile inkl. Formel automatisch kopieren wenn

Zeile inkl. Formel automatisch kopieren wenn
23.01.2018 15:42:50
simon
Hallo zusammen
ich habe ein kleines Problem.
Ich benötige einen Code (per Makro-Aufzeichnung stürzt mir Excel immer ab) der mir die ziele 13 von B:AN kopiert (inkl. Formel) und in jeweils der Zeile einsetzt welche in A ein Zahl erhält.
mfg Simon
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Frage
23.01.2018 19:16:52
Werner
Hallo Simon,
-wo (in welcher Zeile) beginnt dein Datenbereich in Spalte A?
Gruß Werner
AW: Frage
24.01.2018 08:13:46
simon
hi werner
Wenn in Zeile "B13" Text ist, dann die Zeile 13 von B:AN Kopieren und darunter einfügen. und das Spiel sollte ins unendliche gehen. inkl. Bedingter formatierungen...
mfg simon
AW: Frage
24.01.2018 08:27:38
Werner
Hallo Simon,
teste mal: 
Option Explicit
Public Sub Kopieren()
Dim loLetzte As Long, raBereich As Range, raZelle As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raBereich = .Range(.Cells(14, 1), .Cells(loLetzte, 1))
.Range(.Cells(13, 2), .Cells(13, 11)).Copy
For Each raZelle In raBereich
If IsNumeric(raZelle.Value) Then
raZelle.Offset(0, 1).PasteSpecial Paste:=xlPasteAll
End If
Next raZelle
End With
Set raBereich = Nothing
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
Änderung
24.01.2018 08:46:09
Werner
Hallo Simon,
beim ersten Code hatte ich noch (zum Testen) den falschen Spaltenbereich drin. 
Option Explicit
Public Sub Kopieren()
Dim loLetzte As Long, raBereich As Range, raZelle As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raBereich = .Range(.Cells(14, 1), .Cells(loLetzte, 1))
.Range(.Cells(13, 2), .Cells(13, 40)).Copy
For Each raZelle In raBereich
If IsNumeric(raZelle.Value) Then
raZelle.Offset(0, 1).PasteSpecial Paste:=xlPasteAll
End If
Next raZelle
End With
Set raBereich = Nothing
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
AW: Änderung
24.01.2018 09:13:56
simon
hi Werner, läuft auch so irgendwie leider immer noch nicht.
aber leider verstehe ich den Code praktisch auch nicht:-/
mfg simon
AW: Änderung
24.01.2018 09:27:26
Werner
Hallo Simon,
in deinem Eingangsbeitrag schreibst du:
der mir die ziele 13 von B:AN kopiert (inkl. Formel) und in jeweils der Zeile einsetzt welche in A ein Zahl erhält.
Jetzt lädst du eine Beispielmappe hoch, die wohl in Spalte A überhaupt keine Daten enthält. Zudem ist es ziemlich sinnlos mit der Datei, da sie keinerlei Daten enthält. Bitte noch mal eine Beispielmappe mit ein paar Daten, so wie sie in deiner Arbeitsdatei dann auch tatsächlich erfasst werden. Und beschreib bitte noch mal, was du willtst.
Gruß Werner
Anzeige
AW: Änderung
24.01.2018 10:02:56
simon
hi werner
entschuldige die verwirrung!
ich die Info, welche ich eintragen müsste ist in "B" so wären die "1" wohl "2"?
https://www.herber.de/bbs/user/119215.zip
hab dir das gesammte file gesandt.
mfg simon
AW: Änderung
24.01.2018 11:06:33
Werner
Hallo Simon,
sicher, dass du das so willst? Du kopierst dir ja sämtliche Daten aus der ersten Zeile. 
Option Explicit
Public Sub Kopieren()
Dim loLetzte As Long, raBereich As Range, raZelle As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Worksheets("Sub.Verlauf")
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
MsgBox loLetzte
If loLetzte  "" Then
If IsNumeric(raZelle.Value) Then
raZelle.Offset(0, 1).PasteSpecial Paste:=xlPasteAll
End If
End If
Next raZelle
End With
Set raBereich = Nothing
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
AW: Änderung
24.01.2018 14:22:08
simon
hi Werner
ok ich Versuchs nochmals so gut wie ich kann euch das Problem zu erklären:-/
wenn im Blatt "Sub. verlauf" in "B13" ein zahl eingetragen wird. dann soll die gesamte Zeile 13 leer (ausser den Formeln, die benötige ich) eine Zeile nach unten kopiert werden und dies so zusagen endlos. also wenn in "B14" ein zahl dann wieder darunter eine "leere" Zeile einfügen.
hoffe ich habs verständlich erklärt :-/
besten dank für deine Geduld Werner !!!
mfg simon
Anzeige
AW: Änderung
24.01.2018 15:40:00
Werner
Hallo Simon,
warum formatierst du deinen Datenbereich nicht einfach als intelligente Tabelle? Die erweitert sich automatisch nach unten, wenn am Ende neue Daten erfasst werden. Die Formatierungen und Formeln werden automatisch nach unten weitergeführt.
Dazu aber erst mal alle verbundenen Zellen aufheben. Das ist eh nur Schrott und macht nur Probleme. Braucht kein Mensch. Wenn du die Optik erhalten willst dann gibt es auch noch die Möglichkein bei Zelle formatieren - Ausrichtung - über Auswahl zentrieren. Das habe ich in deiner Mustertabelle mal so gemacht. Da sind jetzt keine verbundenen Zellen mehr drin.
Zeile 13 mit dem Autofilter kannst du ja ausblenden.
Trag mal in Zelle B15 einen Wert ein.
https://www.herber.de/bbs/user/119232.xlsm
Gruß Werner
Anzeige
AW: Änderung
25.01.2018 13:36:38
simon
Hi Werner!
Kannte ich nicht! das ist der Shit schlecht hin!!!
Danke tausend, genau das was ich wollte:):):)
lg simon
Gerne u.Danke für die Rückmeldung. o.w.T.
25.01.2018 13:42:25
Werner
AW: Gerne u.Danke für die Rückmeldung. o.w.T.
26.01.2018 15:20:11
simon
Besten dank nochmals für deine Hilfe Werner!
mfg Simon
Anzeige
AW: Gerne u.Danke für die Rückmeldung. o.w.T.
26.01.2018 17:14:50
Hajo_Zi
warum offen?

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige

Forumthreads zu verwandten Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Formelbezug aus Zelle
chris

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...
11.09.2008 14:19:13
Thread-ID: 1009123
7 Beiträge
Anzeige
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
Zeilenumbruch in Formel
Jochen

Hallo, kann ich einen Zeilenumbruch in eine Formel berücksichtige.
Das ist meine Formrl:
=WENN(A11"";VERKETTEN(A11;"/";$C$2;" - ";B11;"/";$C$2;
"ZEILENUMBRUCH AN DIESE STELLE";$C$4;". Trommel X von ";F11);"")
Danke im voraus
Jo. Bo.
04.11.2008 13:35:00
Thread-ID: 1021604
3 Beiträge
Anzeige
Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
AutoFill zieht Formel auch in ausgeblendete Zeilen
Andreas

Hallo Herber Fans,
hat jemand folgendes Phänomen vielleicht selbst schon einmal erfahren.
1. Manuell: Ich habe eine Formel, die nicht auf alle Zeilen ausgeweitet werden soll. Setzte also einen Filter und ziehe die Formel herunter. Nur die sichtbaren Zellen bekommen die Formel, die die v...
16.03.2009 19:33:58
Thread-ID: 1060902
2 Beiträge
Aktuelles Datum in Formel (mit Inputbox)
StefanS

Hallo zusammen,
habe folgendes Problem:
Mittels der Formel =ZÄHLENWENN(Daten!E:E;" Meine nächste Idee wäre, das Datum mittels Inpubox abzufragen (Eingabe erfolgt durch User).
Sub Auswertung() Dim datum As String datum = InputBox("Datum") Range("B7").Select ActiveCell.FormulaR1C1 =...
21.04.2009 12:49:15
Thread-ID: 1070034
4 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
Anzeige
Formel aus formatierten Zellen
Alfa

Hallo!
Ich habe eine Frage, ist es möglich mit Formaten Formel aufzubauen?
Beipiel:: Wenn(A1=schwarz; A2+A3) oder irgend so was.
Könnr Ihr mir einen Typ geben?
Grüße, Peter
16.07.2009 19:10:02
Thread-ID: 1089189
4 Beiträge
Formelwert in anderer Formel verwenden.
Alex

Hey...
Ich stehe vor dem problem dass ich von einem anderen excel tabelle werte einlesen will.
soweit kein problem.
=[Arbeitsnachweiß.xls]Tabelle1!$B$5
so bekomme ich den wert.
ABER, ich möchte dass ich in diese formel statt den fixen namen "Arbeitsnachweiß.xls" wei beim pro...
12.08.2009 10:07:12
Thread-ID: 1095236
7 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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