Funktion mit größtem gemeinsamen Teiler und...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Fuellen() Dim intAnzahl As Integer Dim lngZeile As Long Dim intSpalte As Integer Dim i As Integer Dim strArr() As String With ActiveSheet.Cells .ClearContents .NumberFormat = "@" End With intAnzahl = CInt(GetArg(99, "Anzahl der Einsen")) lngZeile = GetArg(65537 - intAnzahl, "Erste zu befüllende Zeile") intSpalte = CInt(GetArg(256, "Zu befüllende Spalte ( Zahl )")) ReDim strArr(intAnzahl) As String For i = 1 To intAnzahl strArr(i) = String(intAnzahl, "1 ") intAnzahl = intAnzahl - 1 Next With Range(Cells(lngZeile, intSpalte), Cells(lngZeile - 1 + UBound(strArr()), intSpalte)) .Value = Application.Transpose(strArr()) End With End Sub

Function GetArg(max As Long, _ Optional ArgBez As String = "Argument #") As Long Dim Arg As Variant If ArgBez = "Argument #" Then bArg = bArg + 1 ArgBez = ArgBez & bArg End If While Val(Arg) = 0 Or Val(Arg) > max Arg = InputBox(ArgBez, "Bitte geben Sie folgenden Wert ein") If Val(Arg) = 0 Then _ MsgBox "Eingabefehler! Nur Zahlen > 0 sind erlaubt!" If Val(Arg) > max Then _ MsgBox "Eingabefehler! Zahl ist zu groß!!!" Wend GetArg = Val(Arg) End Function

Hallo Meike,
ich habe die Datei noch einmal geänder, da ich die Aufgabe mit Arg1 falsch verstanden habe.
Hier ist die neue Datei https://www.herber.de/bbs/user/13728.xls
Hier ist der Code, den deine Professorin bestimmt abkauft.
Option Explicit
Public


Sub Füllen()
Dim WertArg1 As Byte
Dim Zeile As Long
Dim Spalte As Integer
Dim Spaltenzähler As Byte
Dim Zeilenzähler As Byte
WertArg1 = Worksheets("Tabelle1").Range("B1").Value 'Arg1 - wie viele Zeilen/Spalten sollen gefüllt werden
Zeile = Worksheets("Tabelle1").Range("B2").Value 'erste zu füllende Zeile Arg2
Spalte = Worksheets("Tabelle1").Range("B3").Value 'erste zu füllende Spalte Arg3
Cells.Clear ' alle Inhalte im aktiven Blatt löschen
For Zeilenzähler = 0 To WertArg1 - 1 ' Zeilen in Schleife erhöhen
MsgBox "Zur ersten Zeile Arg2 wird addiert " & Zeilenzähler ' Zeile wieder löschen, wenn Prinzip erkannt
For Spaltenzähler = 0 To WertArg1 - 1 - Zeilenzähler ' Spalten bestimmen
MsgBox "Zur ersten Spalte Arg3 wird addiert " & Spaltenzähler ' Zeile wieder löschen, wenn Prinzip erkannt
Cells(Zeile + Zeilenzähler, Spalte + Spaltenzähler).Value = 1 'wählt die Zelle aus und trägt die 1 ein
Next
Next
End Sub

Der ist soooo laienhaft, dass er keine Fehlerbehandlung durchführt und in Schleifen die Cells() mit 1en füllt.
Kopiere den Code mal in die Datei, die ich jetzt geuploadet habe und starte ihn über die Schaltfläche auf Tabelle2 . In einer MsgBox zeigt es dir dann jeweils an, was passiert und wie die Zellen gefüllt werden. Nimm als Arg1 einen nicht zu großen Wert - sonst klickst du dir den Finger wund.

Gruß Hübi

Beliebteste Forumthreads (12 Monate)

Funktion mit größtem gemeinsamen Teiler und...

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

174 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Funktion mit größtem gemeinsamen Teiler und...

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

174 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread