Thema Datum  Von Nutzer Rating
Antwort
06.03.2014 08:36:10 simon
NotSolved
Blau Nach Zelle suchen und ganze Zeile kopieren
 06.03.2014 16:40:20 H27
Solved
10.03.2014 16:55:29 simon
NotSolved

Ansicht des Beitrags:
Von:
H27		 Datum:
06.03.2014 16:40:20		 Views:
805		 Rating:
     
Antwort:
 Nein
Thema:
Nach Zelle suchen und ganze Zeile kopieren		 
Sub SucheZeilenWo()
Const sSp As Long = 7         'Spalte wo Suche"
Dim Rng As Range, c As Range

  Set Rng = Cells(Rows.Count, 7)
  Set Rng = Columns("G").ColumnDifferences( _
    Comparison:=Rng)
  For Each c In Rng
    If Len(c.Value) > 15 Then
      'quid quid peregrinus - wos was a´Fremder
    End If
  Next c
End Sub

Seid mir bitte nicht barsch, aber manchmal kriselt´s

 

< Wenn der Name des Strings einer Zelle länger ist als 15 Zeichen

eine Zelle hat einen Wert – der auch vom Typ String sein kann und ggf. womöglich auch länger als

ebenso kann eine Zelle als Rangeobjekt einen Namen haben. Lautet der Name "woswasiwos" dann ist er eben 10 Zeichen lang

 

< Zeile in der sich die Zelle befindet eine Zeile darunter eingefügt werden

soll sie sie an Ort und Stelle verdoppeln oder ans Ende der Tabelle schleichen – oder wos ?

 

 

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
06.03.2014 08:36:10 simon
NotSolved
Blau Nach Zelle suchen und ganze Zeile kopieren
 06.03.2014 16:40:20 H27
Solved
10.03.2014 16:55:29 simon
NotSolved