ich habe eine Gültigkeitsliste mit verschiedenen Werten in Tabelle1.
Basierend auf der Auswahl soll dann aus der Tabelle2 der Zellbereich mit dem gleichen Namen rüberkopiert werden neben die Gültigkeitsliste.
Gibt es dafür ne VBA Vorlage?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B11" Then
ThisWorkbook.Names(Target.Value).RefersToRange.Copy Range("C11")
End If
End Sub
Der Code gehört ins Codemodul des Tabellenblattes, auf dem deine Gültigkeitsprüfung ist.Worksheets("Tabelle2").Names(Target.Value).RefersToRange.Copy Range("C11")
Gruß WernerOption Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim copyRange As Range
If Target.Cells(1, 1).Address = "$B$11" Then
If IsEmpty(Target) Then
' Bei leerer Auswahl wird ev. kopierter Bereich gelöscht
Set copyRange = Intersect(Target.Offset(3).Resize(UsedRange.Rows.Count, _
UsedRange.Columns.Count), UsedRange)
If Not copyRange Is Nothing Then copyRange.Clear
Else
' Fehler auf undefinierte Namen abfangen
On Error Resume Next
Set copyRange = ThisWorkbook.Names(Target.Cells(1, 1).Text).RefersToRange
If Err.Number = 0 Then
' Kein Fehler => kopiere benannten Bereich rechts von der Auswahl
copyRange.Copy Target.Offset(3)
Else
' Fehler der Name konnte nicht aufgelöst werden
MsgBox "Der Name " & Target.Cells(1, 1).Text & " ist nicht definiert " & _
"oder entspricht keinem Bereich!", vbCritical
Err.Clear
End If
On Error GoTo 0
End If
End If
End Sub
Gruess HansueliProblemstellung
Wie kann ich über VBA 12 Monatsblätter anlegen und die Gültigkeit der Werte in Spalte A jeden Blattes auf einen bestimmten Bereich des ersten Tabellenblattes begrenzen?
Problemstellung
Wie kann ich bei Auswahl von Zelle B3 eine Gültigkeitsliste dann aufklappen lassen, wenn Zelle A1 nicht leer ist?
Problemstellung
Nur dann, wenn die Werte in den Zellen A1:C1 jeweils 10 betragen, soll bei Auswahl der Zellen A3, C3, A5 und C5 die Liste aus D1:D12 als Gültigkeitsliste festgelegt werden.
Problemstellung
Die Auswahl aus einer Gültigkeitsliste in Spalte D soll durch eine Zahl ersetzt werden. Nur lauffähig ab XL10.
Problemstellung
In Zelle H10 befindet sich ein Gültigkeitsbegrenzung. In den Zellen links neben H10 sollen die zur Auswahl in H10 korrespondierenden Werte eingetragen werden. Nur ab XL9 funktionsfähig.
Problemstellung
Wenn in Zelle B1 "Monate" steht, soll sich die Gültigkeitsliste aus Spalte A auf Monate, bei "Tage" auf Wochentage beschränken.
Problemstellung
In Zelle B2 soll eine Gültigkeitsliste angezeigt werden, deren Werte in Abhängigkeit zu dem in Zelle A2 eingetragenen Wert stehen.
Problemstellung
Wie kann ich bei einer importierten Datei alle Leerzeichen löschen?