Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 493 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 490, 491, 492, 493, 494, 495, 496 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Gezielte Datenübernahme aus anderem Arbeitsblatt 
Phelan XLPH

Antworten: 7
Aufrufe: 831

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Jan 2010, 09:54   Titel: AW: Gezielte Datenübernahme aus anderem Arbeitsblatt Version: Office 2007
So?!
  Thema: Spalten vergleichen und ggf. addieren 
Phelan XLPH

Antworten: 9
Aufrufe: 1066

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2010, 19:09   Titel: AW: Spalten vergleichen und ggf. addieren Version: Office 2007
Hallo Georg,

mir ging ein Licht auf, denn irgendwie dachte ich mir das müsste doch
auch von Excel bereitgestellt sein.

Und siehe da, dem ist so: Konsolidieren

Gib das mal in die Excel-Hilfe ein. Dieser hilft dir mit dem Assistenten.
  Thema: VBA Code anpassen , Hilfe 
Phelan XLPH

Antworten: 11
Aufrufe: 324

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2010, 13:16   Titel: AW: VBA Code anpassen , Hilfe Version: Office 2003
Klar.

Zeichne den Code auf:
Blattschutz setzen und aufheben.

Dann übernimmst dus in deinen Code
  Thema: Gezielte Datenübernahme aus anderem Arbeitsblatt 
Phelan XLPH

Antworten: 7
Aufrufe: 831

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2010, 13:10   Titel: AW: Gezielte Datenübernahme aus anderem Arbeitsblatt Version: Office 2007
Suchwert: "Text jeder Zelle aus Spalte 7"

versteh ich nicht. Beschreib nochmal in worten nach was genau gesucht
werden soll? Oder soll vielleicht doch ein Abgleich zw. beiden Blättern
stattfinden?!
  Thema: ARBEITSMAPPE.ZUORDNEN(1+0*JETZT()) 
Phelan XLPH

Antworten: 10
Aufrufe: 2528

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2010, 12:53   Titel: AW: ARBEITSMAPPE.ZUORDNEN(1+0*JETZT()) Version: Office 2007
Danke ransi
  Thema: Werte per Schaltfläche in anderes Tabellenblatt verschieben 
Phelan XLPH

Antworten: 3
Aufrufe: 177

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2010, 05:38   Titel: AW: Werte per Schaltfläche in anderes Tabellenblatt verschie Version: Office 2007
...stimmt hab ich vergessen. Das Selection lässt du lieber weg.
Sub move_cells()
Worksheets("Tabelle1").Cells(20, 1).Resize(, 2).Copy _
Worksheets("Tabelle2").Cells(Rows.Count, 3).End(xlUp).Offset(1)
Worksheets("Tabelle1").Range("A20:B20").ClearContents
End Sub
  Thema: ARBEITSMAPPE.ZUORDNEN(1+0*JETZT()) 
Phelan XLPH

Antworten: 10
Aufrufe: 2528

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2010, 05:34   Titel: AW: ARBEITSMAPPE.ZUORDNEN(1+0*JETZT()) Version: Office 2007
@Janni

schön für dich Confused Confused Confused
  Thema: Daten aus Einkauf in andere Liste eintragen 
Phelan XLPH

Antworten: 26
Aufrufe: 1992

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2010, 23:42   Titel: AW: Daten aus Einkauf in andere Liste eintragen Version: Office 2003
...ist nicht so wild, dafür kenn ich mich mit den Funktionen nicht so aus.

Man kann nicht alles haben, will auch noch Spaß am leben haben Razz Laughing Very Happy
  Thema: VBA Code anpassen , Hilfe 
Phelan XLPH

Antworten: 11
Aufrufe: 324

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2010, 23:27   Titel: AW: VBA Code anpassen , Hilfe Version: Office 2003
Falls das Blatt keine Formeln enthält gibt es einen Fehler.

Setze folgendes davor:
If Not WS.Cells.HasFormula Then Exit Sub
  Thema: Daten aus Einkauf in andere Liste eintragen 
Phelan XLPH

