Thema Datum  Von Nutzer Rating
Antwort
Rot Einen Bestimmten Wert aus einer Tabelle(Spalte) löschen
 13.07.2016 18:19:25 Cyless
NotSolved
13.07.2016 20:55:35 Gast79234
*****
Solved
17.07.2016 20:48:44 Cyless
NotSolved

Ansicht des Beitrags:
Von:
Cyless		 Datum:
13.07.2016 18:19:25		 Views:
1619		 Rating:
     
Antwort:
  Ja
Thema:
Einen Bestimmten Wert aus einer Tabelle(Spalte) löschen

Hallo Leute, 

Ich übe etwas VBA in Excel und habe ein kleines Problem:

Und Zwar möchte ich aus einer Spalte [Tabelle1/Spalte 1] einen bestimmten Wert löschen und die übriggeblieben Werte in Tabelle2/Spalte 1 einfügen.

Das ganze möchte ich zu Übungszwecken mit Arrays lösen. Das Problem dabei ist, dass die gelöschten Werte leere Zellen (Arrays) hinterlassen.

Würde mich über einen Tipp freuen!

Vielen Dank.

 

Lg

 

 

Option Explicit
Option Base 1


Sub problem1()
    Dim ZeileMax As Long, Zeile As Double, Zahlx As Integer
    Zahlx = InputBox("Bitte geben Sie den Wert ein, welchen Sie löschen möchten: ")
    
    Worksheets(1).Activate
    With Tabelle1
        Range("A2").Select
        ZeileMax = .UsedRange.Rows.count
    End With
    
    ReDim Vector(ZeileMax) As Variant
    ReDim VectorZiel(ZeileMax) As Variant
    
    Range("A1").Select
    For Zeile = 1 To ZeileMax
            Vector(Zeile) = ActiveCell.Offset(Zeile - 1).Value
    Next Zeile
    
    Worksheets(2).Activate
    Range("A1").Select
    
    
    For Zeile = 1 To ZeileMax
            If Vector(Zeile) > Zahlx Then
                VectorZiel(Zeile) = Vector(Zeile)
                Zeile = Zeile + 1
            End If
    Next Zeile
    
    For Zeile = 1 To ZeileMax
        ActiveCell.Offset(Zeile - 1).Value = VectorZiel(Zeile)
    Next Zeile
    
    
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
Rot Einen Bestimmten Wert aus einer Tabelle(Spalte) löschen
 13.07.2016 18:19:25 Cyless
NotSolved
13.07.2016 20:55:35 Gast79234
*****
Solved
17.07.2016 20:48:44 Cyless
NotSolved