Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 122 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 119, 120, 121, 122, 123, 124, 125 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Tabelle erstellen mit einer VBA-Abfrage 
Phelan XLPH

Antworten: 3
Aufrufe: 205

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Sep 2012, 01:04   Titel: AW: Tabelle erstellen mit einer VBA-Abfrage Version: Office 2010
Idea
  Thema: suchen nach mehreren worten 
Phelan XLPH

Antworten: 4
Aufrufe: 192

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 23:45   Titel: AW: suchen nach mehreren worten Version: Office 2010
oder diese UDF:

Function MatchColor(SuchVektor, SuchMatrix)
Dim arV, arM, i As Long, n As Integer, k As Integer
Dim x As Integer
arV = SuchVektor.Rows(1).Value
arM = SuchMatrix.Value
For i = 1 To UBound(arM, 1)
For n = 1 To UBound(arV, 2)
For k = 1 To UBound(arM, 2)
If arV(1, n) = arM(i, k) Then x = x + 1
Next
Next
If x = UBound(arM, 2) Then MatchColor = MatchColor & "," & i
x = 0
Next
If Len(MatchColor) Then MatchColor = Mid$(MatchColor, 2)
End Function

Bsp-Aufruf: =MatchColor(B2:C2;Tabelle2!$B$2:$C$5) (Formel runterziehen)
  Thema: Kommentar dynamisch erstellen 
Phelan XLPH

Antworten: 6
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 19:33   Titel: AW: Kommentar dynamisch erstellen Version: Office 2010
Pack die UDF in ein StandardModul (Bsp: Modul1) und
ersetze deine SVERWEIS-Formel durch die der UDF.

Function SVERWEIS_Kommentar(SuchID, SuchBereich)
SVERWEIS_Kommentar = "-"
With Application.Caller
If SuchID = "" Then
If Not .Comment Is Nothing Then .Comment.Delete
Else
If .Comment Is Nothing Then
.AddComment WorksheetFunction.VLookup(SuchID, SuchBereich, 3, 0)
Else
.Comment.Text WorksheetFunction.VLookup(SuchID, SuchBereich, 3, 0)
End If
SVERWEIS_Kommentar = WorksheetFunction.VLookup(SuchID, SuchBereich, 2, 0)
End If
End With
End Function
Bsp in =SVERWEIS_Kommentar(A6;Tabelle2!A:C)
  Thema: Makro Spalten vergleichen !HILFE! 
Phelan XLPH

Antworten: 25
Aufrufe: 912

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 18:59   Titel: AW: Makro Spalten vergleichen !HILFE! Version: Office 2003
schau ma mal...
  Thema: Sheetvergleich mittels Makro 
Phelan XLPH

Antworten: 20
Aufrufe: 805

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 18:36   Titel: AW: Sheetvergleich mittels Makro Version: Office XP (2002)
...keine Lust mehr auf Rätselraten.

Lad mal ne Datei hoch, bevor ich wieder ins Blaue programmier.
  Thema: String trennen 
Phelan XLPH

Antworten: 19
Aufrufe: 467

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 18:19   Titel: AW: String trennen Version: Office 2010
Was sind das für Checkboxen?

Formular oder Active-X ?

EDIT: Ich bin jetzt von ActiveX-CheckBocen ausgegangen.

Sub Drucken()
Dim wks As Worksheet
Dim druckbereich As String
Dim objOle As OLEObject
Dim AnzahlDok As Integer
Dim byWert As Byte
Dim avAdressen As Variant
Dim vAdresse As Variant
Dim i As Long
Dim sAdresse As String
Dim byAD As Byte
Dim lPos As Long

Set wks = ThisWorkbook.Sheets("Blaetter")

