Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
188to192
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
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Warum ?

Warum ?
02.12.2002 16:51:37
Sonja
Hallo nochmal
Ich habe hier ein Makro das den selektirten text immer in Spalte
52 ausgiebt aber eigendlich soll der bereich nur bis zur spalte 50 gehen wo ist der fehler ?

Sub AutoForm1_BeiKlick()
Dim i As Integer
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If

With Worksheets(Worksheets.Count)
If ActiveWorkbook.Sheets.Count > 3 Then
For i = 9 To 55
Next i
Else
For i = 23 To 50
Next i
End If
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
Exit Sub
End If
MsgBox "Kein Platz zum einfügen"
End With

End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Warum ?
02.12.2002 16:55:24
Andreotti
Der gleiche Grund wie in Deinem anderen Thread, nur dass Du nun die Abfrage nach det Anzahl Tabellenblätter geändert hast, und so in die andere Schleife kommst:

https://www.herber.de/forum/messages/188042.html

Greetz

Re: Warum ?
02.12.2002 16:59:52
jürgen
mach aus der 50 einfach ne 48 dann sollte es gehen.

nach ende der schleife ist i=51.
dann steht Cells(i + 1, 3).PasteSpecial
das erhöht i auf 52

gruß jürgen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige