Thema Datum  Von Nutzer Rating
Antwort
15.08.2016 17:41:40 Mikell
NotSolved
16.08.2016 11:37:47 Gast61941
NotSolved
Rot vba script anpassen: Tabellenblätter vergleichen
 16.08.2016 16:37:36 Mikell
NotSolved

Ansicht des Beitrags:
Von:
Mikell		 Datum:
16.08.2016 16:37:36		 Views:
587		 Rating:
     
Antwort:
  Ja
Thema:
vba script anpassen: Tabellenblätter vergleichen

Hallo Rene,

grundsätzlich ist der gepostetete Code vollständig und funktioniert auch.

Ich habe in der Datei aber mehrere Module . Unteranderem wird in einem anderen Modul noch Formeln in dem Datenblatt "Neudaten" gesetzt. ( siehe unten)

Ich weiß leider nicht was bei deinem Test nicht genau funktioniert.  Kann es vielleicht auch an fehlenden Verweisen oder an falschen Formatierungen liegen?

 

 

Public Sub letzte_zeile()
letztezeile = Worksheets("Neudaten").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Neudaten").Range("J1") = "Tage"
Worksheets("Neudaten").Range("J1").Columns.AutoFit
 With Worksheets("Neudaten").Range("J2:J" & letztezeile)
.FormulaLocal = "=NETTOARBEITSTAGE(F2;I2)"
 .Value = .Value
Worksheets("Neudaten").Range("K1") = "Zeit"
Worksheets("Neudaten").Range("K1").Columns.AutoFit
 With Worksheets("Neudaten").Range("K2:K" & letztezeile)
.FormulaLocal = "=SVERWEIS(J2;Hilfstabelle!A:B;2;0)"
 .Value = .Value
 With Worksheets("Neudaten")
      .Columns("A:K").Sort Key1:=.Range("J2"), Order1:=xlDescending, Header:=xlYes, OrderCustom:=1, _
         MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
   End With
End With
 End With
End Sub

 

Danke und Gruß

Mikell

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.08.2016 17:41:40 Mikell
NotSolved
16.08.2016 11:37:47 Gast61941
NotSolved
Rot vba script anpassen: Tabellenblätter vergleichen
 16.08.2016 16:37:36 Mikell
NotSolved