Default Wert in Zellen Festlegen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Schau mal hier
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, solltest du diese Daten anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, varRet As Variant Dim varValues(12) As String On Error GoTo ErrExit varValues(0) = "1.2" varValues(1) = "1.4" varValues(2) = "1.6" varValues(3) = "1.8" varValues(4) = "2.0" varValues(5) = "2.2" varValues(6) = "2.4" varValues(7) = "2.6" varValues(8) = "2.8" varValues(9) = "3.0" varValues(10) = "3.2" varValues(11) = "3.4" varValues(12) = "3.6" If Not Intersect(Target, Range("C13:N13")) Is Nothing Then Application.EnableEvents = False For Each rng In Intersect(Target, Range("C13:N13")) If rng <> "" Then varRet = Application.Match(rng, Range("C16:N16"), 0) If IsNumeric(varRet) Then rng.Offset(1, 0) = varValues(varRet - 1) Else rng.Offset(1, 0) = "" End If Next End If ErrExit: Application.EnableEvents = True End Sub

Hallo Sepp
Vielen Dank fast Perfekt. Ich hab noch den Code so abgeändert, dass die jeweiligen Values in Zeile C4:C13 auftauchen in dem ich den Offset angepasst habe. Was noch fehlt ist wenn ich diese vorgegebene Zahl z. B. varValues(0) = "1.3" im excel file lösche und durch eine andere Zahl manuell ersetze z. B. 1.6 und diese dann wieder lösche dass dann wider die 1.3 auftaucht. Was müsste man noch ändern? In der Zeile C5:N5 soll zusätzlich noch ein default Wert festgelegt werden der jedoch immer z. B. 9.4 beträgt was muss ich hierbei am Code? Kann ich den Code im gleichen Fenster einfügen wie der andere?
Vielen dank.
Grüsse
Lucas
So siehts im Moment aus:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, varRet As Variant
Dim varValues(11) As String
On Error GoTo ErrExit
varValues(0) = "1.3"
varValues(1) = "1.5"
varValues(2) = "0.8"
varValues(3) = "1.2"
varValues(4) = "1.0"
varValues(5) = "1.5"
varValues(6) = "1.2"
varValues(7) = "0.8"
varValues(8) = "1.8"
varValues(9) = "2.0"
varValues(10) = "2.4"
varValues(11) = "2.5"
If Not Intersect(Target, Range("C13:N13")) Is Nothing Then
Application.EnableEvents = False
For Each rng In Intersect(Target, Range("C13:N13"))
If rng  "" Then
varRet = Application.Match(rng, Range("C16:N16"), 0)
If IsNumeric(varRet) Then rng.Offset(-9, 0) = varValues(varRet - 1)
Else
rng.Offset(-9, 0) = ""
End If
Next
End If
ErrExit:
Application.EnableEvents = True
End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

214 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Default Wert in Zellen Festlegen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

214 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread