If Bedingung
09.06.2015 12:57:13
Lexenlewax
ich habe folgendes Problem:
In Spalte N in Tabelle Process soll nach dem Wert der Zelle B6 aus Tabelle Druck gesucht werden.
Wird der Wert aus B6 gefunden, soll die Zahl links von dem Wert in das Feld B20 in Tabelle Druck geschrieben werden. Wird der Wert nicht gefunden, dann soll stattdessen der Wert aus einer fixen Zelle (A1 in Tabelle Process) in B20 eingetragen und der Wert der Zelle A1 um eins erhöht werden.
Mit Hilfe des Recorders habe ich schon den ersten Teil aufgenommen:
Option Explicit
Private mastrVariable(1 To 4) As String
Private Sub Worksheet_Calculate()
Dim Charge As Integer
Dim Partie As Integer
If mastrVariable(3) Cells(2, 2).Text Then
Union(Cells(20, 6), Cells(22, 2)).ClearContents
mastrVariable(3) = Cells(2, 2).Text
End If
If mastrVariable(4) Cells(6, 2).Text Then
Union(Cells(20, 6), Cells(22, 2)).ClearContents
ActiveSheet.Unprotect
Charge = Worksheets("Druck").Range("B6").Value
Sheets("Process").Select
Columns("N:N").Select
Selection.Find(What:=Charge, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(0, -1).Select
Selection.Copy
Sheets("Druck").Select
Range("B20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B22").Select
mastrVariable(4) = Cells(6, 2).Text
End If
End Sub
Was mir fehlt, ist der zweite Teil:
Wird der Wert nicht gefunden, dann soll stattdessen der Wert aus einer fixen Zelle (A1 in Tabelle Process) in B20 eingetragen und der Wert der Zelle A1 um eins erhöht werden.
Danke und Gruß,
Lexenlewax
PS: Schade, dass ich in meinem Informatikkurs vor 10 Jahren statt VBA Hyperturtle lernen musste....