Text in Zelle schreiben mit wechselnden Variablen

Hallo,
ich habe hier schon einige Hilfe gefunden aber leider nicht zu dem Problem was ich gerade habe.
Ich möchte in eine aufeinanderfolgende anzahl von Zellen einen Text schreiben und an diesen Text jeweil noch ein Indize anhängen.
Also so was wie:
Originaltext = Test
In die Zellen rechts daneben und darunter soll Test1, Test2, Test3 usw. geschrieben werden.
Das indize ist auch eine Variable die sich je nach Datenblock ändert.
Das habe ich bisher erstellt.
Leider habe ich absolut keine Ahnung wie ich VBA beibrigen soll den Text jeweils mit dem Inhalt der Variablen ALS TEXT! in einen andere Zelle zu scheiben.
-----------------------------------------------------------------------


Sub AllowSorting()
Dim MaxLines As Integer
Dim iSortBlocs As Integer
Dim A As Integer
Dim B As Integer
Dim iLinesMain As Integer
Dim iLines

Sub As Integer
Application.ScreenUpdating = False
MaxLines = Cells(94, 8).Value 'Set variable "MaxLines" to the value written in Row 8, line 94
For iSortBlocs = 100 To MaxLines 'Use the index "iSortBlocs" and start at 100 until the value   _
_
of "MaxLines" and do the following
If Cells(iSortBlocs, 21) > 0 Then ' Check if in this cell is any value greater than 0
A = Cells(iSortBlocs, 21).Value 'If there is a vlaue >0 then set the variable A to this  _
value
For B = 0 To A 'Use the index "B" and start at 0 until the value of "A" and do the  _
following
AktiveSheet.Cells(iSortBlocs + B, 22) = Cells(iSortBlocs, 7).Value + B + 1 ' Write in   _
_
this cell the text written in row 7 and add the value of B + 1 as Text
Next 'Add 1 to B
End If
Next 'Add 1 to iSortBlocs
Application.ScreenUpdating = True
End Sub


-----------------------------------------------------------------------

Danke für das Entfernen des Bretts vor meinem Kopf :-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub AllowSorting() Dim maxIteration As Long, sortBlocs As Long Dim rng As Range Dim i As Long If Not IsNumeric(Cells(94, 8).Value) Then Exit Sub maxIteration = Cells(94, 8).Value 'Loop till maximum iterations are reached For sortBlocs = 100 To maxIteration 'check if the cell value is numeric If IsNumeric(Cells(sortBlocs, 21).Value) Then 'let i be the cell value, 'else we always have to reference an object 'that will take up memory and is simply bad practice i = Cells(sortBlocs, 21).Value 'this could also be done at the beginning of the code 'but here we are... With ActiveSheet 'create a range object 'we will need this so the autofill object will work Set rng = .Range(.Cells(sortBlocs, 22), .Cells(sortBlocs, 22)) 'set the value and add 2 leading zeros defined as string rng(1, 1).Value = .Cells(sortBlocs, 7).Value & "00" 'now use the autofill object which is already onboard 'this will keep us from using a nested loop 'nested loops are nasty rng.AutoFill Destination:=rng.Resize(i), Type:=xlFillDefault End With End If Next sortBlocs End Sub

Sub Allowing() Dim A As Long Dim B As Long For A = 100 To Cells(94, 8).Value If IsNumeric(Cells(A, 21).Text) Then If Cells(A, 21) > 0 Then For B = 0 To Cells(A, 21).Value Cells(A + B, 22) = Cells(A, 7).Value & (B + 1) Next End If End If Next End Sub

Sub AllowSorting() Dim MaxLines As Integer Dim iSortBlocs As Integer Dim A As Integer Dim B As Integer Application.ScreenUpdating = False MaxLines = Cells(94, 8).Value 'Set variable "MaxLines" to the value written in Row 8, line 94 For iSortBlocs = 100 To MaxLines 'Use the index "iSortBlocs" and start at 100 until the value _ of "MaxLines" and do the following If Cells(iSortBlocs, 21) > 0 Then ' Check if in this cell is any value greater than 0 A = Cells(iSortBlocs, 21).Value 'If there is a vlaue >0 then set the variable A to this _ value For B = 0 To A 'Use the index "B" and start at 0 until the value of "A" and do the _ following Cells(iSortBlocs + B, 22) = Cells(iSortBlocs, 7).Value & (B + 1) ' Write in this cell _ the text written in row 7 and add the value of B + 1 as Text Next 'Add 1 to B End If Next 'Add 1 to iSortBlocs Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Text in Zelle schreiben mit wechselnden Variablen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

339 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text in Zelle schreiben mit wechselnden Variablen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

339 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread