Anzeige
Archiv - Navigation
952to956
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
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

end if Problem

end if Problem
27.02.2008 11:50:00
Frederic
Hallo Leute,
könntet ihr mir evtl. bei meinem kleinen IF THEN Problem weitherhelfen?
ich habe folgenden Code:
If Sheets("Liste").Range("M401") = "Januar" Then
Sheets("Januar").Range("A1:K400").Value = Sheets("Liste").Range("M7:W407").Value
Sheets("Januar").Range("A1:K" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Delete xlUp
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Sheets("Liste").Select
Columns("A:A").Select
Selection.ClearContents
Range("A7").Select
Ich möchte ihm praktisch sagen, dass er immer in das Blatt kopieren soll, abhängig von Zelle M401.
Also bei Januar in Sheet"Januar", etc. bis Dezember..
Welchen Teil habe hier nicht verstanden?
Danke für Eure Hilfe.
Frederic

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: end if Problem
27.02.2008 12:18:00
Beverly
Hi Frederic,
mal ungetestet:

Sub kopieren()
Dim strTabelle As String
strTabelle = Sheets("Liste").Range("M1")
Sheets(strTabelle).Range("A1:K400").Value = Sheets("Liste").Range("M7:W407").Value
Sheets(strTabelle).Range("A1:K" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells( _
xlCellTypeBlanks).Delete xlUp
Columns("A:A").Delete Shift:=xlToLeft
Sheets("Liste").Columns("A:A").ClearContents
End Sub


AW: end if Problem
27.02.2008 12:18:03
Erich
Hallo Frederic,
trifft das in etwa?

Sub tst()
Sheets("Liste").Select
With Sheets(Range("M401").Text)
.Range("A1:K400").Value = Range("M7:W407").Value
.Range("A1:K" & .Cells(Rows.Count, 2).End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).Delete xlUp
.Columns(1).Delete
End With
Columns(1).ClearContents
Range("A7").Select
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige