Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Aktivierung Arbeitsblatt

Aktivierung Arbeitsblatt
drKnilch
Hallo,
ich hab ein Problem.
Ich will aus einem Blatt ("Burger_Alarme") Zellen kopieren, wenn etwas in der ersten Spalte, einer jeweiligen Zeile steht. Dieser Wert soll dann in ein anderes Blatt (SPS-Störung) eingefügt werden. Das funktioniert auch soweit, zumindest das Copy/Paste. Allerdings wird im 2.Blatt überprüft, ob ein Wert in der ersten Spalte steht und nicht im 1.Blatt. Ich weiß einfach nicht warum. Hab schon auf verschiedenen Methoden versucht, das 1.Blatt anzusprechen. Bisher aber immer gescheitert...
  • 
    Private Sub Sortierung()
    Dim X, i As Double
    Dim Zeile, ZeileSPS As Double
    Zeile = 4
    ZeileSPS = 3
    Do While Zeile 

  • Wäre wirklich froh, wenn mir jemand weiterhelfen könnte!

    3
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Benutzer
    Anzeige
    AW: Aktivierung Arbeitsblatt
    10.01.2012 10:24:28
    Josef

    Hallo ?,
    Private Sub Sortierung()
      Dim rng As Range, rngC As Range, rngU As Range
      
      On Error Resume Next
      Set rng = Worksheets("Burger_Alarme").Range("A4:A30").SpecialCells(xlCellTypeConstants)
      On Error GoTo 0
      
      If Not rng Is Nothing Then
        For Each rngC In rng
          If rngU Is Nothing Then
            Set rngU = rngC.Resize(1, 7)
          Else
            Set rngU = Union(rngU, rngC.Resize(1, 7))
          End If
        Next
        rngU.Copy Worksheets("SPS-Störung").Range("B3")
      End If
      
      Set rng = Nothing
      Set rngC = Nothing
      Set rngU = Nothing
    End Sub



    « Gruß Sepp »

    Anzeige
    AW: Aktivierung Arbeitsblatt
    10.01.2012 10:26:36
    hary
    Hallo
    hier mal ungetestet.
    
    Private Sub Sortierung()
    Dim X, i As Double 'wofuer?
    Dim Zeile, ZeileSPS As Long
    Zeile = 4
    ZeileSPS = 3
    Do While Zeile 

    gruss hary
    AW: Aktivierung Arbeitsblatt
    10.01.2012 10:36:04
    drKnilch
    Das gibt´s doch nicht. Es war wirklich nur dieser kleine Punkt...
    Vielen Dank euch beiden, da wär ich nie darauf gekommen!
    Wieviel Zeit man mit so einer Suche verschwenden kann....

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige