Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 153 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 150, 151, 152, 153, 154, 155, 156 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Mit X gekennzeichnete Zelle kopieren in zweites Tabellenblat 
Phelan XLPH

Antworten: 12
Aufrufe: 413

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2012, 09:02   Titel: AW: Mit X gekennzeichnete Zelle kopieren in zweites Tabellen Version: Office 2007
...oder mit dem Rechtsklick-Ereignis:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rngC As Range
If Not Intersect(Target, Range("B2:B45")) Is Nothing Then
Cancel = True
With Tabelle1
Target = IIf(Target = "X", Empty, "X")
.Range("A65:A109").ClearContents
For Each rngC In Range("B2:B45")
If UCase(rngC) = "X" Then
If .Cells(65, 1) = Empty Then
.Cells(65, 1) = Cells(rngC.Row, 3)
Else
.Cells(.Rows.Count, 1).End(xlUp).Offset(1) = Cells(rngC.Row, 3)
End If
End If
Next
End With
End If
End Sub
  Thema: Makro für Duplikate anpassen 
Phelan XLPH

Antworten: 7
Aufrufe: 218

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2012, 08:22   Titel: AW: Makro für Duplikate anpassen Version: Office 2007
Ich hab keine Lust mehr.
Soll den Mist doch löschen wer will.

Gruß Andrea.

Schluss - Aus - MickeyMaus
Wink Smile Surprised Very Happy Laughing Laughing Laughing Shock Embarassed Cool Rolling Eyes
Public Sub Doppelte_Weg()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 2).End(xlUp).Row
For lngZeilenSprung = lngZeile To 1 Step -1
strSuchwert = Cells(lngZeilenSprung, 2).Value
If Application.WorksheetFunction.CountIf(Range(Cells(1, 2), Cells(lngZeile, 2)), strSuchwert) <> 1 Then
Cells(lngZeilenSprung, 2).ClearContents
End If
Next lngZeilenSprung
End Sub
  Thema: Makro-gefüllte-Zelle aufteilen 
Phelan XLPH

Antworten: 2
Aufrufe: 226

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 22:26   Titel: AW: Makro-gefüllte-Zelle aufteilen Version: Office 2007
Sub xlph()
Dim ws As Worksheet
Dim ar As Variant
Dim i As Long

Dim Verknüpfung As Object

Set Verknüpfung = CreateObject("scripting.dictionary")

