Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 242 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 239, 240, 241, 242, 243, 244, 245 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: DEFINITIV letzte leere Zelle in der Spalte selektieren. 
Phelan XLPH

Antworten: 5
Aufrufe: 250

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2011, 08:07   Titel: AW: DEFINITIV letzte leere Zelle in der Spalte selektieren. Version: Office 2003
@toms777

ist dein Code Filterresitent?
  Thema: DEFINITIV letzte leere Zelle in der Spalte selektieren. 
Phelan XLPH

Antworten: 5
Aufrufe: 250

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2011, 07:50   Titel: AW: DEFINITIV letzte leere Zelle in der Spalte selektieren. Version: Office 2003
Tabelle1.Range("C:C").End(xlDown).Offset(1).Select
  Thema: seit office 2010 Ressourcen Problem 
Phelan XLPH

Antworten: 11
Aufrufe: 1216

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2011, 07:32   Titel: AW: seit office 2010 Ressourcen Problem Version: Office 2010
Klar,

im WorstCase will er ca. 65000*16000 Zellen kopieren.
Das ist nicht grad wenig!

Kommst du hiermit klar?
Sub Auswahl()

Dim sPfad As String
Dim sDatei As String
Dim lngVon As Long
Dim lngBis As Long
Dim wbAblage As Workbook
Dim rngCopy As Range

sPfad = "C:\Molkerei\Abrechnung\"
sDatei = "Lieferschein Ablage.xlsm"

' InputBox erwartet Zahleneingabe
lngVon = Application.InputBox("Datum Von eingeben", Type:=1)
If lngVon = 0 Then Exit Sub
lngBis = Application.InputBox("Datum Bis eingeben", Type:=1)
If lngBis = 0 Then Exit Sub


If Not IsWB_Open("Lieferschein Ablage.xlsm") Then ' Prüfen ob Datei bereits geöffnet ist
If Len(Dir(sPfad & sDatei)) > 2 Then ' Prüfen ob Datei in Dateipfad vorhanden
Set wbAblage = Workbooks.Open(Filename:=sPfad & sDatei ...
  Thema: Benötige Hilfe beim Sortieren/Transponieren einer Tabelle 
Phelan XLPH

Antworten: 2
Aufrufe: 174

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2011, 05:40   Titel: AW: Benötige Hilfe beim Sortieren/Transponieren einer Tabell Version: Office 2007
Hallo,

sieh dir die Datei an.
  Thema: Zeiterfassung mit einem Datum aber grösser 24 Std 
Phelan XLPH

Antworten: 4
Aufrufe: 1217

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Okt 2011, 07:30   Titel: AW: Zeiterfassung mit einem Datum aber grösser 24 Std Version: Office 2007
Hallo,

das hier müsste ausreichen: =WENN(B1>C1;(1+C1-B1);(C1-B1))*24*60
  Thema: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne For 
Phelan XLPH

Antworten: 22
Aufrufe: 2234

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2011, 11:41   Titel: AW: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne Version: Office 2003
...du solltest dich entscheiden.

Sub Abrechnungsammeln()
Dim WS As Worksheet
Dim WSz As Worksheet
Dim Zeile As Long
Dim i As Long
Dim n As Long


On Error GoTo ENDE
Application.ScreenUpdating = False


Set WSz = Worksheets("SAP")

n = 5 'Startzeile in "SAP"

WSz.Range(n & ":" & WSz.Rows.Count).Clear

For Each WS In ThisWorkbook.Worksheets
With WS
Select Case .Name
Case "SAP" 'hier die Tabellen eintragen die nicht berücksichtigt werden
Case Else
If Not IsEmpty(.UsedRange) Then
For Zeile = 120 To .Cells.Find("*", , , , xlByRows, xlPrevious).Row
If .Cells(Zeile, 5) > 0 Or .Cells(Zeile, 6) > 0 Then
.Rows(Zeile& ...
  Thema: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne For 
Phelan XLPH

Antworten: 22
Aufrufe: 2234

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2011, 11:37   Titel: AW: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne Version: Office 2003
Das Makro soll mir aus allen Tabellenblättern ausser "SAP" die Zeilen kopieren, deren Wert ( ab O120 [b][color=red]und[/color][/b] P120) größer Null ist.

...meintest du eher ODER ?
  Thema: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne For 
Phelan XLPH

Antworten: 22
Aufrufe: 2234

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2011, 10:17   Titel: AW: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne Version: Office 2003
@Gerd

dann hoffen wir mal dass es keine negativen Werte gibt. Very Happy
  Thema: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne For 
Phelan XLPH

Antworten: 22
Aufrufe: 2234

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2011, 10:02   Titel: AW: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne Version: Office 2003
Sub Abrechnungsammeln()
Dim WS As Worksheet
Dim WSz As Worksheet
Dim Zeile As Long
Dim i As Long
Dim n As Long


On Error GoTo ENDE
Application.ScreenUpdating = False


Set WSz = Worksheets("SAP")

n = 5 'Startzeile in "SAP"

WSz.Range(n & ":" & WSz.Rows.Count).Clear

For Each WS In ThisWorkbook.Worksheets
With WS
Select Case .Name
Case "SAP" 'hier die Tabellen eintragen die nicht berücksichtigt werden
Case Else
For Zeile = 120 To .Cells(.Rows.Count, 15).End(xlUp).Row
If .Cells(Zeile, 15) > 0 Then
If .Cells(Zeile, 16) > 0 Then
.Rows(Zeile).Copy
WSz.Cells(n, 1).PasteSpecial (xlPasteVa ...
  Thema: Notizvermerk 
Phelan XLPH

Antworten: 3
Aufrufe: 141

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2011, 08:45   Titel: AW: Notizvermerk Version: Office 2003
Versuchs hiermit:

Dim KomText As String
Select Case True
Case D.Value * (1 + Abweichung) < C
KomText = "über OG: " & C - D.Value * (1 + Abweichung)
Case D.Value * (1 - Abweichung) > C
KomText = "unter UG: " & D.Value * (1 + Abweichung) - C
Case Else: KomText = ""
End Select

If Len(KomText) Then
D.Interior.Color = RGB(205, 55, 0)
If D.Comment Is Nothing Then
D.AddComment "Abweichung " & KomText
Else
D.Comment.Text "Abweichung " & KomText
End If
End If
  Thema: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne For 
Phelan XLPH

Antworten: 22
Aufrufe: 2234

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2011, 07:41   Titel: AW: Wenn groesser 0 dann zeile kopieren in neue Tabelle ohne Version: Office 2003
Sub MissingOverview()
Dim WS As Worksheet
Dim WSz As Worksheet
Dim WSArr As Variant
Dim Zeile As Long
Dim i As Long

Application.StatusBar = "Refreshing Missing Parts..."
WSArr = Array("Kit 46", "Kit 16a", "Kit 23")
Set WSz = Worksheets("Mat Request")

Range(WSz.Range("A5"), WSz.Cells.SpecialCells(xlCellTypeLastCell)).Clear
For i = LBound(WSArr) To UBound(WSArr)
With Worksheets(WSArr(i))
For Zeile = 5 To .Range("A65536").End(xlUp).Row
If .Cells(Zeile, 9) < 0 Then
.Rows(Zeile).Copy
WSz.Rows(WSz.Range("A65536").End(xlUp).Row + 1).PasteSpecial (xlPasteValuesAndNumberFormats)
End If
Next Zeile
...
  Thema: Excelblatt als JPG 
Phelan XLPH

Antworten: 10
Aufrufe: 627

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2011, 07:34   Titel: AW: Excelblatt als JPG Version: Office 2003
Hallo, das Makro gefällt mir.

Habe es so erweitert, da sich das Chartarea an die Bildgröße anpasst.

Public Sub Test()

Const PICTURE_PATH = "D:\ReportBild.jpg"

Dim objOutlook As Object, objMessage As Object
Dim objChart As Chart
Dim sngPicHeight As Single
Dim sngPicWidth As Single

Set objChart = Charts.Add
Tabelle1.Range("A1:C3").CopyPicture Appearance:=xlScreen, Format:=xlPicture

With objChart
.Paste
.Shapes(1).Height = .Shapes(1).Height * 0.75 '75% von Originalgröße

sngPicHeight = .Shapes(1).Height
sngPicWidth = .Shapes(1).Width
.ChartArea.Height = .Shapes(1).Height
.ChartArea.Width = .Shapes(1).Width
.Shapes(1).Height = sngPicHeight
.Shapes(1).Width = sngPicWidth

.Export Filename:=PICTURE_PATH, FilterName ...
  Thema: Uhrzeiten blinken lassen 
Phelan XLPH

Antworten: 36
Aufrufe: 1329

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Okt 2011, 09:52   Titel: AW: Uhrzeiten blinken lassen Version: Office 2003
Erweitert um die "Erledigt"-Option.
  Thema: Uhrzeiten blinken lassen 
Phelan XLPH

Antworten: 36
Aufrufe: 1329

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Okt 2011, 09:28   Titel: AW: Uhrzeiten blinken lassen Version: Office 2003
Ach ja was ich vergessen hab...

Damit abgearbeitete Personen nicht mehr blinken, ein "*" vor den Namen setzen
z.B. *Hr. Maier oder dahinter.
  Thema: Rahmen um Zeile wenn Spalte A nicht leer 
Phelan XLPH

Antworten: 2
Aufrufe: 594

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Okt 2011, 09:18   Titel: AW: Rahmen um Zeile wenn Spalte A nicht leer Version: Office 2010
Bedingte Formatierung mit der Formel: =$A1<>""

Vorher den zu formatierenden Bereich Markieren.
 
Seite 242 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 239, 240, 241, 242, 243, 244, 245 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum