Thema Datum  Von Nutzer Rating
Antwort
Rot daten in liste einfügen
 26.06.2017 20:05:11 stefan
NotSolved
26.06.2017 20:52:08 Gast55687
NotSolved
26.06.2017 21:47:50 stefan
NotSolved
26.06.2017 22:18:34 Gast9011
NotSolved

Ansicht des Beitrags:
Von:
stefan		 Datum:
26.06.2017 20:05:11		 Views:
1349		 Rating:
     
Antwort:
  Ja
Thema:
daten in liste einfügen

Hallo,

ich brauche mal bitte hilfe....ich habe ein code, in dem daten in einer liste automatisch in der letzte zeile gefüllt werden.
Ich würde aber genau das Gegenteil erzeugen. Ist das möglich, dass man die Zeile nach unten schiebt ( z.b von Zeile 10 ).

und in zeile 10 werden die neuen daten eingetragen.

eine Lösung muss nicht sein, nur mal eine Starthilfe wäre ok

 

?
1
2
3
4
5
6
7
8
9
10
11
For I = Me.ListView1.ListItems.Count To 1 Step -1
               If Me.ListView1.ListItems.Item(I).Selected = True Then
                   Z = ws2.Cells(Rows.Count, 1).End(xlUp).Row
                   ws2.Cells(Z + 1, 1).Value = ws1.Cells(10 + I, 1).Value
                   ws2.Cells(Z + 1, 2).Value = ws1.Cells(10 + I, 2).Value
                   ws2.Cells(Z + 1, 3).Value = ws1.Cells(10 + I, 3).Value
                   ws2.Cells(Z + 1, 4).Value = ws1.Cells(10 + I, 4).Value
                   ws2.Cells(Z + 1, 5).Value = ws1.Cells(10 + I, 5).Value
                    
                   ws1.Rows(10 + I).Delete
                   Me.ListView1.ListItems.Remove (I)

gruß stefan

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 daten in liste einfügen
 26.06.2017 20:05:11 stefan
NotSolved
26.06.2017 20:52:08 Gast55687
NotSolved
26.06.2017 21:47:50 stefan
NotSolved
26.06.2017 22:18:34 Gast9011
NotSolved