Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1252to1256
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
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formeln kopieren

Formeln kopieren
Stephan
Hallo,
ich habe ein makro 

Sub einfuegen()
Dim strAnz As String
Dim Anz As Long
strAnz = InputBox("Zeilen")
If IsNumeric(strAnz) Then
Anz = CLng(strAnz)
Rows(30).Resize(Anz).Insert
Rows(16).Resize(Anz).Insert
End If
End Sub

In D16 (sowie in D30)steht eine Formel, die ich nach oben kopieren möchte um die Anzahl von Zellen, die ich in der Inputbox eintrage.
Weis jemand, wie man das bewerkstelligen könnte.
danke schon mal

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

Betreff
Benutzer
Anzeige
AW: Formeln kopieren
06.03.2012 13:27:53
guentherh
Hallo Stephan,
so: 
Sub einfuegen()
Dim strAnz As String
Dim Anz As Long
strAnz = InputBox("Zeilen")
If IsNumeric(strAnz) Then
Anz = CLng(strAnz)
Rows(30).Resize(Anz).Insert
If Anz >= 1 Then
Range("D" & 30 + Anz).Copy
Range("D30:D" & 30 - 1 + Anz).PasteSpecial xlPasteFormulas
End If
Rows(16).Resize(Anz).Insert
If Anz >= 1 Then
Range("D" & 16 + Anz).Copy
Range("D16:D" & 16 - 1 + Anz).PasteSpecial xlPasteFormulas
End If
End If
End Sub
Gruß,
Günther
AW: Formeln kopieren
06.03.2012 14:01:22
Stephan
Hallo Günther,
ja das funktioniert, aber beim Ausprobieren, hab ich festgestellt, dass der Weg so nicht geht, weil die ZelleD16 ist ja nach dem Einfügen nicht mehr D16 sondern z.B. D18 (wenn ich zwei Zeilen einfüge) und die Formeln die dann nach oben kopiert werden stimmen ja nicht, also denkfehler von mir.
Was ich bräuchte wäre also das die Formel von D7 (bleibt immer gleich) nach D16 (momentaner Stand) + die per Inputbox hinzugefügten Zeilen kopiert wird.
Also von D7:D16 + 2 (wenn ich zwei zeilen einfügen) = D7:D18
Ich hoffe, ich hab das verständlich rübergebracht
gruss
Stephan
Anzeige
AW: Formeln kopieren
06.03.2012 14:24:17
Stephan
Jetzt hab ich ein wenig probiert und den Code abgeändert 
Range("D" & 7 + Anz).Copy
Range("D7:D" & 16 + Anz).PasteSpecial xlPasteFormulas

allerdings wird jetzt der letzte Eintrag (steht derzeit in D16) nach oben kopiert.
Auch 

Range("D7:D" & 16 - 1 + Anz).PasteSpecial xlPasteFormulas
geht nicht
AW: Formeln kopieren
06.03.2012 15:00:33
guentherh
Hallo Stephan,
Für Beispiel Anz=4 habe ich Dich so verstanden:
Nach Einfügen der Zeilen wird die Formel von D7 nach D16-D20 kopiert. (die nach D20 gerutschte, ehemalige D16 wird also auch überschrieben)
Für den Bereich D30 bis D34 gabs noch keine Beschreibung, deshalb habe ich das gelassen.
Sub einfuegen()
Dim strAnz As String
Dim Anz As Long
strAnz = InputBox("Zeilen")
If IsNumeric(strAnz) Then
Anz = CLng(strAnz)
Rows(30).Resize(Anz).Insert
If Anz >= 1 Then
Range("D" & 30 + Anz).Copy
Range("D30:D" & 30 - 1 + Anz).PasteSpecial xlPasteFormulas
End If
Rows(16).Resize(Anz).Insert
If Anz >= 1 Then
Range("D7").Copy
Range("D16:D" & 16  + Anz).PasteSpecial xlPasteFormulas
End If
End If
End Sub

Gruß,
Günther
Anzeige
AW: Formeln kopieren
06.03.2012 15:26:53
Stephan
Ja, das passt jetzt, war ein denkfehler von mir.
Danke Dir !
gruss

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige