VBA

Hallo zusammen,
Ich wollte Euch 2 Fragen stellen.
1) Gibt es eine geschicktere Form um das selbe Ergebnis zu kriegen?
(BG..:BK.. entspricht verbundene Zelle)


Private Sub cmdDo_Click()
Worksheets("Pflege").Range("BG11:BK11").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,2)"""",HLOOKUP(RangeDatum,RangeMTA,2  _
_
b>),"""")"
Worksheets("Pflege").Range("BG12:BK12").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,3)"""",HLOOKUP(RangeDatum,RangeMTA,3),"""")"
Worksheets("Pflege").Range("BG13:BK13").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,4)"""",HLOOKUP(RangeDatum,RangeMTA,4),"""")"
Worksheets("Pflege").Range("BG14:BK14").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,5)"""",HLOOKUP(RangeDatum,RangeMTA,5),"""")"
Worksheets("Pflege").Range("BG15:BK15").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,6)"""",HLOOKUP(RangeDatum,RangeMTA,6),"""")"
Worksheets("Pflege").Range("BG16:BK16").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,7)"""",HLOOKUP(RangeDatum,RangeMTA,7),"""")"
Worksheets("Pflege").Range("BG17:BK17").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,8)"""",HLOOKUP(RangeDatum,RangeMTA,8),"""")"
Worksheets("Pflege").Range("BG18:BK18").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,9)"""",HLOOKUP(RangeDatum,RangeMTA,9),"""")"
Worksheets("Pflege").Range("BG19:BK19").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,10)"""",HLOOKUP(RangeDatum,RangeMTA,10),"""")"
Worksheets("Pflege").Range("BG20:BK20").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,11)"""",HLOOKUP(RangeDatum,RangeMTA,11),"""")"
Worksheets("Pflege").Range("BG21:BK21").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,12)"""",HLOOKUP(RangeDatum,RangeMTA,12),"""")"
Worksheets("Pflege").Range("BG22:BK22").FormulaR1C1 = _
"=IF(HLOOKUP(RangeDatum,RangeMTA,13)"""",HLOOKUP(RangeDatum,RangeMTA,13),"""")"
End Sub

Und nun die 2. Frage:
Im "RangeDatum" gibt es eine Liste (Daten--->Gültigkeit--->Liste).
Ist es möglich, dass die o.g. Funktionen wieder geschrieben werden jedes Mal ein neuer Wert aus der Dropdown Liste im "RangeDatum" ausgewählt wird?
Bedanke mich im Voraus!
Beste Grüße,
Juan.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA

17.03.2008 18:20:55

Tino

AW: VBA

17.03.2008 18:49:04

Juan

AW: VBA

17.03.2008 18:30:00

fcs

AW: VBA

17.03.2008 18:46:00

Juan

AW: VBA

18.03.2008 07:47:45

fcs

Vielen Dank, Franz! Es hat geklappt! BG

19.03.2008 09:18:28

Juan

Sub test() Dim A As Byte Application.ScreenUpdating = False With Worksheets("Pflege") For A = 11 To 22 .Range("BG" & A & ":BK" & A).FormulaR1C1 = _ "=IF(HLOOKUP(RangeDatum,RangeMTA," & A - 9 & ")"""",HLOOKUP(RangeDatum,RangeMTA," & A - _ 9 & "),"""")" Next A End With Application.ScreenUpdating = True End Sub

Private Sub cmdDo_Click() Dim Reihe As Long With Worksheets("Pflege") Reihe = 2 For Zeile = 11 To 22 .Range("BG" & Zeile).FormulaR1C1 = _ "=IF(HLOOKUP(RangeDatum,RangeMTA," & Reihe & ")"""",HLOOKUP(RangeDatum,RangeMTA," _ & Reihe & "),"""")" Reihe = Reihe + 1 Next End With End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Reihe As Long, Zeile As Long 'zellwert überwachen If Target.Address = "$A$2" Then 'Formeln im Bereich BG11:BK22 wiederhestellen With Worksheets("Pflege") Reihe = 2 Application.EnableEvents = False 'Ereignismakros abschalten For Zeile = 11 To 22 .Range("BG" & Zeile).FormulaR1C1 = _ "=IF(HLOOKUP(RangeDatum,RangeMTA," & Reihe & ")"""",HLOOKUP(RangeDatum,RangeMTA," _ & Reihe & "),"""")" Reihe = Reihe + 1 Next Application.EnableEvents = True 'Ereignismakros einschalten End With End If End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread