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
Ankündigung
Einklappen
Keine Ankündigung bisher.
User helfen User - Programmieren
Einklappen
X
-
Gast -
Tim_
https://git-scm.com/book/en/v2Zitat von mehLHat jemand ein gutes Tutorial oder so zu Git parat? So ein Git für Dummies quasi?
Hoffe, du bist des Englischen mächtig. Was anderes brauchst du nicht.
Kommentar
-
Gast
Danke, werde mich mal durch arbeiten.Zitat von aznhttps://git-scm.com/book/en/v2Zitat von mehLHat jemand ein gutes Tutorial oder so zu Git parat? So ein Git für Dummies quasi?
Hoffe, du bist des Englischen mächtig. Was anderes brauchst du nicht.
Kommentar
-
Gast
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
-
glaube commit ist auch noch ganz nützlichZitat von mikeadd, fetch, merge, push, pull, init, clone, checkout sollte für den anfang reichen...hab noch nie mehr gebraucht :D
Zitat von mehLKotze 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
Kommentar