Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 140 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 137, 138, 139, 140, 141, 142, 143 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Bereiche vergleichen und ausgeben 
Phelan XLPH

Antworten: 3
Aufrufe: 104

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 14:34   Titel: AW: Bereiche vergleichen und ausgeben Version: Office 2007
Sub Abgleich()
Dim Dic As Object
Dim v As Variant

Set Dic = CreateObject("Scripting.Dictionary")

For Each v In Worksheets("PaCo Export").UsedRange.Columns(1).Offset(1).Value
Dic(v) = 0
Next

For Each v In Worksheets("SW_Gruppen").Range("B3:L21").Value
If Dic.Exists(v) Then Dic.Remove (v)
Next

If Dic.Count Then
MsgBox "Folgende werte fehlen in 'SW_Gruppen':" & _
vbLf & vbLf & Join(Dic.Keys, vbLf), , "Info"
End If
End Sub
  Thema: Range über Cells ansprechen - Laufzeitfehlermeldung 
Phelan XLPH

Antworten: 5
Aufrufe: 207

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 14:15   Titel: AW: Range über Cells ansprechen - Laufzeitfehlermeldung Version: Office 2010
...meintest du so?

Private Sub ComboBox1_Change()
Dim lindex As Long
lindex = ComboBox1.ListIndex
Worksheets("Tabelle1").Range("D25:D270").Value = Worksheets("Tabelle2").Cells(4, lindex + 1).Value
End Sub
  Thema: Methode erstellen und aufrufen 
Phelan XLPH

Antworten: 4
Aufrufe: 124

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 14:07   Titel: AW: Methode erstellen und aufrufen Version: Office 2003
Private Sub tastendruck(ka, sText)

Select Case ka
Case 48 To 57 'Zahlen - zugelassen
Case 44, 46 'Komma und Punkt
ka = 44 'automatisch in Komma umwandeln
If InStr(1, sText, ",") Then ka = 0 'wenn schon ein Komma drin ist!
Case Else: ka = 0 'alle anderen nicht erlaubt
End Select

End Sub


Private Sub rillenanzahl_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call tastendruck(KeyAscii, rillenanzahl.Text)
End Sub
  Thema: Bilder in Laufwerk suchen 
Phelan XLPH

Antworten: 20
Aufrufe: 904

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 13:54   Titel: AW: Bilder in Laufwerk suchen Version: Office 2010
Urheber: Case

Option Explicit


Private strList() As String
Private lngCount As Long

Public Sub List_Pictures()
Dim i As Long
lngCount = 0
SearchFiles "C:\Users\Boss\Pictures", "*.jpg", True 'Anpassen (True => Mit Unterordner)
If lngCount = 0 Then
MsgBox "No file found"
Exit Sub
End If
With ThisWorkbook.Worksheets.Add
For i = 0 To UBound(strList)
.Cells(i + 1, 1) = strList(i)
Application.Goto .Cells(i + 1, 2)
.Pictures.Insert (strList(i))
Next
End With
End Sub

Private Sub SearchFiles(strFolder As String, strFileName As String, _
Optional blnSubFolder As Boolean = False)
Dim objFolder As Object
Dim objFile As Object
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each o ...
  Thema: Tabelle leeren 
Phelan XLPH

Antworten: 12
Aufrufe: 102

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 13:32   Titel: AW: Tabelle leeren Version: Office 2007
Sub Leeren()
With Sheets("Sheet2")
.Cells.Clear
If .ChartObjects.Count Then .ChartObjects.Delete
End With
End Sub
  Thema: Tabelle leeren 
Phelan XLPH

Antworten: 12
Aufrufe: 102

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 13:30   Titel: AW: Tabelle leeren Version: Office 2007
...und die Formatierungen sollen bleiben?
  Thema: Auf ein Stück umrechnen 
Phelan XLPH

Antworten: 4
Aufrufe: 145

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 13:28   Titel: AW: Auf ein Stück umrechnen Version: Office 2007
Um die Fehlerwerte zu eliminieren:

Sub Dividieren()
Dim lngEZ As Long
Dim lngLZ As Long

lngEZ = 17
lngLZ = WorksheetFunction.Max(lngEZ, Range("D" & Rows.Count).End(xlUp).Row)

Range("D" & lngEZ & ":D" & lngLZ).Copy
With Range("G" & lngEZ & ":Q" & lngLZ)
.PasteSpecial Operation:=xlDivide
On Error Resume Next
.SpecialCells(xlCellTypeConstants, xlErrors).ClearContents
.SpecialCells(xlCellTypeFormulas, xlErrors).ClearContents
On Error GoTo 0
End With
Application.CutCopyMode = False
End Sub
  Thema: Zellen nach Farbe summieren 
Phelan XLPH

Antworten: 3
Aufrufe: 678

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 13:02   Titel: AW: Zellen nach Farbe summieren Version: Office 2010
hallo,

verwende den Autofilter in Kombination mit der Formel =Teilergebnis().
Filtere nach der Farbe.

Bsp:
=TEILERGEBNIS(9;C:C) (9 => Summe)
  Thema: Tabelle leeren 
Phelan XLPH

Antworten: 12
Aufrufe: 102

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 12:57   Titel: AW: Tabelle leeren Version: Office 2007
Das muss extra gelöscht werden.

Sheets("Sheet2").Cells.Clear
Sheets("Sheet2").ChartObjects.Delete
  Thema: Zeile mehrfach kopieren 
Phelan XLPH

Antworten: 2
Aufrufe: 475

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 12:54   Titel: AW: Zeile mehrfach kopieren Version: Office 2003
Ins Codefenster der Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Or Target.Address(0, 0) = "B1" Then
If CLng(Val(Range("A1"))) > 0 Then
If CLng(Val(Range("B1"))) > 0 Then
With Rows(CLng(Val(Range("A1"))))
.Copy
.Resize(CLng(Val(Range("B1")))).Insert Shift:=xlDown
End With
Application.CutCopyMode = False
End If
End If
End If
End Sub

  Thema: Zeilen ausblenden / Formelbezug 
Phelan XLPH

Antworten: 4
Aufrufe: 168

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 12:41   Titel: AW: Zeilen ausblenden / Formelbezug Version: Office 2k (2000)
Ins Codefenster der Tabelle:

Option Explicit

Dim blnSperre As Boolean

Private Sub Worksheet_Calculate()
Dim rngC As Range
Dim rngHidden As Range

If Not blnSperre Then
blnSperre = True

With Range("F15:F" & WorksheetFunction.Max(15, Cells(Rows.Count, 6).End(xlUp).Row))
.EntireRow.Hidden = False
If WorksheetFunction.CountIf(.Cells, 0) Then
Set rngHidden = .Find(0, , xlValues, xlWhole)
For Each rngC In .Cells
If rngC = 0 Then Set rngHidden = Union(rngHidden, rngC)
Next
End If
End With
If Not rngHidden Is Nothing Then rngHidden.EntireRow.Hidden = True

blnSperre = False
End If
End Sub
  Thema: Auf ein Stück umrechnen 
Phelan XLPH

Antworten: 4
Aufrufe: 145

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 12:02   Titel: AW: Auf ein Stück umrechnen Version: Office 2007
Sub Dividieren()
With Range("D" & Rows.Count).End(xlUp)
Range("D17:D" & .Row).Copy
Range("G17:Q" & .Row).PasteSpecial Operation:=xlDivide
End With
Application.CutCopyMode = False
End Sub
  Thema: Bereiche vergleichen und ausgeben 
Phelan XLPH

Antworten: 3
Aufrufe: 104

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 11:46   Titel: AW: Bereiche vergleichen und ausgeben Version: Office 2007
Sub Abgleich()
Dim rngC As Range
Dim sMeldung As String

For Each rngC In Worksheets("SW_Gruppen").Range("B3:L21")
If IsError(Application.Match(rngC, Worksheets("PaCo Export").Columns(1), 0)) Then
sMeldung = sMeldung & vbLf & rngC.Address & vbTab & rngC
End If
Next

If sMeldung <> "" Then MsgBox "Folgende werte fehlen in PaCo Export:" & vbLf & sMeldung, , "Info"
End Sub
  Thema: Spreadsheets kopieren zu kompliziert 
Phelan XLPH

Antworten: 2
Aufrufe: 149

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 10:00   Titel: AW: Spreadsheets kopieren zu kompliziert Version: Office 2010
Hallo,

da langt ein Einzeiler:
Sub CP()
Worksheets(Array("ROT-OSC (2)", "Wear-Test", "ELT-T", "Stud Push-Pull out")).Copy
End Sub
  Thema: Daten von TB1 in TB2 kopieren 
Phelan XLPH

Antworten: 3
Aufrufe: 133

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jul 2012, 01:27   Titel: AW: Daten von TB1 in TB2 kopieren Version: Office 2003
Sub Zeilenlöschen_Gesamt()
Dim lLastRowZ As Long, lRowZ As Long
Dim wksQ As Worksheet 'Quelltabellenblatt
Dim wksZ As Worksheet 'Zieltabellenblatt
Dim wksS As Worksheet 'Suchtabellenblatt
Dim wksM As Worksheet 'Zieltabellenblatt Monat

With ThisWorkbook
Set wksQ = .Sheets("Zora")
Set wksZ = .Sheets("LIZ-Puffer")
Set wksS = .Sheets("ID-Liste")
Set wksM = .Sheets("Monat")

End With
If MsgBox("Wollen Sie wirklich alle Daten löschen?", vbYesNo + vbQuestion, "Daten löschen") = vbNo Then Exit Sub
If MsgBox("Achtung: Daten werden jetzt endgültig gelöscht!", vbYesNo + vbQuestion, "Daten löschen") = vbNo Then Exit Sub

With wksQ
.Range(.Rows(3), .Cells(.Rows.Count, 1).End(xlUp).EntireRow).Copy wksM.Cells(wksM.Row ...
 
Seite 140 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 137, 138, 139, 140, 141, 142, 143 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage