Thema Datum  Von Nutzer Rating
Antwort
05.03.2014 14:33:14 Wolfgang
NotSolved
Blau Transponieren mit Variablen
 05.03.2014 16:54:15 frau
Solved
06.03.2014 08:04:22 Gast6842
NotSolved
06.03.2014 15:28:09 frau
NotSolved

Ansicht des Beitrags:
Von:
frau		 Datum:
05.03.2014 16:54:15		 Views:
786		 Rating:
     
Antwort:
 Nein
Thema:
Transponieren mit Variablen

Servus Wolfgang

meinst du schlicht & ergreifend so .......

Option Explicit

Sub myTransponse()

Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim c As Range, f As Range, z As Range
Dim fa As String
  Set Sh1 = Sheets("Tabelle1")
  Set Sh2 = Sheets("Tabelle2")
  Set c = Sh2.[a1]              'keine Überschrift !
  Set z = c.Offset(0, 1)
  Do
    With Sh1.Columns(1)
    Set f = .Find(c.Value)
      If Not f Is Nothing Then
        fa = f.Address
        Do
          Range(f.Offset(0, 1), f.Offset(0, 2)).Copy _
            Destination:=z
          Set f = .FindNext(f)
          Set z = z.Offset(0, 2)
        Loop While Not f Is Nothing And f.Address <> fa
      End If
    End With
    Set c = c.Offset(1, 0)
    Set z = c.Offset(0, 1)
  Loop Until c.Value = ""

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
05.03.2014 14:33:14 Wolfgang
NotSolved
Blau Transponieren mit Variablen
 05.03.2014 16:54:15 frau
Solved
06.03.2014 08:04:22 Gast6842
NotSolved
06.03.2014 15:28:09 frau
NotSolved