Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.07.2025 20:56:54
Pause einfügen wenn....
10.07.2025 16:38:20
Makro gibt nicht das gewollte Uhrzeitformat aus
10.07.2025 16:29:52
Häufigste Firmenbezeichnung von gleichen Firmen-IDs finden
10.07.2025 13:48:08
WENN Formel Fehler
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

for/next x=x+eine Zeile runter...

Forumthread: for/next x=x+eine Zeile runter...

for/next x=x+eine Zeile runter...
08.01.2004 11:54:02
ray
Hallo,
ich hab folgendes Problem

x 0 worksheets("sdsadf").range("a1").value
for i = 1 to 500
x = x + ???? '????=hier soll der Wert aus worksheets("sdsadf").range("a2") dann a3 usw stehen
'hier wird gedruckt
next i
Vielleich ne blöde frage, aber ich kriege das einfach nicht hingefummelt...
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Programmierung
Tags
#cells #schleifen #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
500 Ausdrucke?
08.01.2004 11:57:53
Boris
Hi Ray,
...das will ich mal nicht glauben...
Nimm statt der Range- die Cells-Eigenschaft - das ist selbsterklärend.
Grüße Boris
AW: for/next x=x+eine Zeile runter...
08.01.2004 12:00:47
Ulf
x = x + worksheets("sdsadf").cells(i+1,1)
Ulf
meinte das anders...
08.01.2004 12:39:09
ray
Hallo Ulf,
x ist gleich der Wert von Tabelle"sdsadf" zelle a1
beim nächsten Schleifendurchlauf soll x der wert der Zelle a2 sein
beim nächsten Schleifendurchlauf soll x der wert der Zelle a3 sein
sonst hatte ich x = x + 1 gemacht und vor der Schleife x definiert.
nun möchte ich bei x = x + 1 für die 1 sagen, daß er eine Zeile runter soll.
deswegen hatte ich vor der schleife definiert
x = worksheets("sdsadf").range("a1").value
sorry, kann nich so gut erklären/fragen...
Anzeige
AW: meinte das anders...
08.01.2004 12:43:25
Ulf
Sorry, verstehe ich nicht.
Ulf
so vielleicht?
08.01.2004 13:02:57
ray
hallo ulf, das Programm sieht so aus:
Altes Programm:
Sub abr_lpt_BeiKlick()
x = 633 'start bei Wohnungsnummer
For i = 1 To 1000
x = x - 1
If x = 400 Then GoTo zend
Sheets("anschreibenWeih").Select
Worksheets("anschreibenWeih").Range("a16").Value = x
'a16 ist eine Zelle im Brief, wonach sich andere Zellen über sverweis entsprechend verändern
Sheets("anschreibenWeih").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,

Next i
die
Neues Programm:
x = Zelle a1 von blatt "xy"
For i = 1 To 1000
x = x + (gehe runter zu zelle b1)
Sheets("anschreibenWeih").Select
Worksheets("anschreibenWeih").Range("a16").Value = x
'a16 ist eine Zelle im Brief, wonach sich andere Zellen über sverweis entsprechend verändern
Sheets("anschreibenWeih").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,

Next i
Besser?
Anzeige
auf Ulfs Basis erledigt... Danke
08.01.2004 13:42:05
ray
so, jetzt hab ich's....
bei cells(x+1,1) hab ich cells(y,1) gemacht
und in die Zeile davor y = y +1
also neben x eine zweite var definiert...
Danke an ulf für den Denkanstoß.

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige
Zeile automatisch nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
03.12.2008 08:43:00
Thread-ID: 1029673
5 Beiträge
Per Makro zu einer Zelle springen
TomTom

Hi,
ich habe ein Formular , auf dem sitzt eine textbox. Duch irgend ein Vorgang wird eine bestimmte Zelle ermittelt, zum Beispiel "AD250". In dieser Textbox würde dann bei mir drin stehen "$AD$250"
Kann ich nun per Makro zu dieser Zellen springen, sprich, dass diese dann im Sichtbaren b...
20.01.2009 07:59:00
Thread-ID: 1041709
3 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Nach links oben springen - im Makro
miss18

Hallo,
ich hätte eine Frage und ich hoffe Ihr könnt mir weiterhelfen.
Mit Hilfe dieses Super-Forums (ins. mit Hilfe von Josef Ehrensberger) habe ich das folgende Makro auf meine Wünsche umgestellt und es funktioniert prima.
Jetzt würde ich gerne die Funktion einbauen wenn ich beim K...
03.03.2009 14:38:16
Thread-ID: 1055984
6 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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