For Each ws In Worksheets
ar = ws.Range("A1:C" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
For i = 4 To UBound(ar)
Verknüpfung(ar(i, 1)) = Verknüpfung(ar(i, 1)) & "|" & ar(i, 2)
Next
Next

For Each ws In Worksheets
ws.Select
With ws.Range("A1:C" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
ar = .Value
For i = 4 To UBound(ar)
ar(i, 3) = Mid(Verknüpfung(ar(i, 1)), 2)
Next
.Value = ar
.Columns(3).TextToColumns .Cells(3), xlDelimited, xlDoubleQuote, False, 1, 0, 0, ...
  Thema: Array speichern 
Phelan XLPH

Antworten: 13
Aufrufe: 205

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 20:05   Titel: AW: Array speichern Version: Office 2007
So bleibt alles im Geheimen Cool

Sub DatenSchreiben()
Dim i As Long
Dim k As Long
Dim n As Long
Dim sText As String
Dim Arr(1 To 3, 1 To 2, 1 To 5) As Variant

'Array mit Daten Füllen
For i = 1 To UBound(Arr, 1)
For k = 1 To UBound(Arr, 2)
For n = 1 To UBound(Arr, 3)
Arr(i, k, n) = Int(Rnd() * 1000 + 1)
Next
Next
Next

'Array in String überführen
For i = 1 To UBound(Arr, 1)
For k = 1 To UBound(Arr, 2)
For n = 1 To UBound(Arr, 3)
sText = sText & vbTab & Arr(i, k, n)
Next
sText = sText & vbLf
Next
sText = sText & vbCr
Next

'Debug.Print sText

'In Tabelleneigenschaften speichern
With Tabelle1.CustomProperties 'Tanbelle1 anpassen
If .Count = 0 Then
.Add "GD", sText
...
  Thema: Multiselect mit mehreren Spalten in bestimmten Zellbereich 
Phelan XLPH

Antworten: 2
Aufrufe: 149

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 19:17   Titel: AW: Multiselect mit mehreren Spalten in bestimmten Zellberei Version: Office 2007
'=======Daten aus der Listbox werden in den PO Master geschrieben

Private Sub insert_product_Click()

Dim i As Long
Dim k As Integer
Dim n As Long
Dim lz As Long
Dim arAusgabe As Variant


'=======Liest alle Zeilen und Spalten aus der ListBox heraus


On Error Resume Next

With Sheets("Tabelle1")
lz = .Cells(.Rows.Count, 5).End(xlUp).Row
If lz < 18 Then lz = 17
With Me.ListBox1
ReDim arAusgabe(1 To .ListCount, 1 To .ColumnCount)
For i = 0 To .ListCount - 1
If .Selected(i) Then
n = n + 1
For k = 0 To .ColumnCount - 1
arAusgabe(n, k + 1) = .List(i, k)
Next
End If
Next i
End With
If n Then
.Cells(lz + 1, 5).Resize(n, UBound(arAusgabe, 2)) = arAusgabe
End If
End With

End Sub
  Thema: Array speichern 
Phelan XLPH

Antworten: 13
Aufrufe: 205

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 19:03   Titel: AW: Array speichern Version: Office 2007
1. mach aus dem Array ein String
2. Speichere es ins CustomProperties des Blattes
  Thema: Inputbox überprüfen ob Zahl mit 0999 beginnt 
Phelan XLPH

Antworten: 13
Aufrufe: 554

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 18:17   Titel: AW: Inputbox überprüfen ob Zahl mit 0999 beginnt Version: Office 2003
@Isi

man muss ja nicht gleich das schwere Geschütz auffahren Wink

Sub TestInputBox()
Dim sNR As String
Do
If sNR <> "" Then MsgBox "Eingabe nicht korrekt"
sNR = InputBox("Bitte Code eingeben :", "Eingabe")
If sNR = "" Then Exit Sub
Loop Until sNR Like "0999######" Or sNR Like WorksheetFunction.Rept("[A-Z]", 10)

MsgBox "...weiter gehts..."
End Sub
  Thema: mal wieder substrings 
Phelan XLPH

Antworten: 8
Aufrufe: 205

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 13:40   Titel: AW: mal wieder substrings Version: Office 2007
Sub ExtractMitFärbung()
Dim sErg As String
Dim arErg As Variant
Dim Ms As Object
Dim M As Object
Dim rngC As Range
Dim iSpalte As Integer
Dim ws As Worksheet

Set ws = Worksheets("Report 1")

iSpalte = ws.Cells.Find("*", , , , xlByColumns, xlPrevious).Column

With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\b5\d{7}\b"
For Each rngC In ws.Range("K:K").SpecialCells(xlCellTypeConstants)
sErg = ""
Set Ms = .Execute(rngC)
For Each M In Ms
rngC.Characters(M.firstindex + 1, M.Length).Font.ColorIndex = 3
sErg = sErg & ";" & Trim(M)
Next
If Len(sErg) Then
arErg = Split(Mid(sErg, 2), ";")
rngC.Offset(, i ...
  Thema: Alternative zu Schleifendurchlauf gesucht 
Phelan XLPH

Antworten: 5
Aufrufe: 270

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 12:58   Titel: AW: Alternative zu Schleifendurchlauf gesucht Version: Office 2003
Daffür hats ja die Funktionen:

Sub Test()

Dim rngBereich As Range

' For Each zelle In Range(Cells(5, 1), Cells(10, 1))
' If Not (zelle = "abc" Or zelle = "def") Then c = c + 1
' Next zelle
' MsgBox c
Set rngBereich = Columns(1)
With WorksheetFunction
MsgBox .CountA(rngBereich) - .CountIf(rngBereich, "abc") - .CountIf(rngBereich, "def")
End With


' For Each zelle In Range(Cells(5, 2), Cells(10, 2))
' If Not (IsNumeric(zelle) And (zelle >= 1 And zelle <= 999999999)) Then d = d + 1
' Next zelle
' MsgBox d
Set rngBereich = Columns(2)
With WorksheetFunction
MsgBox .CountIf(rngBereich, "<=0")
End With


' For Each zelle In Range(Cells(5, 3), Cells(10, 3))
' If Not IsNum ...
  Thema: mal wieder substrings 
Phelan XLPH

Antworten: 8
Aufrufe: 205

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 12:37   Titel: AW: mal wieder substrings Version: Office 2007
,,und weiter, was soll beu Fund passieren?
  Thema: mal wieder substrings 
Phelan XLPH

Antworten: 8
Aufrufe: 205

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 12:36   Titel: AW: mal wieder substrings Version: Office 2007
Welche spalte soll zurückgegeben werden?
  Thema: Problem mit MMULT Funktion bei Array 
Phelan XLPH

Antworten: 8
Aufrufe: 746

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 12:24   Titel: AW: Problem mit MMULT Funktion bei Array Version: Office 2003
Also bei mir Funktionieren beide MMults wobei die Standard schneller ist
als die selbstgeschriebene. Liegt vielleicht auch an der Version, hab 2010.

Public Sub ppp2()

Dim Zeilen As Long
Dim i As Long
Dim j As Long
Dim matrix As Variant
Dim myarray() As Double
Dim b() As Variant

'Zeilen = Sheets("Tabelle1").Range("A1").Value
Zeilen = 10000

matrix = Sheets("Tabelle2").Range("B45:O58")

ReDim myarray(1 To Zeilen, 1 To 14)
For i = 1 To UBound(myarray)
For j = 1 To UBound(myarray, 2)
myarray(i, j) = Val(i & j) 'Application.WorksheetFunction.NormInv(Rnd() + 0.0000000001, 0, 1)
Next j
Next i

'b = Application.WorksheetFunction.MMult(myarray(), matrix)
b = MMULT_X(myarray(), matrix)
...
  Thema: Problem mit MMULT Funktion bei Array 
Phelan XLPH

Antworten: 8
Aufrufe: 746

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 11:38   Titel: AW: Problem mit MMULT Funktion bei Array Version: Office 2003
Hallo Yoko,

ein Blick in die Hilfe lohnt sich immer, warum machen das bloss so wenige???
  Thema: Verschachteltes Array? 
Phelan XLPH

Antworten: 7
Aufrufe: 156

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 11:24   Titel: AW: Verschachteltes Array? Version: Office 2003
...und da holt Eto noch einen raus du.... Laughing

Schick, aber ob das Manron nachvollziehen kann.
  Thema: Inputbox überprüfen ob Zahl mit 0999 beginnt 
Phelan XLPH

Antworten: 13
Aufrufe: 554

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2012, 11:07   Titel: AW: Inputbox überprüfen ob Zahl mit 0999 beginnt Version: Office 2003
Sub TestInputBox()
Dim sNR As String
Do
If sNR <> "" Then MsgBox String(30, " ") & "Falsche Eingabe!" & vbLf & vbLf & _
"Bitte die Nummer in folgendem Format eingeben:" & vbLf & vbLf & String(30, " ") & "[0999######]"
sNR = InputBox("Bitte Zahl eingeben [0999######]:", "Eingabe", "0999")
If sNR = "" Then Exit Sub
Loop Until sNR Like "0999######"

MsgBox "...weiter gehts..."
End Sub
 
Seite 153 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 150, 151, 152, 153, 154, 155, 156 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen