Thema Datum  Von Nutzer Rating
Antwort
15.02.2016 14:18:51 madinus
NotSolved
15.02.2016 14:21:59 Gast39523
NotSolved
Rot Dein Makro funktioniert auf keinen Fall
 15.02.2016 17:00:07 Gast30947
NotSolved
16.02.2016 10:19:18 Gast89677
NotSolved
16.02.2016 13:01:06 Gast34857
NotSolved

Ansicht des Beitrags:
Von:
Gast30947		 Datum:
15.02.2016 17:00:07		 Views:
716		 Rating:
     
Antwort:
  Ja
Thema:
Dein Makro funktioniert auf keinen Fall		 
Sub Löschen_irrelevanter_Daten()
 Dim rngA As Range
 Dim rngE As Range
 Dim intCol As Integer
 Dim intRowAnf As Integer
 
 Dim intRowEnde As Integer   '<<< HIER wird die Variable initialisiert
 
 Set rngA = Cells.Find(What:="Arriving", _
   After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
   SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
   SearchFormat:=False)
 intCol = rngA.Column
 intRowAnf = rngA.Row
 
 '<<< HIER wird die Variable verwendet - HAT aber den Wert 0!
 Range(Cells(intRowAnf, intCol), Cells(intRowEnde, intCol)).EntireRow.Select
 
 'Laufzeitfehler 1004
 
 With Selection
   On Error Resume Next
   Rows("1:" & .Row - 1).Delete
   Rows(.Row + .Rows.Count & ":" & Rows.Count).Delete
   On Error GoTo 0
 End With
 End Sub

 

 

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.02.2016 14:18:51 madinus
NotSolved
15.02.2016 14:21:59 Gast39523
NotSolved
Rot Dein Makro funktioniert auf keinen Fall
 15.02.2016 17:00:07 Gast30947
NotSolved
16.02.2016 10:19:18 Gast89677
NotSolved
16.02.2016 13:01:06 Gast34857
NotSolved