Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


autoOpen - befele kombinieren
#1
Hallo zusammen,

ich möchte volgenden zwei Befele kombinieren. Besteht da einen möglichkeit?

Es soll erst Teil 1 und danach sofort Teil 2 ausgeführt weden.

Für eine Antwort währe ich Euch sehr dankbar.

VG
Jens

Teil 1
Code:
Private Sub Workbook_Open()
Dim i As Integer
Sheets("NK_Aufträge_Tag").Activate
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 1).Value = Date - 1 Then
Cells(i, 1).Select: Exit Sub
End If
Next i
Sheets("Auswertung").Activate
Range("D3").Select
End Sub

Teil 2
Code:
Private Sub Workbook_Open()
Sheets("Tabelle1").Activate
Range("H116").Select
End Sub
to top
#2
Hallo Jens,

Code:
Private Sub Workbook_Open()
  Dim varZ As Variant
  varZ = Application.Match(CDbl(Date - 1), Worksheets("NK_Aufträge_Tag").Columns(1), 0)
  If Not IsError(varZ) Then Application.Goto Worksheets("NK_Aufträge_Tag").Cells(varZ, 1)
  Application.Goto Worksheets("Tabelle1").Range("H116"), True
End Sub

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
reinhawi
to top
#3
Hallo Jens,

ich sah gerade im anderen Thread, dass es um Zeile 2 geht.
habe es mal mit eingefügt. Das Unerwünschte kannst du ja auskommentieren.

Code:
Private Sub Workbook_Open()
  Dim varZ As Variant
  'Suche gestriges Datum in Spalte 1
  varZ = Application.Match(CDbl(Date - 1), Worksheets("NK_Aufträge_Tag").Columns(1), 0)
  'Suche gestriges Datum in Zeile 2
  varZ = Application.Match(CDbl(Date - 1), Worksheets("NK_Aufträge_Tag").Rows(2), 0)
  If Not IsError(varZ) Then Application.Goto Worksheets("NK_Aufträge_Tag").Cells(varZ, 1)
  Application.Goto Worksheets("Tabelle1").Range("H116"), True
End Sub

Gruß Uwe
to top
#4
Hallo Uwe,


die Antwort vom 13.10.2014 11:29 Uhr war genau das was ich gesucht hatte. in dem anderen Thread handelt es sich um ein anderen Sachverhalt..

Wäre nett wenn ich dazu noch eine Antwort bekommen könnte.

Vielen Dank
Jens
to top
#5
Hallo Jens,

ich hatte doch vorhin die Variante mit Suche in Zeile 2 geschrieben.

Gruß Uwe
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Artikeldaten aus versch. Tabellen kombinieren Adrianos 9 239 01.10.2016, 20:10
Letzter Beitrag: IchBinIch
  Dropdown-Liste mit Sverweis und Dropdown kombinieren Amcor 1 166 26.08.2016, 12:19
Letzter Beitrag: steve1da
  Zwei Diagrammtypen kombinieren!? Larne 4 223 13.07.2016, 20:40
Letzter Beitrag: Larne
  Bedingungen kombinieren blownlightbulb 1 241 13.06.2016, 18:36
Letzter Beitrag: WillWissen
  Wörter kombinieren, Textkette erstellen snoergel 2 258 02.06.2016, 14:49
Letzter Beitrag: BoskoBiati
  2 Excel Files kombinieren mouses 7 477 20.01.2016, 19:33
Letzter Beitrag: shift-del
  Formeln kombinieren darkmooon-666 7 498 18.01.2016, 13:26
Letzter Beitrag: darkmooon-666
  zwei Bedingungen kombinieren TheFlash90 4 387 28.12.2015, 11:24
Letzter Beitrag: TheFlash90
  Funktion LINKS kombinieren bea die erste 8 1.751 18.04.2015, 09:27
Letzter Beitrag: bea die erste
  AutoOpen reinhawi 9 1.635 15.10.2014, 18:28
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste