Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 73 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 70, 71, 72, 73, 74, 75, 76 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: doppelte Werte finden und markieren 
Phelan XLPH

Antworten: 17
Aufrufe: 271

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Feb 2013, 11:03   Titel: AW: doppelte Werte finden und markieren Version: Office 2010
Sub Doppelte_Markieren()

Dim rngC As Range
Dim colItem As Object
Dim colDouble As New Collection
Dim sValue As String
Dim i As Long
Dim n As Long
Dim k As Integer
Dim blnCopy As Boolean


Cells.ClearFormats

Tabelle2.UsedRange.Clear

On Error Resume Next
With Tabelle1.Range("A1:CC200")
For i = .Row To .Row + .Rows.Count - 1
For k = .Column To .Column + .Columns.Count - 1
sValue = Left$(.Cells(i, k).Value2, 2)
Select Case sValue
Case "28", "30", "38", "87"
colDouble.Add .Cells(i, k), CStr(.Cells(i, k).Value)
If Err Then
Err.Clear
Select Case sValue
Case "28": .Cells(i, k).Interior.ColorIndex = 3 'rot
...
  Thema: mit Array Ergebnis weiter arbeiten 
Phelan XLPH

Antworten: 9
Aufrufe: 112

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Feb 2013, 10:18   Titel: AW: mit Array Ergebnis weiter arbeiten Version: Office 2010
Hallo,

'out' liefert ein Datenfeld d.h. es können mehrere ergebnosWerte vorliegen.

Bist du dir sicher, dass das der richtige Code für dein Vorhaben ist?

Beschreibe in Worten was das makro machen soll.
  Thema: Sortierung einer Zelle anhand der vorherigen Zelle 
Phelan XLPH

Antworten: 3
Aufrufe: 63

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Feb 2013, 05:29   Titel: AW: Sortierung einer Zelle anhand der vorherigen Zelle Version: Office 2010
Hallo,

...

Sub x()
Dim rngC As Range
Dim uni As Object
Dim sID As String
Dim i As Long
Dim av As Variant
Set uni = CreateObject("scripting.dictionary")

Application.ScreenUpdating = False

With Range("A1").CurrentRegion

.Sort .Cells(1), xlAscending, .Cells(2), , xlAscending, Header:=xlNo

For Each rngC In .Columns(1).Cells
sID = CStr(rngC.Value)
If uni.Exists(sID) Then
Set uni(sID) = Union(uni(sID), rngC.Resize(, 2))
Else
Set uni(sID) = rngC.Resize(, 2)
End If
Next

If uni.Count > 1 Then
av = uni.keys
For i = 1 To UBound(av) Step 2
With uni(av(i))
If .Rows.Count > 1 Then _
.Sort .Cells(2), xlDesce ...
  Thema: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? 
Phelan XLPH

Antworten: 15
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Feb 2013, 04:39   Titel: AW: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? Version: Office 2010
Hallo,

eine weitere Variante:

Sub x_3()
Dim i As Long
Dim dicMax As Object
Dim av As Variant

Set dicMax = CreateObject("scripting.dictionary")

With Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
av = .Value

For i = 1 To UBound(av)
If dicMax(av(i, 1)) < av(i, 2) Then _
dicMax(av(i, 1)) = av(i, 2)
Next

For i = 1 To UBound(av)
av(i, 1) = IIf(av(i, 2) = dicMax(av(i, 1)), "x", Empty)
Next
.Offset(, 2).Resize(, 1).Value = av
End With
End Sub
  Thema: Laufzeitfehler 438 beim Abrufen eines Zellenwertes 
Phelan XLPH

Antworten: 4
Aufrufe: 118

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2013, 19:57   Titel: AW: Laufzeitfehler 438 beim Abrufen eines Zellenwertes Version: Office 2010
AA = Workbooks("daten.xlsx").WorkSheets("Tabelle1").Cells(i, 1)
  Thema: Werte in Integer umwandeln!! 
Phelan XLPH

Antworten: 2
Aufrufe: 72

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2013, 19:55   Titel: AW: Werte in Integer umwandeln!! Version: Office 2010
Hallo Thomas,

vielleicht meinst du das hier:

Sub TextzahlInZahlUmwandeln()
Columns(1).TextToColumns
End Sub
  Thema: Zellen nebeneinander mit Bedingung 
Phelan XLPH

Antworten: 5
Aufrufe: 81

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2013, 18:57   Titel: AW: Zellen nebeneinander mit Bedingung Version: Office 2003
... Laughing ooops Embarassed

Also wenn du es auf einem Extra-Blatt haben möchtest, dann so:

Sub x()
Dim i As Long
Dim z As Long
Dim k As Integer
Dim wsSource As Worksheet
Dim wsNew As Worksheet

Set wsSource = ActiveSheet
Set wsNew = Worksheets.Add

With wsSource.Cells(Rows.Count, 1).End(xlUp)
For i = 1 To .Row
If wsSource.Cells(i, 1) = "BOM-Position" Then
z = z + 1: k = 4
wsNew.Cells(z, 1).Resize(, 4).Value = _
wsSource.Cells(i, 1).Resize(, 4).Value
Else
k = k + 1: wsNew.Cells(z, k) = wsSource.Cells(i, 3)
k = k + 1: wsNew.Cells(z, k) = wsSource.Cells(i, 4)
End If
Next
End With
End Sub
  Thema: VLookup in Userform 
Phelan XLPH

