Default Wert in Zellen Festlegen

Lucas · 2017-08-18T16:18:01+00:00

Hallo zusammen Ich möchte in einem Excel Dokument (siehe File upload) für den Bereich C4:N4 Defaultwerte festlegen. Wenn der Nutzer eine Eingabe macht diese aber wiederum löscht soll wieder der Default Wert angezeigt werden. Dieser Default Wert hängt von einer Auswahl aus einer Dropdownliste der jeweiligen Spalte (C13:N13) ab. z. B. ist der Wert für Auswahl 1: 1.2, derjenige für Auswahl 2 1.4 etc. Der Wert in der jeweiligen Zelle von C4 bis N4 wird danach in den Zellen C17 bis N17 für eine Berechnung verwendet. Wie lautet der vba Code hierfür einaml ohne die Abhängigkeit der Dropdownliste und einmal mit. Leide habe ich nicht viel Erfahrung was das programmieren von vba im Excel angeht. Anbei der Code für ein Gif der Excel Datei: [Bild: Userbild] Vielen Dank für eure Hilfe. Grüsse Lucas

Hallo Lucas,
dann so.

' **********************************************************************
' 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

Der Code vergleicht die Auswahl mit den Listeneinträgen (MATCH) und gibt je nach Index den entsprechenden Eintrag aus dem Array (varValues) zurück.

Gruß Sepp

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

Forumthread: Default Wert in Zellen Festlegen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Default Werte in Excel Zellen Festlegen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)