ich bräuchte ein Makro das in Excel automatisch in die letzte Zeile springt in der ein Eintrag steht und diesen Eintrag dann in eine beliebige stelle schreibt. oder geht das etwa auch mit einer normalen Formel??
Vielen Dank für Eure Hilfe
Marcel
ich bräuchte ein Makro das in Excel automatisch in die letzte Zeile springt in der ein Eintrag steht und diesen Eintrag dann in eine beliebige stelle schreibt. oder geht das etwa auch mit einer normalen Formel??
Vielen Dank für Eure Hilfe
Marcel
VG,
Alex
eigentlich soll in jeder Spalte die letzte beschriebene Zelle ausgegeben werden. Das kann z.B. in Spalte A die Zelle 21 und in Spalte B die Zelle 5 sein. Das Makro sollte praktisch überprüfen, in welcher Zelle der Spalte A der letzte Eintrag steht und diesen ausgeben. Die Ausgabe kann dann praktisch unter dem letzten Eintrag der Spalte stehen!
Vielen Dank
Marcel
Sub M1()
'letzter Wert der aktiven Spalte ausgeben
iRow = Cells(Rows.Count,ActiveCell.Column).End(xlup).Row
msgBox Cells(iRow, ActiveCell.Column).Value
End Sub
Sub m2()
Dim iCol, iRow, iCount as Integer
iCol = Inputbox("Anzahl der Spalten")
If not isnumeric(icol) then exit sub
if icount = 1 to icol
irow = Cells(Rows.Count,icount).End(xlup).Row
msgbox Cells(irow,icount).Value
next icount
End Sub
vielen Dank für deine schnelle Hilfe. Jedoch bringt Möglichkeit 2 immer einen Syntaxfehler. Aber trotzdem nochmals vielen Dank!
Marcel
vielen Dank für deine schnelle Hilfe. Jedoch bringt Möglichkeit 2 immer einen Syntaxfehler. Aber trotzdem nochmals vielen Dank!
Marcel
hier ist @lex ein kleiner Tippfehler unterlaufen:
Statt if icount=1 muss es
For icount=1 heißen:
Sub m2()
Dim iCol, iRow, iCount As Integer
iCol = InputBox("Anzahl der Spalten")
If Not IsNumeric(iCol) Then Exit Sub
For iCount = 1 To iCol
iRow = Cells(Rows.Count, iCount).End(xlUp).Row
MsgBox Cells(iRow, iCount).Value
Next iCount
End Sub
Gruß
Jürgen
habs rausgefunden warum es ein Syntaxfehler gibt, die Schleife muss mit FOR anfangen!
Marcel
hab deinen Eintrag zu spät gesehen!
Trotzdem Danke!
Marcel