Thema Datum  Von Nutzer Rating
Antwort
27.01.2017 14:18:19 punikaa
NotSolved
27.01.2017 17:43:08 Gast75827
NotSolved
30.01.2017 16:53:00 punikaa
NotSolved
Blau Daten filtern und übertragen
02.02.2017 09:26:17 punikaa
NotSolved

Ansicht des Beitrags:
Von:
punikaa		 Datum:
02.02.2017 09:26:17		 Views:
615		 Rating:
     
Antwort:
  Ja
Thema:
Daten filtern und übertragen
Ich bin nun soweit dass ich dieses Makro erstellt habe.. allerdings ist es sehr undynamisch. Zum einen habe ich das Problem dass die Haupttabelle elendig lang ist ... über 200 Zeilen und mit meinem Makro werden nur die ersten paar Werte übertragen, alle weiteren nicht... Wie gesagt ich bin sehr schlecht darin und komme einfach nicht weiter Code: Sub NoraRotMontag() Dim a As Long, i As Long Application.ScreenUpdating = False a = 2 For i = 1 To 10000 With Worksheets(1) If .Cells(i, "A") = "NoraRotMontag" Then Worksheets(2).Cells(a, 1).Value = Worksheets(1).Cells(i, 2).Value Worksheets(2).Cells(a, 2).Value = Worksheets(1).Cells(i, 3).Value Worksheets(2).Cells(a, 3).Value = Worksheets(1).Cells(i, 4).Value Worksheets(2).Cells(a, 4).Value = Worksheets(1).Cells(i, 5).Value Worksheets(2).Cells(a, 5).Value = Worksheets(1).Cells(i, 6).Value Worksheets(2).Cells(a, 6).Value = Worksheets(1).Cells(i, 7).Value a = a + 1 Else End If End With Next i Application.ScreenUpdating = True 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
27.01.2017 14:18:19 punikaa
NotSolved
27.01.2017 17:43:08 Gast75827
NotSolved
30.01.2017 16:53:00 punikaa
NotSolved
Blau Daten filtern und übertragen
02.02.2017 09:26:17 punikaa
NotSolved