Antworten: 26
Aufrufe: 1992

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2010, 23:11   Titel: AW: Daten aus Einkauf in andere Liste eintragen Version: Office 2003
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, rngC As Range, rngR As Range, wks As Worksheet
If Not Intersect(Target, Range("H:H")) Is Nothing Then
For Each c In Intersect(Target, Range("H:H"))
If IsDate(c.Offset(, -7).Text) Then
Set wks = Worksheets("Produktliste") 'ggf Anpassen
Set rngC = wks.Rows(1).Find(c.Offset(, -7).Value, , xlFormulas)
If rngC Is Nothing Then
Set rngC = wks.Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
rngC = c.Offset(, -7).Value
End If
Set rngR = wks.Range("C:C").Find(c.Offset(, -4))
If Not rngR Is Nothing Then
wks.Cells(rngR.Row, rngC.Column ...
  Thema: Daten aus Einkauf in andere Liste eintragen 
Phelan XLPH

Antworten: 26
Aufrufe: 1992

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2010, 22:32   Titel: AW: Daten aus Einkauf in andere Liste eintragen Version: Office 2003
@Heinz
Find-Methode ist schneller und sucht in einer Matrix und nicht nur in einem
Vektor. Sie kann auch nicht in einen Fehler laufen.

Vorteil der Match-Funktion: Suche in einem Array.
  Thema: Listbox transparent machen? 
Phelan XLPH

Antworten: 3
Aufrufe: 1535

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2010, 22:24   Titel: AW: Listbox transparent machen? Version: Office 2007
Ich denke nicht, das das geht. Gleich die Hintergrundfarbe an.
  Thema: Daten aus Einkauf in andere Liste eintragen 
Phelan XLPH

Antworten: 26
Aufrufe: 1992

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2010, 22:07   Titel: AW: Daten aus Einkauf in andere Liste eintragen Version: Office 2003
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, rngC As Range, rngR As Range, wks As Worksheet
If Not Intersect(Target, Range("H:H")) Is Nothing Then
For Each c In Intersect(Target, Range("H:H"))
If IsDate(c.Offset(, -7).Text) Then
Set wks = Worksheets("Produktliste") 'ggf Anpassen
Set rngC = wks.Rows(1).Find(c.Offset(, -7).Value, , xlFormulas)
If rngC Is Nothing Then
Set rngC = wks.Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
rngC = c.Offset(, -7).Value
End If
Set rngR = wks.Range("C:C").Find(c.Offset(, -4))
If Not rngR Is Nothing Then
wks.Cells(rngR.Row, rngC.Column ...
  Thema: Suchfunktion Zellen markieren bzw. Werte in bestimmem Bereic 
Phelan XLPH

Antworten: 1
Aufrufe: 164

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2010, 21:48   Titel: AW: Suchfunktion Zellen markieren bzw. Werte in bestimmem Be Version: Office 2003
Hier ein bsp.

Sub test()
Dim strRetVal As String
strRetVal = InputBox("Bitte SuchWerte eingeben getrennt durch ein Semikolon [;] :", "Suchen&Kopieren")
If strRetVal = "" Then Exit Sub
SuchUniversal Split(strRetVal, ";")
End Sub

Sub SuchUniversal(vntSuchWerte As Variant)
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim rngC As Range
Dim strFirstAddress As String
Dim intI As Integer
Dim lngZ As Long

Set wksZ = ThisWorkbook.Worksheets("SuchErgebnis") 'ZielTabelle Anpassen *********
wksZ.UsedRange.Clear
For Each wksQ In ThisWorkbook.Worksheets
Select Case wksQ.Name
Case wksZ.Name
Case Else
With wksQ.UsedRange
For intI = LBound(vntSuchWerte) To UBound(vntSuchWerte)
If Trim$(vntSuchWerte(intI)& ...
  Thema: Combobox in Userform in Abhängigkeit 
Phelan XLPH

Antworten: 7
Aufrufe: 1788

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2010, 21:18   Titel: AW: Combobox in Userform in Abhängigkeit Version: Office 2007
Oh, da hab ich wöhl zu weit gedacht.
 
Seite 493 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 490, 491, 492, 493, 494, 495, 496 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum