Bestellung/Spalten: nur bestimmte Spalten kopieren

[teufelchenbs]

Guten Abend eine Frage hätte ich mal.Wie kann ich spalten die nicht kopiert werden sollen ausblenden. Brauche die Zellen B1 bis B16 dann von B20 bis B26 und von B28 bis B30.Die ganze Spalte D brauche ich nicht .Und den Vor und Nachname aus der Kopfzeile sollte auch in die spalte A2 übertragen..ein Makro ist vorhanden aber es kopiert mir alle zellen auch die ich nicht brauche . Sollte alles auf die Tabelle Medikamente übertragen werden. Vielen dank
  Bestellung 01.xlsm (Größe: 184,89 KB / Downloads: 10)

[teufelchenbs]

Hallo
wie kann ich das Makro ändern das zum Beispiel die Spalte D micht mit kopiert wird?
danke

mein Makro

Code:

Sub SuperKopieren()
   Dim rngSource As Range, rngTarget As Range
   Dim iCounter As Integer
   Set rngSource = Worksheets("Medikamente").Range("C1:J26")
   Set rngTarget = Worksheets("Bestellung").Range("A1:J18")
   rngSource.Copy rngTarget
   For iCounter = 1 To rngSource.Rows.Count
      rngTarget.Rows(iCounter).RowHeight = _
         rngSource.Rows(iCounter).RowHeight
   Next iCounter
   For iCounter = 1 To rngSource.Columns.Count
      rngTarget.Columns(iCounter).ColumnWidth = _
         rngSource.Columns(iCounter).ColumnWidth
   Next iCounter
End Sub

[steve1da]

Hola,

und warum hast du das jetzt nochmal gepostet?

[Link entfernt]


Gruß,
steve1da

[Kuwer]

Hallo,

Hallo
wie kann ich das Makro ändern das zum Beispiel die Spalte D micht mit kopiert wird?
danke

mein Makro

Code:

Sub SuperKopieren()
   Dim rngSource As Range, rngTarget As Range
   Dim iCounter As Integer
   Set rngSource = Worksheets("Medikamente").Range("C1:J26")
   Set rngTarget = Worksheets("Bestellung").Range("A1:J18")
   rngSource.Copy rngTarget
   For iCounter = 1 To rngSource.Rows.Count
      rngTarget.Rows(iCounter).RowHeight = _
         rngSource.Rows(iCounter).RowHeight
   Next iCounter
   For iCounter = 1 To rngSource.Columns.Count
      rngTarget.Columns(iCounter).ColumnWidth = _
         rngSource.Columns(iCounter).ColumnWidth
   Next iCounter
End Sub

Sub SuperKopieren()

 Dim rngArea As Range, rngColumn As Range

 Dim rngSource As Range, rngTarget As Range

 Dim iCounter As Integer

 Set rngSource = Worksheets("Medikamente").Range("C1:C26,E1:J26")

 Set rngTarget = Worksheets("Bestellung").Range("A1")

 rngSource.Copy rngTarget

 Set rngTarget = rngTarget.CurrentRegion

 For iCounter = 1 To rngSource.Rows.Count

    rngTarget.Rows(iCounter).RowHeight = _

       rngSource.Rows(iCounter).RowHeight

 Next iCounter

 iCounter = 0

 For Each rngArea In rngSource.Areas

    For Each rngColumn In rngArea.Columns

      iCounter = iCounter + 1

      rngTarget.Columns(iCounter).ColumnWidth = rngColumn.ColumnWidth

    Next rngColumn

 Next rngArea

End Sub

Gruß Uwe

[BoskoBiati]

Hallo,

für Deine Wünsche hast Du einen bescheidenen Tabellenaufbau! Deine Medikamenten-Tabelle benötigt nur einen Kopf, den Rest kann man über das Druckmenü einstellen. Dann werden die Medikamente unteinander geschrieben und die Auswertung bzw. das Makro ist in der Hälfte der Zeit erledigt!
Denke mal darüber nach, dann reden wir weiter!

[BoskoBiati]

Hallo,

Thema gibt es hier auch noch ein paar mal:

http://ms-office-forum.net/forum/showthr...p?t=337460

[teufelchenbs]

Hallo,


Fehlermeldungdung.

[Kuwer]

Hallo,

mein Makro soll Deins ersetzen. Also musst Du Dein altes löschen oder auskommentieren.

Gruß Uwe

[teufelchenbs]

Kuwer pid='58945' dateline='1479812629']Hallo,

mein Makro soll Deins ersetzen. Also musst Du Dein altes löschen oder auskommentieren.

Gruß Uwe

Sub SuperKopieren()
 Dim rngArea As Range, rngColumn As Range
 Dim rngSource As Range, rngTarget As Range
 Dim iCounter As Integer
 Set rngSource = Worksheets("Medikamente").Range("C1:C26,E1:J26")
 Set rngTarget = Worksheets("Bestellung").Range("A1")
 rngSource.Copy rngTarget
 Set rngTarget = rngTarget.CurrentRegion
 For iCounter = 1 To rngSource.Rows.Count
    rngTarget.Rows(iCounter).RowHeight = _
       rngSource.Rows(iCounter).RowHeight
 Next iCounter
 iCounter = 0
 For Each rngArea In rngSource.Areas
    For Each rngColumn In rngArea.Columns
      iCounter = iCounter + 1
      rngTarget.Columns(iCounter).ColumnWidth = rngColumn.ColumnWidth
    Next rngColumn
 Next rngArea
End Sub


alles was farblich ist zeigt Excel in rot an
Syntaxfehler

[Kuwer]

Hallo,

das ist seltsam. Die führenden scheinbaren Leerzeichen sind in Wirklichkeit Ascii 160-Zeichen.
Kopiere den Code noch einmal komplett aus diesem Thread in ein Modul oder lösche/ersetze diese Zeichen.

Gruß Uwe