habe folgendes Makro über das Forum erhalten, um den Spaltennamen zu ermitteln.
Funktioniert soweit.
Public Function SPALTEB(Optional ByVal spalte As Integer) As String
If spalte = 0 Then spalte = ActiveCell.Column
SPALTEB = Application.Substitute(Cells(1, spalte).Address(0, 0), 1, "")
End Function
Private Sub CommandButton4_Click()
MsgBox " Sie befinden sich in der Spalte: " & """ " & SPALTEB & " """
End Sub
Jetzt möchte ich gern zur 1. Zelle der Spalte gehen, komme nicht ganz zurecht, da es ja irgendeine
Spalte sein kann also der Spaltenname nocht nicht bekannt ist.
Die Zelle sollte eine varible sein, da ich von da aus in der vorherigen Spalte z.b. Zelle 15 muß und von
da aus die Formel in die neue Spalte kopieren muß.
Habe mal den kopiervorgang aufgezeichnet:
'- jetzt noch formel kopieren ----------
Range("D14:D16").Select
Selection.Copy
Range("E14").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=12
Range("D34:D35").Select
Selection.Copy
Range("E34").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("E34").Select
ActiveCell.FormulaR1C1 = "0"
Range("E35").Select
mfg Walter MG