Thema Datum  Von Nutzer Rating
Antwort
30.08.2017 15:34:14 Yilo
NotSolved
Blau Werte kürzen
 30.08.2017 16:20:41 Gast99267
NotSolved
30.08.2017 16:29:35 Mackie
NotSolved
31.08.2017 11:18:04 Yilo
NotSolved
31.08.2017 11:56:20 Gast99267
NotSolved
31.08.2017 12:20:39 Yilo
NotSolved

Ansicht des Beitrags:
Von:
Gast99267		 Datum:
30.08.2017 16:20:41		 Views:
687		 Rating:
     
Antwort:
  Ja
Thema:
Werte kürzen

Wozu?

eine Referenzspalte mit den ersten 3 Zeichen des Namens?

Oder?

ist diese Referenzspalte nach einer anderen Logik, dann muss daneben zusätzlich der

vollqualifizierte Begriff stehen

in jedem Fall bin ich mit Excel-Formel und nach unten ziehen schneller als mit VBA-Code basteln

Egal zum Bild der Code

Sub DoiT()
Const C_VL As String = "=VLOOKUP(RC[-1],R1C4:RZEILEC5,2,FALSE)"

Dim rngRef As Range
Dim re As Long

   With ActiveSheet
      Set rngRef = .[D1].CurrentRegion
      Set rngRef = rngRef.Resize(, 2)
      re = rngRef.Rows.Count
      .Columns("B").ClearContents
      With .Columns("A").CurrentRegion.Offset(, 1)
         .FormulaR1C1 = Replace(C_VL, "ZEILE", Format(re, "#"))
      End With
   End With


End Sub

 

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:



  • 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
30.08.2017 15:34:14 Yilo
NotSolved
Blau Werte kürzen
 30.08.2017 16:20:41 Gast99267
NotSolved
30.08.2017 16:29:35 Mackie
NotSolved
31.08.2017 11:18:04 Yilo
NotSolved
31.08.2017 11:56:20 Gast99267
NotSolved
31.08.2017 12:20:39 Yilo
NotSolved