Ankündigung

Einklappen
Keine Ankündigung bisher.

User helfen User - Programmieren

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

    ne habs schon gelöst... wollte nen array an eine funktion übergeben und das hat scheinbar nicht geklappt. einfach rausgenommen und es funktioniert es. trotzdem dank euch

    Kommentar


      Hat jemand ein gutes Tutorial oder so zu Git parat? So ein Git für Dummies quasi?

      Kommentar


        Zitat von mehL
        Hat jemand ein gutes Tutorial oder so zu Git parat? So ein Git für Dummies quasi?
        https://git-scm.com/book/en/v2

        Hoffe, du bist des Englischen mächtig. Was anderes brauchst du nicht.

        Kommentar


          Hab gestern erst ein eigenes für die Firma geschrieben :D wenn du willst kann ich es dir per PN zukommen lassen

          allerdings mit TortoiseGIT da hier keiner bock auf Konsole hat

          Kommentar


            Zitat von azn
            Zitat von mehL
            Hat jemand ein gutes Tutorial oder so zu Git parat? So ein Git für Dummies quasi?
            https://git-scm.com/book/en/v2

            Hoffe, du bist des Englischen mächtig. Was anderes brauchst du nicht.
            Danke, werde mich mal durch arbeiten.

            Kommentar


              Mir haben für Git diese 2 Tutorials auch gut weiter geholfen:
              https://www.atlassian.com/git/tutorials/comparing-workflows/gitflow-workflow
              http://rogerdudler.github.io/git-guide/

              Kommentar


                Danke sehr, werd ich mir auch mal anschauen.

                Kotze gerade im Quadrat, hatte Deutsche Umlaute so sehr. Versuche mit Qt ne Datei mit Namen einzulesen, aber die Umlaute werden immer zerschossen. Diese ganze Codec-Kacke kotze an.

                Kommentar


                  add, fetch, merge, push, pull, init, clone, checkout sollte für den anfang reichen...hab noch nie mehr gebraucht :D

                  Kommentar


                    Zitat von mike
                    add, fetch, merge, push, pull, init, clone, checkout sollte für den anfang reichen...hab noch nie mehr gebraucht :D
                    glaube commit ist auch noch ganz nützlich


                    Zitat von mehL
                    Kotze gerade im Quadrat, hatte Deutsche Umlaute so sehr. Versuche mit Qt ne Datei mit Namen einzulesen, aber die Umlaute werden immer zerschossen. Diese ganze Codec-Kacke kotze an.

                    (musst kein Python proggen um von dem Talk was zu lernen, viel davon ist nicht Python-spezifisch)

                    Kommentar


                      nachdem meine frage im kfka wohl deplatziert war nochmal hier. Das makro soll bei suchtreffer teile der reihe des suchbegriffs in die reihe des gefundenen kopieren. warum zur hölle findet er aber definitiv vorhandene suchen nicht?

                      Spoiler: 

                      '################################################# ###############################################
                      '################################################# ###############################################
                      '######### fnopen(): Opens a FileDialog, allowing the user to choose the GLA File. #########
                      '######### Returns directory/filename of selected as String #########
                      '################################################# ###############################################
                      '################################################# ###############################################

                      Function fnopen() As String

                      Dim strFileToOpen As String

                      strFileToOpen = Application.GetOpenFilename _
                      (Title:="Please choose GLA501 to open")
                      '# Change name of FileDialog (is being displayed)
                      Workbooks.Open filename:=strFileToOpen
                      '# Open Workbook
                      fnopen = strFileToOpen
                      MsgBox fnopen & " 1"
                      MsgBox strFileToOpen & " 2"

                      End Function

                      '################################################# ###############################################
                      '################################################# ###############################################

                      '################################################# ###############################################
                      '######### MakeRow(): Creates String of Cell out of row and String #########
                      '################################################# ###############################################

                      Function MakeRow(rowno As Integer, col As String) As String

                      MakeRow = col & CStr(rowno)

                      End Function

                      '################################################# ###############################################
                      '######### getmat(): Requires row no. and returns material no. #########
                      '################################################# ###############################################

                      Function getmat(rowno As Integer, col As String) As String

                      getmat = Range(MakeRow(rowno, col)).Value

                      End Function

                      '################################################# ###############################################
                      '################################################# ###############################################

                      Function fcat(gla_path As String, gla_name As String, lastrow As Integer) As Integer

                      Dim srchRange As Range, found_in_location As Range, lookFor As Range
                      Dim rowno As Integer, counter As Integer
                      Dim col As String

                      rowno = 16
                      col = "F"

                      counter = 0

                      Dim book1 As Workbook
                      Dim book2 As Workbook

                      Set book1 = ThisWorkbook
                      Set book2 = Workbooks(gla_name)

                      Set lookFor = book2.Sheets(1).Cells(rowno, 6) ' value to find
                      Set srchRange = book1.Sheets(2).Range(MakeRow(rowno, col), MakeRow(lastrow, col)) 'source

                      Set found_in_location = srchRange.Columns(1).Find(What:=lookFor, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
                      If Not found_in_location Is Nothing Then
                      found_in_location.Offset(0, 85).Value = lookFor.Offset(0, 79)
                      Else
                      counter = counter + 1
                      End If

                      fcat = counter

                      End Function

                      '################################################# ###############################################
                      '################################################# ###############################################

                      Sub annualazy()

                      Dim gla_path As String, gla_name As String, col As String, rowno As Integer, counter As Integer, lastrow As Integer

                      MsgBox ("This VBA updates 'DC_Annual_Planning' by copying values from '4510_GLA501_DC'. Make sure to select the correct files!")
                      gla_path = fnopen()
                      gla_name = Right(gla_path, Len(gla_path) - InStrRev(gla_path, "\"))

                      rowno = 16
                      col = "F"

                      lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
                      MsgBox lastrow

                      MsgBox gla_name
                      MsgBox getmat(rowno, col)
                      MsgBox fcat(gla_path, gla_name, lastrow)

                      End Sub

                      Kommentar


                        Hallo,


                        Mein Programm soll mit einer do while Schleife solange wiederholt werden bis man 'n' oder 'N' eingibt.

                        dieser Code beendet meine schleife nicht.
                        do
                        {
                        blabla
                        }
                        while (auswahl != 'n' || auswahl != 'N');


                        wenn ich jedoch

                        do
                        {
                        blabla
                        }
                        while (auswahl != 'n');


                        eingebe, beendet sich meine schleife.


                        Ich vermute das durch mein logisches ODER dann eine "1" in meiner Abbruchbedingung habe, kann das sein?

                        wie kann man dieses Problem lösen?


                        Danke schonmal

                        Kommentar


                          bei der ersten Schleife beendet weder n noch N die Schleife oder nur N nicht?

                          Kommentar


                            Zitat von zupzup
                            bei der ersten Schleife beendet weder n noch N die Schleife oder nur N nicht?
                            weder N noch n beendet sie.

                            Kommentar


                              Du solltest da ein logisches UND einbauen statt einem ODER. auswahl kann ja nur einen Wert haben, d.h. eine der beiden != ist immer wahr.

                              Kommentar


                                Zitat von Thorondor
                                Du solltest da ein logisches UND einbauen statt einem ODER. auswahl kann ja nur einen Wert haben, d.h. eine der beiden != ist immer wahr.
                                Danke, jetzt funktionierts :)

                                Kommentar

                                Lädt...
                                X