Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 99 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 96, 97, 98, 99, 100, 101, 102 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Listbox mit Array füllen ohne alten Inhalt löschen 
Phelan XLPH

Antworten: 7
Aufrufe: 206

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Nov 2012, 17:22   Titel: AW: Listbox mit Array füllen ohne alten Inhalt löschen Version: Office 2003
Hallo,

... Smile
  Thema: ADO Abfrage auf Blatt 
Phelan XLPH

Antworten: 6
Aufrufe: 230

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Nov 2012, 16:57   Titel: AW: ADO Abfrage auf Blatt Version: Office 2010
Toll Case,

jetzt bin ich auch nicht viel schlauer.

Könntest du genaue Antworten geben, ich hab keine Lust auf
Rätselraten. Confused
  Thema: ADO Abfrage auf Blatt 
Phelan XLPH

Antworten: 6
Aufrufe: 230

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Nov 2012, 13:49   Titel: ADO Abfrage auf Blatt Version: Office 2010
Hallo,

kann mir einer sagen was hier nicht stimmt:

Sub adoX()
Dim adoRS As Object
Dim adoConn As Object
Dim strConn As String
Dim sQuery As String

Set adoRS = CreateObject("ADODB.recordset")
Set adoConn = CreateObject("ADODB.Connection")

strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties='Excel 12.0;HDR=No';"
adoConn.Open strConn

sQuery = "SELECT [Mitarbeiter$].[Nachname] " & _
" FROM [Mitarbeiter$]"

adoRS.Open sQuery, adoConn
Tabelle3.Range("A1").CurrentRegion.Clear
Tabelle3.Range("A1").CopyFromRecordset adoRS

adoRS.Close
adoConn.Close
Set adoRS = Nothing
Set adoConn = Nothing
End Sub ...
  Thema: Kombination zweier Tabellen zu einer 
Phelan XLPH

Antworten: 5
Aufrufe: 94

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Nov 2012, 13:22   Titel: AW: Kombination zweier Tabellen zu einer Version: Office 2010
...oder so:

Sub TwoInOne()

Dim arTSTL As Variant
Dim arTSKD As Variant
Dim arPITC As Variant
Dim arZ As Variant
Dim i As Long
Dim n As Long
Dim j As Long
Dim D As Object
Dim anzZ As Long

Set D = CreateObject("scripting.dictionary")

arTSTL = Tabelle1.Cells(1, 1).CurrentRegion
arTSKD = Tabelle2.Cells(1, 1).CurrentRegion

For i = 2 To UBound(arTSKD)
D(arTSKD(i, 2)) = D(arTSKD(i, 2)) & vbTab & i
Next

For i = 2 To UBound(arTSTL)
If D.Exists(arTSTL(i, 4)) Then
If Not IsArray(D(arTSTL(i, 4))) Then
arZ = Split(Mid$(D(arTSTL(i, 4)), 2), vbTab)
D(arTSTL(i, 4)) = arZ
End If
anzZ = anzZ ...
  Thema: Zeilen rot markieren wenn 
Phelan XLPH

Antworten: 8
Aufrufe: 416

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Nov 2012, 11:24   Titel: AW: Zeilen rot markieren wenn Version: Office 2007
Machs über die Bed. Formatierung.

Wenn ich die Formel eingebe und daraufhin die Daten einlese ist natürlich die Formel weg (Wird über VBA hinzugefügt).

Die Formel steht in der Bed. formatierung und nicht auf dem Blatt.
  Thema: Aus 2 Spalten 1 machen 
Phelan XLPH

