Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Next

For Next
17.05.2006 14:06:47
Michael
Hallo,
ich habe eine Variable Anzahl an Sheets, in welche alle in den Bereich C6:EXX eine Zahlenkombination eingetragen wird.
Allerdings wird das nächste Sheet nicht aufgerufen. (die Nummerierung der Scheets ist von 1 an fortlaufen)

Sub Verteilungsschluessel()
Dim I As Byte
Dim Anzahl As Integer
Dim Letzte As Long
Anzahl = Application.InputBox("Anzahl angeben", Type:=1)
Worksheets("1").Activate
For I = 1 To Anzahl
'Verteilungsschlüssel 2 0 2
Range("D6").Select
ActiveCell.FormulaR1C1 = "2"
Range("E6").Select
ActiveCell.FormulaR1C1 = "0"
Range("F6").Select
ActiveCell.FormulaR1C1 = "2"
ActiveSheet.Range("D6:F6").Copy
Letzte = Range("B65536").End(xlUp).Row
ActiveSheet.Paste Destination:=Range("D7:F" & Letzte)
Next I
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: For Next
17.05.2006 14:19:45
ANdreas
Hallo Michael,
hier mal ein Vorschlag (ohne Select):

Sub Verteilungsschluessel()
Dim i%, intAnz%, lngLast&
On Error Resume Next
intAnz = Application.InputBox("Anzahl angeben", Type:=1)
For i = 1 To intAnz
With Worksheets(Trim(Str(i))) ' nicht Index sondern Name!
lngLast = .Range("B65536").End(xlUp).Row
'Verteilungsschlüssel 2 0 2
.Range("D6:F" & lngLast).Value = 2
.Range("E6:E" & lngLast).Value = 0
End With
Next i
If Not Err.Number = 0 Then MsgBox Err.Description
End Sub

Gruß
Andreas
AW: For Next
17.05.2006 14:28:04
Michael
Klappt prima! Danke!
AW: For Next
17.05.2006 14:22:02
UweD
Hallo
so...

Sub Verteilungsschluessel()
Dim I As Integer, Anzahl As Integer, Letzte As Long
Anzahl = Application.InputBox("Anzahl angeben", Type:=1)
If Anzahl > Worksheets.Count Then MsgBox "Zahl zu groß!": Exit Sub
For I = 1 To Anzahl
'Verteilungsschlüssel 2 0 2
Sheets(I).Range("D6").Formula = "2"
Sheets(I).Range("E6").Formula = "0"
Sheets(I).Range("F6").Formula = "2"
Letzte = Sheets(I).Range("B65536").End(xlUp).Row
Sheets(I).Range("D6:F6").Copy Destination:=Range("D7:F" & Letzte)
Next I
End Sub

auf select kannst du verzichten..
Gruß UweD
(Rückmeldung wäre schön)
Anzeige

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