Excel VBA Skript

[kinimod2010]

Hallo Leute,

Ich bin derzeit am Programmieren an einem kleinen VBA Skript. Ich habe schon einiges geschafft nur jetzt stehe ich eigentlich an. Was ich will:

Mit der Auswahl in dem Excel wo das Makro läuft der Text aus der nächsten Spalte mit übernommen werden geht das?

Ich bitte um eure hilfe
Danke

Spoiler: Code VBA

Sub Master()
Application.ScreenUpdating = False
    Workbooks.Open Filename:="Link you get the data from", UpdateLinks:=True, ReadOnly:=True
  '  ActiveWindow.Visible = True
    ThisWorkbook.Activate
    Application.ScreenUpdating = True

'Using Find Function (Provided by Bob Ulmas)
  LastRow = ActiveSheet.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
  LastRow = "$A$" & CStr(LastRow)

'Ctrl + Shift + Down (Range should be first cell in data set)
 ' LastRow = sht.Range("A1").CurrentRegion.Rows.Count

    With Range("C:C").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(""[Name of File you open]Tabelle1!$C$4:$C$69"")"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = "bitte wählen"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
    
    
    
   ' Workbooks("Workbook you have opened").Close
    
    
End Sub

 

[Bonanca]

Mit der Auswahl in dem Excel wo das Makro läuft der Text aus der nächsten Spalte mit übernommen werden geht das?

Also ich weiß nicht wie es anderen geht, aber ich verstehe nicht ganz was das Ziel ist...

 

[Dreia]

Call a Bondulance

 

[Hayda Ministral]

Unabhängig von einer eventuellen Lösung: Sourcecode bitte in "Code"-Tags setzen. Das macht alles folgende einfacher.