Antworten: 18
Aufrufe: 417

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Nov 2012, 01:41   Titel: AW: Aus 2 Spalten 1 machen Version: Office 2010
...oder doch eher hiermit:
.
.
.
sFormel = _
"=IF(" & .Columns(1).Address(, , , 1) & _
"=""""," & .Columns(2).Address(, , , 1) & _
"," & .Columns(1).Address(, , , 1) & ")"
.
.
.
  Thema: Aus 2 Spalten 1 machen 
Phelan XLPH

Antworten: 18
Aufrufe: 417

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Nov 2012, 01:30   Titel: AW: Aus 2 Spalten 1 machen Version: Office 2010
...oder so:

Sub x()
Dim ar As Variant
Dim sFormel As String
With Worksheets("Komplett").UsedRange
sFormel = _
"=" & .Columns(1).Address(, , , 1) & _
"&" & .Columns(2).Address(, , , 1)
End With
ar = Evaluate(sFormel)
Worksheets("Komplett2").Cells(1).Resize(UBound(ar)) = ar
End Sub
  Thema: Screenshot (Rechteckausschnitt) via VBA in Zwischenablage 
Phelan XLPH

Antworten: 7
Aufrufe: 580

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2012, 08:00   Titel: AW: Screenshot (Rechteckausschnitt) via VBA in Zwischenablag Version: Office 2010
aufgezeichnet:

Sub Makro1()
Range("B3:D11").CopyPicture Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.PasteSpecial Format:="Bild (Erweiterte Metadatei)", Link:=False _
, DisplayAsIcon:=False
End Sub
  Thema: array1 werte suchen anschließen in array2 schreiben 
Phelan XLPH

Antworten: 3
Aufrufe: 107

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2012, 00:49   Titel: AW: array1 werte suchen anschließen in array2 schreiben Version: Office 2003
Private Sub CommandButton1_Click()
Dim arD As Variant
Dim arF As Variant
Dim i As Long
Dim n As Long
Dim k As Integer
Dim vSuch As Variant

vSuch = 1

With Worksheets("Preisliste GA")
arD = .Range("A3:U" & .Cells(.Rows.Count, 2).End(xlUp).Row)
ReDim arF(1 To UBound(arD, 2), 1 To WorksheetFunction.CountIf(.Columns(21), vSuch))
End With

For i = 1 To UBound(arD)
If arD(i, 21) = vSuch Then
n = n + 1
For k = 1 To UBound(arD, 2)
arF(k, n) = arD(i, k)
Next
End If
Next

With ListBox1
.ColumnCount = UBound(arD, 2)
.ColumnWidths = Mid(WorksheetFunction.Rept(";2cm", 20), 2)
.Column = arF
End With

End Sub
  Thema: Zeilenweise String in Textdatei suchen 
Phelan XLPH

Antworten: 3
Aufrufe: 93

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2012, 18:54   Titel: AW: Zeilenweise String in Textdatei suchen Version: Office 2010
Sub x()
Dim blnSuchstring2_Exist As Boolean
Dim blnDTC_Exist As Boolean
Dim RC As Long
Dim i As Long
Dim Dat As String
Dim zeile As String
Dim Dateinummer As Integer
Dim sPath As String
Dim Suchstring2 As String
Dim Z As Long
Dim DTC As String

With ThisWorkbook.Worksheets("Tabelle1")
RC = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 5 To RC
blnSuchstring2_Exist = False
blnDTC_Exist = False

Dat = .Cells(i, 1).Value
Dateinummer = FreeFile()
Open (sPath & "/" & Dat) For Input As #Dateinummer
DTC = Mid(Dat, InStr(Dat, "_") + 1, 5)
Do While Not EOF(Dateinummer)
Line Input #Dateinummer, zeile
If InStr(1, zeile, Suchstring2, vbTextCompare) Then
...
  Thema: Zellen in Arrays und Auswertung des Arrays 
Phelan XLPH

Antworten: 2
Aufrufe: 108

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Nov 2012, 21:44   Titel: AW: Zellen in Arrays und Auswertung des Arrays Version: Office 2010
Sub Variante2()
Dim ar As Variant
Dim d As Object
Dim i As Long
Dim v As Variant
Dim txt As String

ar = Range("A1").CurrentRegion.Columns(1)

Set d = CreateObject("scripting.dictionary")

For i = 1 To UBound(ar)
d(ar(i, 1)) = d(ar(i, 1)) + 1
Next

'Ausgabe Arbeistblatt
'Range("J1").Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
'Range("K1").Resize(d.Count) = WorksheetFunction.Transpose(d.items)

'Ausgabe Direktfenster
ar = d.keys
For i = 0 To UBound(ar)
ar(i) = "Wert: " & ar(i) & vbTab & "Anz: " & d(ar(i))
Next
Debug.Print Join(ar, vbLf)
End Sub
  Thema: Per SQL "Array" Sortieren + Doppelte löschen 
Phelan XLPH

Antworten: 8
Aufrufe: 292

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Nov 2012, 20:43   Titel: AW: Per SQL "Array" Sortieren + Doppelte löschen Version: Office 2007
Hallo,

hier eine mögliche Alternative:

Sub Test_QSort()
Dim ar As Variant
Dim t As Single
t = Timer

ar = Range("A1").CurrentRegion.Columns(1)
Call QSort(ar, LBound(ar), UBound(ar), True, True)

Tabelle1.ListBox1.List = ar
MsgBox "Elapsed Time in sec. : " & Timer - t
End Sub

Sub QSort(arr, low, hi, Optional Redim2To1 = False, Optional unikate = False)
Dim i As Long, j As Long, p As Variant
Dim h As Variant, t As Variant, d As Object
Dim arrH As Variant

If Redim2To1 Then
ReDim arrH(LBound(arr) To UBound(arr))
For i = LBound(arr) To UBound(arr)
arrH(i) = arr(i, 1)
Next
arr = arrH
End If

If unikate Then
Set d = CreateObject("Scripting.Dictionary")
For i = LBound(arr& ...
  Thema: Per SQL "Array" Sortieren + Doppelte löschen 
Phelan XLPH

Antworten: 8
Aufrufe: 292

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Nov 2012, 19:18   Titel: AW: Per SQL "Array" Sortieren + Doppelte löschen Version: Office 2007
Und wo wird da jetzt ein Array sortiert?
  Thema: Zeilen Vergleichen aus 2 tabellen 
Phelan XLPH

Antworten: 11
Aufrufe: 168

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2012, 17:56   Titel: AW: Zeilen Vergleichen aus 2 tabellen Version: Office 2007
...müsste so gehen.

.
.
.
If M.Exists(ID) Then
For k = 1 To UBound(arAM, 2)
If arAM(i, k) <> arVM(M(ID), k) Then
wsAM.Cells(i, k).Font.ColorIndex = 3
End If
Next
Else
wsAM.Cells(i, 1).Resize(, UBound(arVM, 2)).Interior.ColorIndex = 19
End If
.
.
.
  Thema: Zeilen Vergleichen aus 2 tabellen 
Phelan XLPH

Antworten: 11
Aufrufe: 168

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2012, 17:44   Titel: AW: Zeilen Vergleichen aus 2 tabellen Version: Office 2007
Sub x()
'VM = Vormonat
'AV = Aktueller Monat
Dim wsVM As Worksheet
Dim wsAM As Worksheet
Dim arVM As Variant
Dim arAM As Variant
Dim i As Long
Dim k As Integer
Dim M As Object
Dim ID As String

Set wsVM = Tabelle4
Set wsAM = Tabelle3

Set M = CreateObject("scripting.dictionary")

arVM = wsVM.Range("A1").CurrentRegion
arAM = wsAM.Range("A1").CurrentRegion

For i = 3 To UBound(arVM)
ID = arVM(i, 1) & "#" & arVM(i, 5)
M(ID) = i
Next

For i = 3 To UBound(arAM)
ID = arAM(i, 1) & "#" & arAM(i, 5)
If M.Exists(ID) Then
wsAM.Cells(i, 1).Resize(, UBound(arVM, 2)).Interior.ColorIndex = 19
For k = 1 To UBound(arAM, 2)
...
 
Seite 99 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 96, 97, 98, 99, 100, 101, 102 ... 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