Laufzeitfehler 91:

Sub BuchTag_NEU() Dim Abfr1, Abfr2 As Variant Dim SuchDatum As Date Beep Abfr1 = MsgBox("Ersten Buchungstag " & vbLf & vbLf & "( " & Sheets("Aufzeichnung").Range("C1") & " ) " & vbLf & vbLf & " NEU festlegen JA / Nein ? ", vbYesNo, "Abfrage zur Durchführung") If Abfr1 = 6 Then ' ist JA Sheets("Wochenkalender").Select SuchDatum = "01.01." & Range("I1") Range("D5:J6").Select ' ehemals j5 Selection.Find(What:=(SuchDatum), After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate ActiveCell.Select ' gef Zeile des Datum 01.01 & GJ gefunden InhaltTxt = ActiveCell.Text Range("A4").Value = InhaltTxt Application.Calculate End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Siegfried,
wo befindet sich dein Code?
Es gibt verschiedene Möglichkeiten, aber Erklärung mit nur 2:
entweder ist der Code in einem Modul oder in eine Worksheet-Codepane.
Im Modul muss Du dann stets angeben, in welche Tabelle eine Adresse sich bezieht. Range("D5:J6") ist nicht ausreichend. Auch wenn Du nur eine Tabelle in deinem Excel hättest.
In einem Worksheet-Codepane bezieht sich eine solche Range("D5:J6") immer auf die Worksheet von dem Codepane, wo Du dich befindest. Auch wenn Du vorher einen Worksheet("xx").Select, um eine andere Sheet zu selektieren, eingegeben hast.
In deinem MsgBox ist es sauber: Sheets("Aufzeichnung").Range("C1")
Sauberer ist es auch, das Ergebnis einer Suche an einem Range-Objekt zu übergeben, um dann zu prüfen, ob ein Treffer gefunden wurde:


If Not Ergebnis is Nothing Then

Das gesamste sieht dann so aus:


Sub BuchTag_NEU()
Dim Abfr1, Abfr2
Dim SuchDatum As Date
Dim Ergebnis As Range
Beep
Abfr1 = MsgBox("Ersten Buchungstag " & vbLf & vbLf & "( " & Sheets("Aufzeichnung").Range("C1") & " ) " & vbLf & vbLf & " NEU festlegen JA / Nein ? ", vbYesNo, "Abfrage zur Durchführung")
If Abfr1 = 6 Then       ' ist JA
With Sheets("Wochenkalender")
SuchDatum = "01.01." & .Range("I1")
Set Ergebnis = .Range("D5:J6").Find(What:=(SuchDatum), After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If Not Ergebnis Is Nothing Then
.Range("A4").Value = Ergebnis.Text
Application.Calculate
End If
End With
End If
End Sub

VG
Yal

Sub BuchTag_NEU() Dim Abfr1, Abfr2 As Variant Dim SuchDatum As Date Dim Zelle As Range GoTo Abkürzung Beep Abfr1 = MsgBox("Ersten Buchungstag " & vbLf & vbLf & "( " & Sheets("Aufzeichnung").Range("C1") & " ) " & vbLf & vbLf & " NEU festlegen JA / Nein ? ", vbYesNo, "Abfrage zur Durchführung") If Abfr1 = 6 Then ' ist JA Abkürzung: Sheets("Wochenkalender").Select SuchDatum = "01.01." & Range("I1") 'Range("D5:J6").Select ' ehemals j5 Set Zelle = Range("D5:J6").Find(What:=(SuchDatum), After:=Range("J6"), LookIn:=xlValues _ , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False) If Not Zelle Is Nothing Then Zelle.Select ' gef Zeile des Datum 01.01 & GJ gefunden InhaltTxt = ActiveCell.Text Range("A4").Value = InhaltTxt Application.Calculate Else MsgBox "Suchdatum nicht gefunden!" End If End If End Sub

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread