Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Funktion Spalte kopieren
 05.05.2023 15:24:24 Tim
NotSolved
06.05.2023 01:21:16 Gast80240
NotSolved

Ansicht des Beitrags:
Von:
Tim		 Datum:
05.05.2023 15:24:24		 Views:
946		 Rating:
     
Antwort:
  Ja
Thema:
VBA Funktion Spalte kopieren

Hi,

ich versuche verzeifelt eine Funktion zu erstellen hoffentlich kann mir jemand helfen.

=GetT("LabelName";"SheetName")

 

Sheet1

LabelName1 LabelName2
Wert1 Wert1vonLabel2
Wert2 Wert2vonLabel2
Wert3 Wert3vonLabel2
wert4 Wert4vonLabel2
wert5 Wert5vonLabel2

 

Sheet 2

Wenn im ersten Feld in diesem zweitem Sheet die funktion eingebeen=GetT("LabelName2";"Sheet1") )wird soll es so aussehen

Wert1vonLabel2  
Wert2vonLabel2  
Wert3vonLabel2  
Wert4vonLabel2  
Wert5vonLabel2  
   

 

 

Mein versuch:

Function GetT(LabelName As String, BufferName As String)

Dim searchRange As Object
Dim labelColumn As Integer
Dim valueCounter As Integer

Set searchRange = ThisWorkbook.Worksheets(BufferName).Rows(1).Find(What:=LabelName, LookIn:=xlValues, LookAt:=xlWhole)
labelColumn = searchRange.Column
valueCounter = ThisWorkbook.Worksheets(BufferName).Cells(Rows.Count, labelColumn).End(xlUp).Row

GetT = valueCounter


End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Funktion Spalte kopieren
 05.05.2023 15:24:24 Tim
NotSolved
06.05.2023 01:21:16 Gast80240
NotSolved