Antworten: 5
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2013, 18:43   Titel: AW: VLookup in Userform Version: Office 2007
Hallo,

eine Variante wäre...

Private Sub CommandButton5_Click()

Dim varSuchbegriff As Variant
Dim varZeile As Variant

With TextBox4
varSuchbegriff = IIf(IsNumeric(.Value), Val(Replace(.Value, ",", ".")), .Value)
End With

With Worksheets("datensatz")
With .Range(.Cells(1, 1), .Cells(65000, 4))
varZeile = Application.Match(varSuchbegriff, .Columns(1), False)
If IsNumeric(varZeile) Then
Label10.Caption = " " & .Cells(varZeile, 2).Text
Else
Label10.Caption = " Artikelnummer ungültig!"
End If
End With
End With

End Sub
  Thema: Zeilen in Schleife in Range speichern / (x To y) As Range? 
Phelan XLPH

Antworten: 3
Aufrufe: 100

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2013, 18:20   Titel: AW: Zeilen in Schleife in Range speichern / (x To y) As Rang Version: Office 2010
Hallo Red, kannst du in Worte fassen was das Makro erledigen soll?
Der Code hat einige Fehler und schlau werde ich auch nicht draus?! Confused
  Thema: doppelte Werte finden und markieren 
Phelan XLPH

Antworten: 17
Aufrufe: 271

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2013, 18:11   Titel: AW: doppelte Werte finden und markieren Version: Office 2010
Sub Doppelte_Markieren()

Dim rngC As Range
Dim colItem As Object
Dim colDouble As New Collection
Dim sValue As String

Cells.ClearFormats

On Error Resume Next
For Each rngC In Range("A1:CC200")
sValue = Left$(rngC.Value2, 2)
Select Case sValue
Case "28", "30", "38", "87"
colDouble.Add rngC, CStr(rngC.Value)
If Err Then
Err.Clear
rngC.Interior.ColorIndex = 3
With colDouble(CStr(rngC.Value)).Interior
If .ColorIndex <> 3 Then .ColorIndex = 3
End With
End If
End Select
Next
On Error GoTo 0

End Sub
  Thema: doppelte Werte finden und markieren 
Phelan XLPH

Antworten: 17
Aufrufe: 271

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2013, 17:18   Titel: AW: doppelte Werte finden und markieren Version: Office 2010
Hallo,

eine mögliche Variante:

Sub Doppelte_Markieren()

Dim rngC As Range
Dim colItem As Object
Dim colDouble As New Collection

Cells.ClearFormats

On Error Resume Next
For Each rngC In Range("A1:CC200")
If rngC.Value <> "" Then
colDouble.Add rngC, CStr(rngC.Value)
If Err Then
Err.Clear
rngC.Interior.ColorIndex = 3
With colDouble(CStr(rngC.Value)).Interior
If .ColorIndex <> 3 Then .ColorIndex = 3
End With
End If
End If
Next
On Error GoTo 0

End Sub
  Thema: Zellen nebeneinander mit Bedingung 
Phelan XLPH

Antworten: 5
Aufrufe: 81

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Feb 2013, 23:27   Titel: AW: Zellen nebeneinander mit Bedingung Version: Office 2003
Hallo,

Sub x()
Dim i As Long
Dim z As Long
Dim k As Integer

With Cells(Rows.Count, 1).End(xlUp)
For i = 1 To .Row
If Cells(i, 1) = "BOM-Position" Then
z = i: k = 4
Else
k = k + 1: Cells(z, k) = Cells(i, 3)
k = k + 1: Cells(z, k) = Cells(i, 4)
Cells(i, 1) = Empty
End If
Next
Range("A1:A" & .Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
  Thema: excel termine sortieren 
Phelan XLPH

Antworten: 29
Aufrufe: 658

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Feb 2013, 22:53   Titel: AW: excel termine sortieren Version: Office 2010
Hallo, Smile

Sub x()
Dim vIN As Variant
Dim vOUT As Variant
Dim i As Long
Dim k As Integer
Dim m As Integer
Dim n As Long

With Tabelle1
vIN = Intersect(.Range("A1").CurrentRegion.EntireColumn, .UsedRange)
End With
ReDim vOUT(1 To (UBound(vIN) - 1) * (UBound(vIN, 2) - 1) + 1, 1 To 5)

n = 1
vOUT(n, 1) = "Datum"
vOUT(n, 2) = "Monat"
vOUT(n, 3) = "Jahr"
vOUT(n, 4) = "Termin"
vOUT(n, 5) = "Projekt"

For i = 2 To UBound(vIN)
For k = 3 To UBound(vIN, 2) Step 2
If IsDate(vIN(i, k)) Then
m = k
Else
If IsDate(vIN(i, k - 1)) Then
m = k - 1
End If
End If
If m Then
n = n + 1 ...
  Thema: 5 Zellen einer Spalte auswerten 
Phelan XLPH

Antworten: 18
Aufrufe: 326

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Feb 2013, 14:28   Titel: AW: 5 Zellen einer Spalte auswerten Version: Office 2010
Wink
  Thema: 5 Zellen einer Spalte auswerten 
Phelan XLPH

Antworten: 18
Aufrufe: 326

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Feb 2013, 09:33   Titel: AW: 5 Zellen einer Spalte auswerten Version: Office 2010
Hallo,

ja dann so.
 
Seite 73 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 70, 71, 72, 73, 74, 75, 76 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project