Thema Datum  Von Nutzer Rating
Antwort
Rot Spalte definieren für Kopierbefehl
 15.10.2014 17:18:02 Karin
NotSolved

Ansicht des Beitrags:
Von:
Karin		 Datum:
15.10.2014 17:18:02		 Views:
1503		 Rating:
     
Antwort:
  Ja
Thema:
Spalte definieren für Kopierbefehl

Hallo liebe User

 

kurze Frage:

Sub x()

ActiveSheet.Range("T:AU").ClearContents

   Dim wsDst As Worksheet     ' Die Zieltabelle
   Dim wsSrc As Worksheet     ' Die Quelltabelle
   Dim i As Long              ' Zeilennummer in der Quelle
   Dim j As Long              ' Zeilennummer im Ziel
   Dim varItem As Variant     ' Laufvariable über Array mit Tabellennamen
   Dim strSearch As String    ' die zu suchende Kategorie
  
   strSearch = Cells(1, 5).Value
   strSearch = LCase(Trim(strSearch))
   If Len(strSearch) = 0 Then Exit Sub
  
   Set wsDst = Worksheets("Auswertung_Event")
  
      Set wsSrc = Worksheets("BasisDaten")
      intSpalten = wsSrc.Cells.SpecialCells(xlCellTypeLastCell).Column
      For i = 1 To wsSrc.UsedRange.Row + wsSrc.UsedRange.Rows.Count - 1
         If LCase(wsSrc.Cells(i, 2).Text) = strSearch Then
            j = j + 1
            wsSrc.Rows(i).Copy wsDst.Rows(j)
         End If
      Next
 If j = 0 Then MsgBox "Nichts gefunden"
End Sub

 

funktioniert perfekt. nun möchte ich aber, dass die Zeilen erst in der 20igsten Spalte der Zieltabelle eingefügt werden. Wie kann ich die Spalte definieren?

 

 

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 Spalte definieren für Kopierbefehl
 15.10.2014 17:18:02 Karin
NotSolved