Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - hello123

Seiten: [1]
1
Excel / Antw: Antw: Zeilen einfügen und Inhalt von bestimmten Spalten übernehmen
« am: März 19, 2018, 14:20:13 Nachmittag »
Zitat von: maninweb am März 19, 2018, 09:08:42 Vormittag
Hallo,

auf die schnelle ohne zu testen, versuche es mal damit...

Code: Visual Basic
  1. Sub Zeileeinfügen()
  2.  
  3.   Dim Zelle As Range
  4.    
  5.   ActiveCell.EntireRow.Copy
  6.   Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
  7.  
  8.   Application.Calculation = xlCalculationManual
  9.   Application.ScreenUpdating = False
  10.  
  11.   For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End(xlToLeft))
  12.  
  13.     If Not Zelle.HasFormula Then
  14.      
  15.       Zelle.ClearContents
  16.      
  17.       Select Case Zelle.Offset(-1, 0).Column
  18.      
  19.         Case 2 To 3
  20.          
  21.           Zelle.Value = Zelle.Offset(-1, 0).Value
  22.          
  23.         Case Else
  24.        
  25.       End Select
  26.      
  27.     End If
  28.    
  29.   Next Zelle
  30.  
  31.   Application.ScreenUpdating = True
  32.   Application.Calculation = xlCalculationAutomatic
  33.  
  34.   Cells(ActiveCell.Row + 1, 1).Select
  35.  
  36. End Sub
  37.  

Gruß

Funktioniert - herzlichen Dank! :)

VG

2
Excel / Antw: Antw: Zeilen einfügen und Inhalt von bestimmten Spalten übernehmen
« am: März 19, 2018, 07:20:41 Vormittag »
Zitat von: maninweb am März 02, 2018, 08:49:30 Vormittag
Hallo,

grundsätzlich dauert das Schreiben von einzelnen Zellen in moderneren Excel-Versionen deutlich länger als in älteren Versionen.
Du könntest probieren, mal die Berechnung und Bildschirmaktualisierung während der Vorgänge auszuschalten.

Code: Visual Basic
  1. Sub Zeileeinfügen()
  2.  
  3.   Dim Zelle As Range
  4.    
  5.   ActiveCell.EntireRow.Copy
  6.   Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
  7.  
  8.   Application.Calculation = xlCalculationManual
  9.   Application.ScreenUpdating = False
  10.  
  11.   For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End(xlToLeft))
  12.  
  13.     If Not Zelle.HasFormula Then
  14.      
  15.       Zelle.ClearContents
  16.      
  17.     End If
  18.  
  19.   Next Zelle
  20.  
  21.   Application.ScreenUpdating = True
  22.   Application.Calculation = xlCalculationAutomatic
  23.  
  24.   Cells(ActiveCell.Row + 1, 1).Select
  25.  
  26. End Sub

Gruß

Hallo maninweb,

wie muss ich den Code ergänzen, damit der Inhalt der Spalten B und C der darüber liegenden Zeile in die neu eingefügte Zeile (inkl. Formatierung) kopiert wird?

Vielen Dank im Voraus für deine Unterstützung!

VG

3
Excel / Antw: Makro - bestimmten Spaltewert der aktiven Zeile kopieren und einfügen
« am: März 13, 2018, 09:55:44 Vormittag »
Ich habe folgenden Code erneut aufgenommen und manuell angepasst..

Code: [Auswählen]
Sub DatenExportieren()
'
' DatenExportieren Makro
'

'
    ActiveSheet.Unprotect
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 8)).Select
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E9:H9").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 10)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E11:H11").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 9)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E13:H13").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 1)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E15:H15").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 2)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E17:H17").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 7)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E19:H19").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 5)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E21:H21").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Wie muss die Zeile "Range(Cells(ActiveCell.Row, 8)).Select" lauten, damit bspw. Spalte H der aktiven Zeile (also bspw. H6) kopiert wird?


siehe auch: http://www.office-loesung.de/p/viewtopic.php?f=166&t=760625&p=3127351#p3127351
https://www.computerbase.de/forum/showthread.php?t=1754841&p=21015739#post21015739

4
Excel / Makro - bestimmten Spaltewert der aktiven Zeile kopieren und einfügen
« am: März 12, 2018, 11:24:23 Vormittag »
Hallo zusammen,

ich brauche ein Makro, mit dem man den Spalten-Inhalt (bspw. Spalte H) der aktiven Zeile in ein anderes Tabellenblatt kopieren kann.
Ich habe folgenden Code zusammengebastelt (mit meinen kaum vorhandenen Kenntnissen :(), der nicht funktioniert:

Code: [Auswählen]
Sub Makro4()
'
' Makro4 Makro
'

'
    Range(Cells(ActiveCell.Row, 8)).Select
    Selection.Copy
    Sheets("Deckblatt Management Summary").Select
    Range("E9:F9").Select
    ActiveSheet.Paste
End Sub
Kann jemand weiterhelfen?

5
Excel / Antw: Makro optimieren - Kopieren und Einfügen von Zeilen
« am: März 09, 2018, 13:07:29 Nachmittag »
Funktioniert - vielen Dank!

6
Excel / Antw: Makro optimieren - Kopieren und Einfügen von Zeilen
« am: März 08, 2018, 14:34:20 Nachmittag »
hat keiner einen Vorschlag?  :-[

7
Excel / Makro optimieren - Kopieren und Einfügen von Zeilen
« am: März 07, 2018, 09:35:50 Vormittag »
Hallo zusammen,

ich habe wieder eine Frage. Ich habe das untenstehende Makro aufgezeichnet und einem Button zugeordnet. Das Makro läuft ziemlich lange. Gibt es eine Möglichkeit, das Ganze etwas schneller zu gestalten?
Ich möchte, dass die Werte der Zeilen in die nächste Zeile kopiert werden (nicht die Formeln).

Code: [Auswählen]
Sub aktuelleWoche_inVorwoche_kopieren()
'
' aktuelleWoche_inVorwoche_kopieren Makro
'

'
    Range("H56:K56").Select
    Selection.Copy
    Range("H57").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H58:K58").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H59").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H60:K60").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H61").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H62:K62").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H63").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H64:K64").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H65").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H66:K66").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H67").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H68:K68").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H69").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=12
    Range("H72:K72").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H73").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H74:K74").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H75").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H76:K76").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H77").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H78:K78").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H79").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H80:K80").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H81").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H82:K82").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H83").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H84:K84").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H85").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=12
    Range("H88:K88").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H89").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H90:K90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H91").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H92:K92").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H93").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H94:K94").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H95").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H96:K96").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H97").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H98:K98").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H99").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H100:K100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H101").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Kann mir jemand weiterhelfen?

Vielen Dank vorab!

Grüße

8
Excel / Antw: Zeilen einfügen und Inhalt von bestimmten Spalten übernehmen
« am: März 02, 2018, 09:49:10 Vormittag »
Hallo,

vielen Dank! Es geht jetzt auf jeden Fall vieeel schneller! :) Besteht auch die Möglichkeit zusätzlich den Inhalt der Spalten B und C mittels Makro in die neu hinzugefügte Zeile übernehmen zu lassen?

Gruß

9
Excel / Antw: Zeilen einfügen und Inhalt von bestimmten Spalten übernehmen
« am: März 02, 2018, 07:01:59 Vormittag »
Keiner ne Idee?  :-\

10
Excel / Zeilen einfügen und Inhalt von bestimmten Spalten übernehmen
« am: März 01, 2018, 09:06:51 Vormittag »
Hallo Zusammen,

ich möchte in meiner Excel-Tabelle mit Hilfe eines Buttons unterhalb der Zelle, die gerade aktiv ist, eine neue Zeile einfügen. Die Formeln sollen übernommen werden, aber auch der Inhalt der Spalten B und C (inkl.Formatierung) soll kopiert werden. Mit dem Makro, das ich gefunden wird eine neue Zeile eingefügt und die Formeln übernommen, nicht aber der Inhalt von den Spalten B und C.

Das Makro lautet:
Sub Zeileeinfügen()
' Aktuelle Zeile kopieren, unterhalb Zeile einfügen und Inhalte in Zellen ohne Formel löschen
'
    Dim Zelle As Range
    ActiveCell.EntireRow.Copy
    Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
    For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End(xlToLeft))
      If Not Zelle.HasFormula Then
        Zelle.ClearContents
      End If
    Next Zelle
    Cells(ActiveCell.Row + 1, 1).Select
End Sub


Das Makro läuft allerdings etwa eine halbe Minute (oder sogar länger) ... ist das normal?

Kann mir jemand diesbezüglich weiterhelfen?

Vielen Dank im Voraus!

11
Excel / Pivot-Tabelle (mit doppelten Zeilen?)
« am: Januar 31, 2018, 07:42:26 Vormittag »
Hallo zusammen,

ich möchte mit Hilfe der Tabelle im Anhang eine Pivot-Tabelle erstellen, aus der ersichtlich wird, wie oft eine MG bisher auf der Agenda stand.
Da eine MG mehrere VU's enthält und die Tabelle auch für andere Auswertungen genutzt werden soll, muss ich diese in mehreren Zeilen abbilden, sodass momentan die MG mehrmals gezählt wird. 
(Eine MG hat jeweils eine TOP-Nr. - sprich wenn an einem Tag mehrere MG's auf der Agenda sind, werden diese durchnummeriert). Z.B. taucht die MG 10 in 8 Zeilen auf - war jedoch zwei mal auf der Agenda (am 11.08.17 und 31.01.18). Wie muss ich vorgehen, damit richtig gezählt wird? 
 
Hat jemand eine Idee wie ich dieses Problem lösen kann?

Vielen Dank vorab!
VG

Seiten: [1]

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies einverstanden. Learn more