Thema Datum  Von Nutzer Rating
Antwort
Rot Nur Werte übertragen
 15.04.2015 10:17:07 Guest2503
NotSolved
Blau usw
 15.04.2015 18:57:43 Gast48738
NotSolved

Ansicht des Beitrags:
Von:
Guest2503		 Datum:
15.04.2015 10:17:07		 Views:
1636		 Rating:
     
Antwort:
  Ja
Thema:
Nur Werte übertragen
Hallöchen, ich habe ein kleines VBA Problem. Leider kenne ich mich nur sehr schlecht damit aus. Ich konnte einen Code nutzen der eigentlich genau das macht was ich will. Er soll 3 Listen auf Werte durchsuchen und die Zeilen mit Daten in eine andere Tabelle kopieren. Das macht er auch alles super. Problem ist nur, dass die Rechenfunktionen beim Übertragen leider versagen. Da ich nie weiß wie lang meine Liste wird habe ich ein Problem. Lösung wäre es wenn der Code nur die Werte übernehmen würde. Jetzt also mein Problem : Wie kann ich den Code so umbauen, dass er nur die Werte überträgt. Sub FehlerZusammenfassung() Dim lngLetzte As Long Dim lngQuelle As Long Dim lngZiel As Long 'in welcher zeile wird eingefügt' lngZiel = 1 'Aus welcher Datein' With Worksheets("Fehlerliste-PK3") ' letzte benutzte Zeile in Spalte C daher die 3' ' Welche Zeile wird als überprüfung genommen' lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 3)), .Cells(.Rows.Count, 3).End(xlUp).Row, .Rows.Count) ' Schleife über alle Zeilen von 1 bis zur letzten ermittelten Zeile For lngQuelle = 1 To lngLetzte ' laufende Zelle in I ist nicht leer If .Cells(lngQuelle, 9) <> "" Then ' laufende Zeile kopieren nach TTF Zielzeile .Rows(lngQuelle).Copy Worksheets("Zusammengefasste Fehler").Cells(lngZiel, 1) ' Zielzeile um 1 erhöhen lngZiel = lngZiel + 1 End If Next lngQuelle End With 'in welcher zeile wird eingefügt' lngZiel = lngZiel + 3 'Aus welcher Datein' With Worksheets("Fehlerliste-PK4") ' letzte benutzte Zeile in Spalte I ' Welche Zeile wird als überprüfung genommen' lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 3)), .Cells(.Rows.Count, 3).End(xlUp).Row, .Rows.Count) ' Schleife über alle Zeilen von 1 bis zur letzten ermittelten Zeile For lngQuelle = 1 To lngLetzte ' laufende Zelle in I ist nicht leer If .Cells(lngQuelle, 9) <> "" Then ' laufende Zeile kopieren nach TTF Zielzeile .Rows(lngQuelle).Copy Worksheets("Zusammengefasste Fehler").Cells(lngZiel, 1) ' Zielzeile um 1 erhöhen lngZiel = lngZiel + 1 End If Next lngQuelle End With 'in welcher zeile wird eingefügt' ' vorheriges Ende plus 3 Zeile ' lngZiel = lngZiel + 3 'Aus welcher Datein' With Worksheets("Fehlerliste-PK5") ' letzte benutzte Zeile in Spalte I ' Welche Zeile wird als überprüfung genommen' lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 3)), .Cells(.Rows.Count, 3).End(xlUp).Row, .Rows.Count) ' Schleife über alle Zeilen von 1 bis zur letzten ermittelten Zeile For lngQuelle = 1 To lngLetzte ' laufende Zelle in I ist nicht leer If .Cells(lngQuelle, 9) <> "" Then ' laufende Zeile kopieren nach zusammengefasste Fehler Zielzeile .Rows(lngQuelle).Copy Worksheets("Zusammengefasste Fehler").Cells(lngZiel, 1) ' Zielzeile um 1 erhöhen lngZiel = lngZiel + 1 End If Next lngQuelle End With End Sub Beste Grüße und Danke für die Hilfe

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
Rot Nur Werte übertragen
 15.04.2015 10:17:07 Guest2503
NotSolved
Blau usw
 15.04.2015 18:57:43 Gast48738
NotSolved