'Schleife über mögliche Checkboxen
For Each objOle In Tabelle1.OLEObjects
If objOle.progID = "Forms.CheckBox.1" Then
If objOle.Name Like "CheckBox*#" Then
If objOle.Object.Value = True Then
lPos = Val(Replace(objOle.Name, "CheckBox", ""))
If lPos >= 1 And lPos <= 60 Then
Select Case Cells(lPos + 6, 3)
Case "", 1: sAdresse = "A" & (l ...
  Thema: Sheetvergleich mittels Makro 
Phelan XLPH

Antworten: 20
Aufrufe: 805

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 17:21   Titel: AW: Sheetvergleich mittels Makro Version: Office XP (2002)
sso!?
  Thema: Makro Spalten vergleichen !HILFE! 
Phelan XLPH

Antworten: 25
Aufrufe: 912

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 17:17   Titel: AW: Makro Spalten vergleichen !HILFE! Version: Office 2003
Warum hats vorhin mit Spalte 2 funktioniert und jetzt mit Spalte 8 nicht!?

Was sind denn für Werte in Spalte 8?
  Thema: Makro Spalten vergleichen !HILFE! 
Phelan XLPH

Antworten: 25
Aufrufe: 912

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 16:38   Titel: AW: Makro Spalten vergleichen !HILFE! Version: Office 2003
sFormel = "=IF(RC1="""","""",IF(ISNUMBER(MATCH(RC1," & _
sFormel & "R1C1:R" & lz & "C1,0)),VLOOKUP(RC1," & _
sFormel & "R1C1:R" & lz & "C8,8,0),""""))"
  Thema: String trennen 
Phelan XLPH

Antworten: 19
Aufrufe: 467

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 16:20   Titel: AW: String trennen Version: Office 2010
Na dann vielleicht so?

Sub y()
Dim ar As Variant, varItem As Variant
Dim i As Long
ar = Split("A1:E20,A181:E220,A241:E320,A421:E440,A541:E560,A661:E680,A721:E740,A781:E800,A841:E860,A901:E920,A1021:E1040,A121:E140,A1141:E1160,A1261:E1280,A1321:E1340,A1381:E1400,A1441:E1460,A1501:E1520,A1561:E1580,A1621:E1640,A1741:E1760,A1861:E1880,A1981:E2000", ",")
i = 1
For Each varItem In ar
With Tabelle1.Range(varItem)
.Copy Destination:=Tabelle2.Cells(i, 1)
i = i + .Rows.Count
End With
Next
End Sub
  Thema: Makro Spalten vergleichen !HILFE! 
Phelan XLPH

Antworten: 25
Aufrufe: 912

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 15:28   Titel: AW: Makro Spalten vergleichen !HILFE! Version: Office 2003
EDIT: optimiert

Sub SVERWEIS_VBA()
Dim sPfad_Quelle As String
Dim sDatei_Quelle As String
Dim sBlatt_Quelle As String

Dim sFormel As String

'Quell-Daten anpassen**********************************
sPfad_Quelle = "C:\Test\"
sDatei_Quelle = "Test.xls"
sBlatt_Quelle = "Tabelle1"
'******************************************************


With Tabelle3 'ZielBlatt anpassen *************************
With .Range("P2:P" & .Cells(.Rows.Count, 1).End(xlUp).Row) 'Bereich anpassen************

sFormel = "'" & sPfad_Quelle & "[" & sDatei_Quelle & "]" & sBlatt_Quelle & "'!"

.Cells(1).FormulaR1C1 = "=LOOKUP(2,1/(" & sFormel & "C1<>""""),ROW(&q ...
  Thema: String trennen 
Phelan XLPH

Antworten: 19
Aufrufe: 467

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 14:58   Titel: AW: String trennen Version: Office 2010
poste mal deinen ganzen code!

Vielleicht ist ein anderer Ansatz besser als Schnipsel-Lösungen.
  Thema: Sheetvergleich mittels Makro 
Phelan XLPH

Antworten: 20
Aufrufe: 805

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 14:42   Titel: AW: Sheetvergleich mittels Makro Version: Office XP (2002)
folgende zeilen ändern:

.
.
.
arBlatt1 = Tabelle1.UsedRange.Columns("A:B")
.
.
.
arBlatt2 = Tabelle2.UsedRange.Columns("A:B")
.
.
.
  Thema: Sheetvergleich mittels Makro 
Phelan XLPH

Antworten: 20
Aufrufe: 805

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 13:16   Titel: AW: Sheetvergleich mittels Makro Version: Office XP (2002)
Hallo,

steigst du hier durch...?
  Thema: Auswertung , Erstellung morphologischer Kasten 
Phelan XLPH

Antworten: 3
Aufrufe: 422

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Sep 2012, 11:52   Titel: AW: Auswertung , Erstellung morphologischer Kasten Version: Office 2010
Hallo Elias,

dein Beispiel passt irgendwie nicht!

Und was sind Komponentén?
Zeile C=Anzahl der unterschiedlichen Komponenten im Auftrag
 
Seite 122 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 119, 120, 121, 122, 123, 124, 125 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA