Thema Datum  Von Nutzer Rating
Antwort
22.05.2014 12:11:52 Kentucky
NotSolved
Blau Inhalt aus mehreren Zellen in eine Zelle kopieren
 22.05.2014 13:02:46 Kentucky
NotSolved

Ansicht des Beitrags:
Von:
Kentucky		 Datum:
22.05.2014 13:02:46		 Views:
662		 Rating:
     
Antwort:
  Ja
Thema:
Inhalt aus mehreren Zellen in eine Zelle kopieren

Zum besseren Verständnis:

Die Auswahlfunktion sieht so aus, dass in einem bestimmten Bereich jede Zelle auf einen Wert ("X") geprüft wird und wenn vorhanden, wird die Spaltenüberschrift in eine vorgegebene Zelle kopiert. (Daher das Problem, dass in der Zielzelle eben nur die letzte Überschrift steht, weil die halt alle anderen überschreibt)

 

Private Sub CommandButton1_Click()
Dim tb1 As Worksheet
Dim spa As Variant, zei As Variant

zei = 8
spa = 3

Set tb1 = ActiveWorkbook.Worksheets("Sitze")

        For spa = 3 To 26
            
            If Cells(zei, spa) = "X" Then
                    'Cells(24, spa).Copy Cells(zei, spa + 26)
                    str(i) = Cells(24, spa)
                    Cells(zei, spa).Interior.Color = vbGreen      'dient nur als Programmierhilfe
                                                                   damit ich sehe ob alle gewünschten
                                                                   Zellen gefunden werden
            End If


            If spa = 26 And zei < 18 Then
               spa = 3
               zei = zei + 1
            End If
    
         Next

Range("AD8:AX18").Columns.AutoFit



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
22.05.2014 12:11:52 Kentucky
NotSolved
Blau Inhalt aus mehreren Zellen in eine Zelle kopieren
 22.05.2014 13:02:46 Kentucky
NotSolved