Thema Datum  Von Nutzer Rating
Antwort
24.06.2016 10:25:26 Riana
NotSolved
Blau Spalteninhalt kopieren mit Suchfunktion ; Flexibles suchen nach Überschrift
 25.06.2016 01:19:32 Gast87330
NotSolved
27.06.2016 15:48:47 Gast45717
NotSolved
27.06.2016 18:09:31 Gast84835
NotSolved

Ansicht des Beitrags:
Von:
Gast87330		 Datum:
25.06.2016 01:19:32		 Views:
590		 Rating:
     
Antwort:
  Ja
Thema:
Spalteninhalt kopieren mit Suchfunktion ; Flexibles suchen nach Überschrift

Hallo! Auf die schnelle und ungetestet hier mal eine Variante. VG

Sub spalte_suchen()
'die Spaltenköpfe durchgehen
For i = 1 To ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    'wenn der Wert der Überschrift gefunden wird
      If ActiveSheet.Cells(1, i) = "€/100 L" Then
            'dann ab Zeile 2 bis zum letzten eingetragen Wert kopieren
            ActiveSheet.Range(ActiveSheet.Cells(2, i).ActiveSheet.Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, i)).Copy
            Exit For
      End If
Next i

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
24.06.2016 10:25:26 Riana
NotSolved
Blau Spalteninhalt kopieren mit Suchfunktion ; Flexibles suchen nach Überschrift
 25.06.2016 01:19:32 Gast87330
NotSolved
27.06.2016 15:48:47 Gast45717
NotSolved
27.06.2016 18:09:31 Gast84835
NotSolved