Ich bin Anfänger was Excel VBA angeht und brauche eure Hilfe.
Ich haben einen Zellenbereich von L14:L21 und möchte die darin stehenden Werte auf ein anderen _ Sheet kopieren. Hierbei soll nur soviel kopiert werden wie in L14:L21 steht. Die Werte verändern sich nach jedem Kopiervorgang und es sind nicht immer alle Zellen ausgefüllt. Das Kopieren soll in eine bestimmte Spalte auf dem zweiten Sheet erfolgen und zwar immer untereinander sodass bei jedem Kopiervorgang die Werte untereinander eingetragen werden. Bisher werden die kopierten Daten nur ersetzt und nicht untereiander eingetragen. Ich kriege die Suche nach der freien Zelle nicht in mein Makro eingefügt. Kann mir jemand helfen? Bisher sieht es so aus.
Sub KopierenGewichtungen()
Dim mySheet As Worksheet, myOtherSheet As Worksheet, myBook As Workbook 'Defintion des _
Arbeitsblatts und der Arbeitsmappe
Set myBook = Excel.ActiveWorkbook
Set mySheet = myBook.Sheets("Startseite")
Set myOtherSheet = myBook.Sheets("Gewichtungen")
Dim i As Integer, j As Integer 'Definition der Laufvariablen als Integer
j = 2 ' Variable die angibt, in welcher Zeile wir auf dem Arbeitsblatt "Gewichtungen" starten
For i = 14 To 21 ' Start des Loops welcher von 14 bis 21 zählt
If mySheet.Cells(i, 12).Value "" Then 'für jede Ziffer, prüfen ob Zelle leer.
myOtherSheet.Cells(j, 4).Value = mySheet.Cells(i, 12).Value 'Kopieren der Werte zur _
Zelle auf Gewichtungen in der Zeile gemäß "j" Variable
Else 'Wenn Zelle leer dann
myOtherSheet.Cells(j, 4).Value = "" 'Wenn Zelle leer dann ""
End If
j = j + 1
Next i 'Ende des Loops und zum nächsten i
End Sub