Thema Datum  Von Nutzer Rating
Antwort
19.06.2019 09:11:18 arrul
NotSolved
Blau Zelle mit Information aus anderen Tabellenblatt ersetzen
 19.06.2019 20:15:08 Gast404
NotSolved

Ansicht des Beitrags:
Von:
Gast404		 Datum:
19.06.2019 20:15:08		 Views:
422		 Rating:
     
Antwort:
  Ja
Thema:
Zelle mit Information aus anderen Tabellenblatt ersetzen

Den gröbsten Fehler sehe ich darin, dass Problembeschreibung und Codeschnippel nicht zusammenpassen.

Ich möchte, dass der Bereich im Tabellenblatt 2 C9 bis IV9 durch Informationen aus Tabellenblatt 4 B3 bis B17 ersetzt wird.
Beispiel: C9 = 01 D9=04 E9=10 usw....nach Makro.....C9= 01 Apfel D9= 04 Birne E9=10 Kirsche
Ich habe hier vorgegebene Werte von 01 bis 14. Diese sollen nach Makro automatisch in 01 Text bis 14 Text umgewandelt werden.

Option Explicit

Sub NachBeschreibung()
Dim c

   'das Obst befindet sich in Sheets("Tabellenblatt 4").Range("C3:C17")
   For Each c In Sheets(2).Range("C9:IV9").Cells
      c.Value = WorksheetFunction.VLookup(c.Value, Sheets("Tabellenblatt 4").Range("B3:C17"), 2, False)
   Next c

End Sub

 

Der Bröckerlcode Sub A ist dagegen wohl aus einem Worksheet_Change - Ereignis gefallen.
Als Code in der Tabelle2 - Klasse also so

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Count > 1 Then Exit Sub
   If Intersect(Target, Range("C9:IV9")) Is Nothing Then Exit Sub
   
   Application.EnableEvents = False
   Target.Value = WorksheetFunction.VLookup(Target.Value, Sheets("Tabellenblatt 4").Range("B3:C17"), 2, False)
   Application.EnableEvents = True

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
19.06.2019 09:11:18 arrul
NotSolved
Blau Zelle mit Information aus anderen Tabellenblatt ersetzen
 19.06.2019 20:15:08 Gast404
NotSolved