Rückmeldung.
27.03.2008 13:40:00
Juan
Hallo Rene,
sorry dass ich mich so spät wieder melde. Ich konnte es nicht früher.
Ich bin mit dem Rumbasteln fertig und es hat geklappt. Vielen Dank!
Da ich kein gutes Kriterium besitze, habe ich den modifizierten Code eingefügt. Kannst Du einen Blick darauf werfen?
Bedanke mich nochmals für die erhaltene Hilfe!
Beste Grüße,
Juan.
Private Sub cmdSpeichern_Click()
Dim objDaten As Worksheet
Dim rng As Range, rngF As Range, varSuchen As Variant
Dim lngN As Long, intR As Integer, lngEingabe As Long
Set objDaten = Worksheets("Daten") 'TB "Daten"
With objDaten
'Anstatt von Range("BH7").Value ginge es Range("RangeDatum").Value?
varSuchen = Range("BH7").Value
'.Range("RangeLaufzeit").Find.... anstatt .Rows(7).Find....?
Set rngF = .Rows(7).Find(what:=varSuchen, _
LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False)
'In meinem Fall ist keine EinfügeZeile nötig, da die Datumswerte aus einer
'geschlossenen Liste herausgenommen werden.
lngN = rngF.Column
'Daten aus Eingabeblatt übertragen. Vielleicht kann man es geschickter hinkriegen.
'So läufts auch.
'Frage: Ist lngEingabe nötig?
For intR = 11 To 22
Select Case intR
Case 11 To 22
lngEingabe = 8
.Cells(lngEingabe + intR, lngN).Value = Cells(intR, 59).Value
End Select
Next
For intR = 11 To 16
Select Case intR
Case 11 To 16
lngEingabe = 24
.Cells(lngEingabe + intR, lngN).Value = Cells(intR, 80).Value
End Select
Next
For intR = 26 To 27
Select Case intR
Case 26 To 27
lngEingabe = 542
.Cells(lngEingabe + intR, lngN).Value = Cells(intR, 59).Value
End Select
Next
For intR = 31 To 32
Select Case intR
Case 31 To 32
lngEingabe = 547
.Cells(lngEingabe + intR, lngN).Value = Cells(intR, 64).Value
End Select
Next
For intR = 36 To 39
Select Case intR
Case 36 To 39
lngEingabe = 549
.Cells(lngEingabe + intR, lngN).Value = Cells(intR, 51).Value
End Select
Next
For intR = 36 To 42
Select Case intR
Case 36 To 42
lngEingabe = 553
.Cells(lngEingabe + intR, lngN).Value = Cells(intR, 58).Value
End Select
Next
For intR = 36 To 42
Select Case intR
Case 36 To 42
lngEingabe = 560
.Cells(lngEingabe + intR, lngN).Value = Cells(intR, 73).Value
End Select
Next
For intR = 36 To 42
Select Case intR
Case 36 To 42
lngEingabe = 567
.Cells(lngEingabe + intR, lngN).Value = Cells(intR, 80).Value
End Select
Next
.Cells(59, lngN).Value = Cells(20, 80).Value
.Cells(49, lngN).Value = Cells(26, 80).Value
End With
Set objDaten = Nothing
Set rng = Nothing
Set rngF = Nothing
Rewrite 'Ruft Subprozedur in Modul1. Nachdem die Werte
'auf "Daten" gespeichert werden, werden die wVerweis-
'Formeln wieder geschrieben.
End Sub