Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For next Schleife mit Formel

For next Schleife mit Formel
28.06.2018 10:41:55
Thorsten
Hallo Zusammen,
vor lauter Variablen habe ich den Überblick verloren. Könnt Ihr mir bitte helfen.
Problemstellung: Ich habe 2 Excelsheets. In Sheets(2) stehen die Daten in Spalte A.
Zunächst soll die Anzahl der benutzten Zeilen in Sheets(2), Spalte A ausgelesen werden, damit ich die For Next Schleife aufbauen kann. Nun sollen die leeren Zeilen rausgelöscht werden.
Dim lgCount As Long
Dim lgLetzte As Long
lgLetzte = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For lgCount = lgLetzte To 1 Step -1
If IsEmpty(Cells(lgCount, 1)) Then
Cells(lgCount, 1).Delete Shift:=xlUp
End If
Als nächstes soll auf Sheets(1) in Spalte A von allen benutzten Zellen von Sheets(2) Spalte A ein Teil der Zellinhalte kopiert werden.
Die Excelformel für den Teil der Daten lautet:
= Links(A1;Suchen(")";A1)-2), wobei A1 für die variable Zelle der For Next Schleife stehen muss.
Puh, ich hoffe, ich konnte mich einigermaßen verständlich ausdrücken.
Vielen lieben Dank für Eure Unterstützung.

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

Betreff
Datum
Anwender
Anzeige
For next!! Schleife
28.06.2018 11:08:40
Matthias
Hallo
Es fehlt das Next in Deinem Code.
Den Rest der Aufgabe hab ich nicht verstanden
Tabelle1

 AB
1x#WERT!
2x()x
312(xyz)12(xy
4(1324d(hzu))(1324d(hz

Formeln der Tabelle
ZelleFormel
B1= LINKS(A1;SUCHEN(")";A1)-2)
B2= LINKS(A2;SUCHEN(")";A2)-2)
B3= LINKS(A3;SUCHEN(")";A3)-2)
B4= LINKS(A4;SUCHEN(")";A4)-2)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: For next!! Schleife
28.06.2018 11:25:09
Thorsten
Hallo Matthias,
vielen lieben Dank :-)
Ich versuche, es nochmals anders zu formulieren.
Die Formeln der Tabelle (SpalteB) müsste auf Sheets(1) kopiert werden, die Orignaldaten (SpalteA) befindet sich auf Sheets(2)
das müsste in etwa so aussehen:
Sheets(2).Activate
For lgcount = lgletzte to 1 Step-1
Sheets(1).(Cells(lgcount,1)).FormulaR1C1lokal = "Links(Z"+lgcount"S;Suchen(")";Z"+lgcount"S-2)
next
=xlPasteFormulas
28.06.2018 11:46:10
Matthias
Hallo
Die Formeln der Tabelle (SpalteB) müsste auf Sheets(1) kopiert werden
Formeln würde ich so kopieren.
Sheets(2).Range("B1").Copy Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteFormulas Wobei Du Dir die Zeile (also die 1) bei B1 und A1 aus der Variable holen kannst.
Für 5 Zeilen also so:
Dim x&
For x = 1 To 5
Sheets(2).Range("B" & x).Copy
Sheets(1).Range("A" & x).PasteSpecial Paste:=xlPasteFormulas
Next
Gruß Matthias
Anzeige
AW: =xlPasteFormulas
28.06.2018 12:17:39
Thorsten
Super vielen lieben Dank Matthias :-)))))
AW: For next!! Schleife
28.06.2018 12:09:29
Thorsten
Durch rumprobieren bin ich wieder einen Schritt weiter :-)
Dim lgCounti As Long
Dim lgLetztei As Long
lgLetztei = Range("A65536").End(xlUp).Row
lgLetztei = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For lgCounti = lgLetztei To 1 Step -1
Sheets(2).Activate
Sheets(1).Cells(lgCounti, 4).FormulaR1C1 = "=LEFT(RC[-3],SEARCH("")"",RC[-3])-2)"
Next
Hiermit wird die Formel schon mal richtig eingesetzt.
Wie schaffe ich es, dass sich die Formel "=LEFT(RC[-3],SEARCH("")"",RC[-3])-2)" auf die Spalte A von Sheets(2) bezieht, aber die gefundenen werte in Sheets(1) dann stehen?
Vielen Dank
Anzeige

300 Forumthreads zu ähnlichen Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 Beiträge
Anzeige
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 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
4
1
5
5
6
10
13
10
12
5
8
4
6
6
19
6
9
8
16
10
3
7
1
4
7