Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfügen effizienter gestalten

Forumthread: Einfügen effizienter gestalten

Einfügen effizienter gestalten
21.03.2006 19:55:22
Matthias
Hallo,
ich habe eine Formel, die ich in unregelmäßigen Abständen in verschiedenen Zeilen einfügen möchte. Dabei ist die Spalte immer die gleiche, die ich mit Hilfe einer Variablen übergebe. Nur die Zeile und die Bezüge in der Formel ändern sich. Momentan sieht das bei mir noch so aus:
Sheets("VARCOL").Cells(10, intSpalteVARCOL).FormulaR1C1 = _
"=VAR!R10C" & intZaehler & "/VAR!R10C" & intNenner & " -1"
Sheets("VARCOL").Cells(11, intSpalteVARCOL).FormulaR1C1 = _
"=VAR!R11C" & intZaehler & "/VAR!R11C" & intNenner & " -1"
Sheets("VARCOL").Cells(13, intSpalteVARCOL).FormulaR1C1 = _
"=VAR!R13C" & intZaehler & "/VAR!R13C" & intNenner & " -1"
Sheets("VARCOL").Cells(14, intSpalteVARCOL).FormulaR1C1 = _
"=VAR!R14C" & intZaehler & "/VAR!R14C" & intNenner & " -1"
Sheets("VARCOL").Cells(16, intSpalteVARCOL).FormulaR1C1 = _
"=VAR!R16C" & intZaehler & "/VAR!R16C" & intNenner & " -1"
Sheets("VARCOL").Cells(18, intSpalteVARCOL).FormulaR1C1 = _
"=VAR!R18C" & intZaehler & "/VAR!R18C" & intNenner & " -1"
Sheets("VARCOL").Cells(20, intSpalteVARCOL).FormulaR1C1 = _
"=VAR!R20C" & intZaehler & "/VAR!R20C" & intNenner & " -1"
Sheets("VARCOL").Cells(22, intSpalteVARCOL).FormulaR1C1 = _
"=VAR!R22C" & intZaehler & "/VAR!R22C" & intNenner & " -1"
und das geht noch so weiter für ca. 50 zeilen.
Hat jemand eine Idee, wie ich das effizienter programmieren könnte? schließlich ändert sich im Prinzip ja nur die Zeilenzahl und der entsprechende Bezug?!?!
Ich dachte an eine separate Prozedur, nur weiss ich nicht, wie ich die Variablen übergeben soll!
Über einen Lösungsvorschlag würde ich mich freuen!
Grüße Matthias
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfügen effizienter gestalten
21.03.2006 20:08:51
ChrisL
Hallo Matthias
Erstmal deine Idee als Beispiel umgesetzt:
Sub t1()
Einfügen 1
Einfügen 3
Einfügen 4
Einfügen 7
Einfügen 8
End Sub 

Private Sub Einfügen(Zeile As Integer)
Cells(Zeile, 1) = "x"
End Sub

Lösen könntest du es aber auch so mittels Array:
Sub t2()
Dim Arr As Variant
Dim i As Integer
Arr = Array(1, 3, 4, 7, 8)
For i = 0 To UBound(Arr)
Cells(Arr(i), 1) = "X"
Next i
End Sub
Gruss
Chris
Anzeige
Perfekt ;-)
21.03.2006 20:47:02
Matthias
Hey Chris,
super, so hat das perfekt geklappt!
Vielen Dank!!!
Gruß Matthias
Danke für die Rückmeldung o.T.
22.03.2006 08:20:18
ChrisL
Gruss
Chris
;

Forumthreads zu verwandten Themen

3 Zellen zu 1ner 3-Zeiligen (wieAlt+Enter) machen
Horst_H

Hallo!
Meine Frage: In Spalte C steht eine Straßenbezeichnung, in Spalte H ein Kommentar und in Spalte I ein zweiter Kommentar. Nun möchte ich per VBA (weil ich viele Mappen unterschiedl. Länge und unterschiedlicher Stadtteile habe) erreichen, dass zusätzlich in die jeweilige Zelle in Spal...
11.08.2008 16:07:27
Thread-ID: 1000899
10 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Was ist an diesem VBA-Code falsch?
Heiko31

Hallöchen,
ich möchte mit folgenden Code die Inhalte der Zeilen C122:C218 / M122:M218 / K122:K218 aus allen Arbeitsblättern in die Spalten B / C / D auf dem letzten Tabellenblatt übernehmen.
Die ersten beiden funktionieren wunderbar, aber die Auflistung aus K122:218 funktioniert gar nic...
23.11.2008 15:55:00
Thread-ID: 1027099
7 Beiträge
Was ist an diesem Makro falsch
jens-claus

Hallo Excelfreunde,
ich hatte nachstehendes Makro im Einsatz, dies lief auch fehlerfrei.
Doch jetzt stoppt das Makro bei: .HPageBreaks(i).Delete
Das Makro soll jeweils bei Wechsel in der Spalte G eine neue Seite ausdrucken.
Wer kann mir helfen?
Besten Dank im voraus.
S...
02.12.2008 16:11:00
Thread-ID: 1029548
3 Beiträge
Eingaben in Zelle nach links versetzen
thorsten

Guren Morgen,
ich habe eine Datei angeführt:
https://www.herber.de/bbs/user/57594.xls
Hier habe ich folgendes Problem. In der Spalte A müsste ich alle Nummern um 2 Positionen nach rechts versertzt haben. Die Originaldatei hat 16.000 Zeilen - gibt es hierfür eine Formel?
Danke
13.12.2008 10:16:00
Thread-ID: 1032577
9 Beiträge
Schaltfläche funktioniert bei Blattschutz nicht
manuela

hallo
möchte die daten aus einer sql-datenbank mittels makro aktualisieren. dazu hebe ich zuerst den blattschutz auf, aktualisiere und setze den blattschutz wieder. das makro läuft einwandfrei. sobald ich es aber mit einer userform auf dem blatt selbst verknüpfe, kriege ich eine fehlermeldu...
04.02.2009 11:12:30
Thread-ID: 1046940
5 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Zeilenumbruch in Zelle mit Verkettungen
Rolf

Hallo!
ich möchte in eine Zelle folgendes schreiben: ="Text" & A1
Dann sollte aber der Text in der 1. Zeile stehen, der Rest in der 2. Zeile.
Alt-Return klappt leider nicht.
Kann mir jemand sagen, wie ich das hinkriege (ohne die Zelle entsprechend zu verkleinern)?
Danke<...
02.06.2009 09:48:33
Thread-ID: 1078547
6 Beiträge
Problem mit Zeilenumbruch in verbundenen Zellen
Christian

Hallo zusammen!
nachdem auf meinen letzten Beitrag leider keine Antworten eingegangen sind, habe ich nochmal selbst versucht, das Problem einzugrenzen.
Es ist nicht nur auf das Dokument beschränkt, mit dem ich Probleme hatte.
Man kann das Problem nachstellen:
Zellen A1 bis D30 v...
03.07.2009 22:42:59
Thread-ID: 1086260
3 Beiträge
* ersetzen durch anderes Zeichen
Joni

Hallo,
ich habe das Problem, dass ich Zeilen die mit "***weiterer Text" beginnen aus einer Tabelle filtern und löschen möchte. Doch mit dem Autofilter und mit suchen/ersetzen wird * immer als Platzhalter und nie als Text interpretiert. Hat mir jemand einen Tipp wie ich dieses Problem lösen...
06.08.2009 13:03:57
Thread-ID: 1094028
7 Beiträge
Zeilenumbruch in einzelne Zellen
Larissa

Hallo,
wie bekomme ich es mit einem Makro oder einer Formel hin, dass Werte die in einer Zelle mit Zeilenumbrüchen eingetragen sind, untereinander in einzelne Zellen zu übertragen werden?
Dieses ist z.B. ein Eintrag in einer Zelle A1:
"Montag
Dienstag
Mittwoch"
und soll...
11.10.2009 11:23:20
Thread-ID: 1108862
4 Beiträge
aktive Zelle in Zeilenumbruchmodus versetzen
Karsten

Hallo...
ich möchte die aktive Zelle im Zeilenumbruchmodus angezeigen lassen. Bei Verlassen soll sie wieder zurückgesetzt wird.
Kann mir jemand dabei helfen?
Danke
Gruß
Karsten
09.11.2009 14:23:06
Thread-ID: 1115511
9 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