Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktive Zelle und Zellen daneben füllen

Forumthread: Aktive Zelle und Zellen daneben füllen

Aktive Zelle und Zellen daneben füllen
17.01.2023 14:41:52
Frank
Guten Tag liebes Forum! Ich habe zwei für mich unüberwindbare Aufgaben die für die Profis unter euch mit Sicherheit sehr banal sind.
1. Userform mit 2 Textboxen (txtWert und txtAnzahl) und 1 Button. Hier möchte ich das nach dem Klick auf den Button die aktuell aktive Zelle mit dem Wert aus txtWert befüllt wird. Außerdem sollen die rechts befindlichen Zellen ebenso mit dem Wert aus txtWert befüllt werden anhand von txtAnzahl.
Beispiel: txtWert=100 | txtAnzahl=5 | Aktive Zelle C3 --> Nun soll in Zelle C3 C4 C5 C6 C7 C8 jeweils der Wert 100 eingetragen werden.
2. Userform mit 3 Textboxen (txtWert, txtAnzahl, txtGradient) und 1 Button. Hier habe ich die gleiche Anforderung wie oben nur mit dem Unterschied, dass der Wert in den Zellen sich immer gem. dem Faktor in txtGradient erhöhen soll.
Beispiel: txtWert= 100 | txtAnzahl=5 | TxtGradient=10 | Aktive Zelle C3 --> C3=100, C4=110, C5=120, C6=130, C7=140, C8=150
Ich hoffe das ich mein Problem einigermaßen verständlich erläutern konnte. Vielen Dank für eure Hilfe.
Frank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Aktive Zelle und Zellen daneben füllen
17.01.2023 14:57:39
Daniel
Hi
zu 1:
ActiveCell.Resize(1, CLng(txtAnzahl) + 1).value = txtWert
das +1, weil C3 bis C8 6 Zellen sind und nicht 5
zu 2:
ActiveCell.Value = txtValue
With ActiveCell.offset(0, 1).Resize(1, Clng(txtAnzahl))
    .FormulaR1C1 = "=RC[-1]+" & txtGradient
    .Formula = .Value
End with
wenn man wollte, könnte man auch eine Schleife erstellen:
for s = 0 to clng(txtAnzahl)
    ActiveCell.Offset(0, s).value = Clng(txtWert) + s * CLng(txtGradient)
next
für Frage 1 lässt man dann das " + s * Clng(txtGradient)" weg
Gruß Daniel
Anzeige
AW: Aktive Zelle und Zellen daneben füllen
17.01.2023 15:02:14
Daniel
Ich habe die Codes jetzt für das "daneben", also ausfüllen nacht rechts in Spalten geschrieben.
wenn das Ausfüllen nach unten in Zeilen erfolgen soll, vertauscht man einfach in den Funktionen OFFSET und RESIZE die beiden Parameter.
AW: Aktive Zelle und Zellen daneben füllen
17.01.2023 15:15:07
Frank
Super, vielen Dank
AW: Aktive Zelle und Zellen daneben füllen
17.01.2023 14:58:47
Rudi
Hallo,
sollen die rechts befindlichen Zellen
Nun soll in Zelle C3 C4 C5 C6 C7 C8
das geht aber nach unten und nicht nach rechts.
Activecell.Resize(txtAnzahl+1)= txtWert
Gruß
Rudi
Anzeige
AW: Aktive Zelle und Zellen daneben füllen
17.01.2023 15:02:15
Frank
Ach sorry. Ich habe natürlich nicht C4 C5...gemeint, sondern wenn die Aktive Zelle C3 ist soll C3 und D3 D4 usw befüllt werden
AW: Aktive Zelle und Zellen daneben füllen
17.01.2023 15:01:21
ChrisL
Hi
Rechts = unten :)
Private Sub CommandButton1_Click()
ActiveCell.Resize(txtAnzahl + 1) = txtWert.Value
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To txtAnzahl.Value + 1
    ActiveCell.Offset(i - 1) = txtWert.Value + ((i - 1) * txtGradient.Value)
Next i
End Sub
cu
Chris
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige